Gothik

INPUT 'Insert GOTHIK disc and press return'; CALL LEE; DATA 7b,06,df,84,76,27,bb,bb,df,a2,3c,c0,07,41,54,21,cf,00,11,eb,le,01,0a,00,eo,b0,c3,c1,1c,3a,dc,00,ed,5o,c1,1c,21,08,01,0,df,d9,00,21,de,00,22,11,01

10MEMORY 13DFF:MODE 1:PEN 1
20 INK 0,0:INK 1,24:BORDER 0
30 INPUT"Number of cantrips ";nc
40 IF nc=1 OR nc>5 THEN 30
50 addr=ABE00
60 READ byte$
70 IF byte$="Gothik" THEN 120
80 IF byte$="***" THEN POKE addr,2*nc-1
90 POKE addr,VAL(byte$)+byte$
100 addr=addr+1
110 CALL 84000
120 DATA be,f3,21,00,be,22,39,00
130 DATA fb,c3,00,3e,21,42,be,11
140 DATA 3d,81,01,1c,00,ed,00,c3
150 DATA a8,61,3e,80,00,00,00,00
160 DATA 21,00,40,11,00,01,01,bc
170 DATA 3b,ed,b0,af
180 DATA 32,6e,8e
190 DATA 32,6f,8e
200 DATA 32,70,8e
210 DATA 32,c2,1f