10000 MEMORY &7F00:LOAD"!drvdt",&8000 10010 z=&7F01:MODE 0:FOR i=0 TO 7:INK i,0:NEXT:BORDER 0:GOSUB 40500:z=&7F01:RESTORE 10020 GOSUB 30000 10030 DATA 6,56,&dd,&6e,2,&dd,&66,3 10040 DATA &5e,&23,&56,&dd,&6e,0 10050 DATA &dd,&66,1,&1a,&77,&d5 10060 DATA &e5,&11,0,8,&19,&77 10070 DATA &e1,&d1,&23,&13,&10,241 10080 DATA &dd,&6e,2,&dd,&66,3 10090 DATA &73,&23,&72,201,-1 11490 LOCATE 1,20:INK 1,26:INK 2,11:INK 3,9:INK 4,12:INK 6,6:INK 7,24 11500 z%=&8000:FOR i%=0 TO 240 STEP 80:FOR i1=0 TO 16383 STEP 4096:z1=&C00C+i1+i%:CALL &7F01,àz%,z1:NEXT:NEXT 11520 PEN 5:INK 5,15:a$="Don't be HEARTLESS":i=1:GOSUB 15000:a$="Stop SMOKING!":i=19:GOSUB 15000 11530 PEN 1:LOCATE 2,24:PRINT CHR$(164);"Power House 1987";:LOCATE 6,22:PRINT"A-051-CPC"; 11540 MEMORY &1DFF:GOSUB 20000:CALL &1E00:CALL &2000 15000 i1=INT((24-LEN(a$))/2):FOR i2=1 TO i1:LOCATE i,i2:PRINTCHR$(228);:LOCATE i,25-i2:PRINTCHR$(228);:NEXT 15010 FOR i2=i1+1 TO i1+LEN(a$):LOCATE i,i2:PRINT MID$(a$,i2-i1,1);:NEXT:RETURN 20000 RESTORE 20000:z=&1E00:GOSUB 30000 20010 DATA &21,0,&20,&11,0,&72,&3e,&16 20020 DATA &cd,&a1,&bc,&c9,-1 20070 RETURN 30000 READ z1:IF z1>=0 THEN POKE z,z1:z=z+1:GOTO 30000 ELSE RETURN 40500 RESTORE 40500:z=&7F01:GOSUB 30000:CALL &7F01:RETURN 40510 DATA &21,4,5,&11,0,&84,&cd,&1a,&bc 40520 DATA &e,&80,6,40,&e5,&1a,&77,&23 40530 DATA &13,&10,250,&e1,&cd,&26,&bc 40540 DATA &d,&20,240,&c9,-1 60000 MODE 1:ùTAPE.OUT:PRINT"Master Creation.":MEMORY &1DFF:LOAD"drvdt.bin",&8000 60010 PRINT"Load output tape.":GOSUB 60210 60020 SAVE"!derv",p:SAVE"!drvdt",b,&8000,6144 60040 RUN"!DERVGEN" 60210 PRINT"Press a key when ready.":FOR i=1 TO 100:WHILE INKEY$<>"":WEND:NEXT:WHILE INKEY$="":WEND:RETURN