0 REM THE TRANSACTOR VOLUME 6 ISSUE 05         PAGE 6
10 REM* DATA LOADER FOR "VERIFIZER" *
15 REM FOR VIC/64 WITH CASSETTE TAPE
20 CS=0
30 FOR I=850 TO 980:READ A:POKE I,A
40 CS=CS+A:NEXT I
50 :
60 IF CS<>14821 THEN PRINT"***** DATA ERROR *****": END
70 REM SYS 850 ON, SYS853 OFF
1000 DATA  76,  96,   3, 165, 251, 141,   2,   3, 165
1010 DATA 252, 141,   3,   3,  96, 173,   3,   3, 201
1020 DATA   3, 240,  17, 133, 252, 173,   2,   3, 133
1030 DATA 251, 169, 121, 141,   2,   3, 169,   3, 141
1040 DATA   3,   3,  96, 173, 254,   1, 133,  89, 162
1050 DATA   0, 160,   0, 189,   0,   2, 240,  22, 201
1060 DATA  32, 240,  15, 133,  91, 200, 152,  41,   3
1070 DATA 133,  90,  32, 205,   3, 198,  90,  16, 249
1080 DATA 232, 208, 229,  56,  32, 240, 255, 169,  19
1090 DATA  32, 210, 255, 169,  18,  32, 210, 255, 165
1100 DATA  89,  41,  15,  24, 105,  97,  32, 210, 255
1110 DATA 165,  89,  74,  74,  74,  74,  24, 105,  97
1120 DATA  32, 210, 255, 169, 146,  32, 210, 255,  24
1130 DATA  32, 240, 255, 108, 251,   0, 165,  91,  24
1140 DATA 101,  89, 133,  89,  96
2000 A$="VERIFIZER.SYS850 "
2010 FOR I=850 TO 980
2020 A$=A$+CHR$(PEEK(I)):NEXT
2030 OPEN1,1,1,A$:CLOSE1
2040 END