ＰＳＫ@暗い根っ子の会

1000 '暗い根っ子＠finallolita

1010 CLEAR 300,&HAFFF
1020 PRINT CHR$(12): OUT &H51,0:OUT &H40,16
1030 GOSUB 3020
1040 RESTORE 4010
1050 CMD
1060 GOSUB 5000:IF GN=9999 THEN END
1070 GOSUB 2000
1080 GOSUB 6000
1090 MAT GN
1100 A$=INPUT$(1):GO TO 1050
2000 '
2010 GN$=STR$(GN): A=LEN(GN$)-1 : GN$=RIGHT$(GN$,A)+STRING$(13-A," ")+"PIC"
2020 LOAD GN$,&H1000
2030 RETURN
3000 DATA 3E,3A,D3,31,21,00,00,11,00,00,01,00,20,ED,B0,3E
3010 DATA 3C,D3,31,C9,D0,00,00,00,00,00,00,00,00,00,00,00
3030 AD=&HB000
3040 FOR I=0 TO 32
3050 READ A$:POKE AD+I,VAL("&H"+A$)
3060 NEXT
3070 RETURN
4000 '
4010 DATA 7,4,0,&H2270,&H2299,&H2166,&H2242,&H20DC,&H20F1,&H1ECC,&H1FF7
4020 DATA 12,1,0,&H21E0,&H2312
4030 DATA 14,1,0,&H2C34,&H2CF7
4040 DATA 14,1,0,&H2C34,&H2CF7
4050 DATA 39,1,5,&H293B,&H29EF
4060 DATA 42,1,1,&H2288,&H2375
4070 DATA 9999
5000 '
5010 READ GN : IF GN=9999 THEN 5040
5020 READ KASHO,OFS
5030 POKE &HE502,OFS
5040 RETURN
6000 '
6010 FOR CTR=1 TO KASHO
6020 READ A2,A1
6030 POKE AD+5,A1 MOD 256 : POKE AD+6,A1\256
6040 POKE AD+8,A2 MOD 256 : POKE AD+9,A2\256
6050 DEF USR=AD : A=USR(0)
6060 NEXT CTR
6070 RETURN

6080 ' ゲーム起動後、テストパターンでstopキーを押し、このプログラムを実行