1 POKE &H6016,0
10 A=0
20 READ A$
30 IF A$="stop" THEN GOTO 70
40 POKE &H9010+A,VAL("&h"+A$)
50 A=A+1
60 GOTO 20
70 A=0
71 READ A$
72 IF A$="stop" THEN GOTO 79
73 POKE &H9110+A,VAL("&h"+A$)
74 A=A+1
75 GOTO 71
79 POKE &H9100,0
80 DEF USR=&H9110
81 POKE &H6034,0:POKE &H6035,4:A=USR (0)
82 IF PEEK(&H6017)<>0 THEN GOTO 100
83 POKE &H9000,&H00:POKE &H9001,&H60
84 POKE &H9002,0:POKE &H9003,1
85 DEF USR=&H9010
86 A=USR (0)
87 POKE &H9000,0:POKE &H9001,&H94
88 POKE &H9002,0:POKE &H9003,4
89 A=USR (0)
90 GOTO 80
100 END
1000 DATA 2a,00,90,ed,5b,02,90,4e,cd,22
1010 DATA 90,23,1b,7a,b3,20,f6,c9,c5,d5
1020 DATA 37,3f,16,0a,f3,3e,c0,30,02,cb
1030 DATA bf,d3,10,06,49,3a,16,60,cb,bf
1040 DATA 3c,10,fe,06,4e,3d,c6,00,20,f7
1050 DATA 37,cb,19,15,20,e1,47,10,fe,fb
1060 DATA d1,c1,c9,stop
2000 DATA 3a,00,91,f6,00,20,08,3e,01,32
2010 DATA 00,91,cd,18,00,21,00,94,22,30
2020 DATA 60,21,00,04,22,32,60,3e,06,cd
2030 DATA 18,00,c9,stop
65525 REM Cassette dumpen naar RS-232