start tok64 d64-myzlTd
1 PRINT"{clear}" :POKE53280,5:POKE53281,5
2 PRINT"{home}{white}{reverse on}{space*9}the master of copy ii{space*10}"
3 PRINT"{yellow}{reverse on}{up}{space*4}done by adde to all c-64 users{space*6}"
4 PRINT"{yellow}{reverse on}{down*20}{space*3}{sh space}{space*6}copyright in 1986{space*12}{up}"
5 PRINT"{home}{down*23}{right*31}{reverse on}{yellow}{148} {home}"
6 OPEN15,8,15:INPUT#15,a$,a$,a$,a$:CLOSE15
20 PRINT"{black}{home}{down*3}a {white} copy disc(with bad'tomas disc-cut'"
30 PRINT"{black}{down}b {white} copy disc (to{space*2}1541)"
40 PRINT"{black}{down}c {white} copy disc (with error)
50 PRINT"{black}{down}d {white} files disc-disc
60 PRINT"{black}{down}e {white} files tape-disc
70 PRINT"{black}{down}f {white} files disc-tape
80 PRINT"{black}{down}g {white} files tape-tape
90 PRINT"{black}{down}h {white} org. tape-tape (no{space*2}turbo)
100 PRINT"{black}{down}i {white} scratch files
110 PRINT"{black}{down}j {white} format disc (12 seconds)
120 GETa$:IFa$=""THEN120
131 IFa$="a"THEN1000
132 IFa$="b"THENa$="a":GOTO1000
133 IFa$="c"THEN1000
134 IFa$="d"THEN1000
135 IFa$="e"THEN1000
136 IFa$="f"THEN1000
137 IFa$="g"THEN1000
138 IFa$="h"THEN1000
139 IFa$="i"THENa$="j":GOTO1000
140 IFa$="j"THENGOTO1000
150 GOTO120
1000 PRINT"{clear}":PRINT"{red}load"CHR$(34)a$CHR$(34)",8,1:shit-bull shit"
1010 PRINT"{down*4}run"
1020 POKE631,19:POKE632,13:POKE633,13:POKE634,13
1030 POKE198,4
1040 END
stop tok64
(bastext 1.0)