高校時代に書いたF-BASICのプログラムを解読中。
これなかなか大変。
昔のBASICだから、変数は全てグローバルだし、構造化もされてない。イベントドリブンの仕組みもない。書き方も今見るとムチャクチャで、宣言もなしに変数が出現するわ、サブルーチン内で宣言された変数が上の階層で参照されたりするわ、１行に何個も文書くわ、コメント少ないわ、変数名がアルファベット２文字とかでワケワカメだわ。
さらに問題なのが画像データのフォーマットが分からないということ。サウンドにいたっては忠実に再現することはムリポ。
むむむ。
↓こんなかんじが500行ほど
3210 *初期設定'■■■■■■■■■■■■■■■■■■■■■■■■■■■
3220 DEFINT A-Z:LF&=1:SF&=1
3230 DIM MG(7250),LI(4,100),CO(2,200),MW(36420),GW(59015),CW(17780)
3240 DIM G1(39),R1(39),B1(39),G2(16),R2(16),B2(16)
3250 DIM TT$(8,1),SN(8,1),SF(8,1),ME$(50),GF(31)
3260 CLS 5:CLS 1:WIDTH 80,25:SCREEN@ 2:COLOR 7,0
3270 LOAD@ "GREEN2.COL",G2:LOAD@ "RED2.COL",R2:LOAD@ "BLUE2.COL",B2
3280 FOR I=0 TO 15:PALETTE I,[G2(I+1),R2(I+1),B2(I+1)],1:NEXT I
3290 LOAD@ "GREEN1.COL",G1:LOAD@ "RED1.COL",R1:LOAD@ "BLUE1.COL",B1
3300 FOR I=0 TO 38:PALETTE 100+I,[G1(I+1),R1(I+1),B1(I+1)],1:NEXT I
3310 'インデックスファイル読み込み ■■■■■■■■■■■■■■■■■
3320 OPEN "(8)USERFILE.IND" AS #1:FIELD #1,8 AS F$:FS=LOF(1)
3330 IF FS<6 THEN DIM UF$(6) ELSE DIM UF$(FS)
3340 IF FS=0 THEN 3350 ELSE FOR I=1 TO FS:GET #1,I:UF$(I)=F$:NEXT I
3350 CLOSE:TF=1:OF$=UF$(1)
