10 PRINT"[147][215]OULD YOU LIKE A DEMO OF [199][197][212]-[208][210][201][206][212][160]?"
20 POKE198,0:WAIT198,1:GETA$
30 IFA$="N"THEN63010
32 PRINT"[196]O YOU HAVE A PRINTER[160]?":POKE198,0:WAIT198,1:GETA$
34 IFA$="N"THENPRINT"[211]ORRY..YOU NEED A PRINTER FOR THIS.":FORDL=1TO2000:NEXT:GOTO63010
35 PRINT"[147][212]URN ON YOUR PRINTER AND PRESS A KEY.":POKE198,0:WAIT198,1:GETA$
37 OPEN4,4,7:PRINT#4:CLOSE4
40 PRINT"[147]LIST7000-7060":PRINT"GOTO50":POKE631,13:POKE632,13:POKE198,2:END
50 PRINT"      [200]ERE IS THE PROGRAM"
60 :
7000 OPEN1,3:OPEN2,4:PRINT#1,CHR$(19);
7010 FORM=1TO25:A$="               "
7020 FORL=1TO40:GET#1,B$:A$=A$+B$:NEXT
7030 R$=CHR$(13):IFB$=R$THEN7050
7040 PRINT#2,A$:NEXTM:GOTO7060
7050 PRINT#2,A$;:NEXTM
7060 PRINT#1:CLOSE1:PRINT#2:CLOSE2
7070 :   REM    END
63000 PRINT"[147][215]OULD YOU LIKE ANOTHER COPY?":POKE198,0:WAIT198,1:GETA$
63002 IFA$="Y"THEN35
63004 :
63010 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:END