home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8609.d64 / viza.patch.bas (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  466b  |  14 lines
  1. 100 DATA 169,24,133,43,169,121,133,44,169,37,133,45,169,133,133,46,169,45
  2. 110 DATA 141,25,3,141,23,3,169,152,141,24,3,141,22,3,169,177,141,248,7,169
  3. 120 DATA 120,141,0,208,169,52,141,1,208,169,30,141,24,208,169,14,141,39,208
  4. 130 DATA 169,8,76,210,255
  5. 140 FORI=1TO62:READA:B=B+A:NEXT
  6. 150 IF B<>6718 THENPRINT"FEHLER IN DATAS":END
  7. 160 PRINT"DISKETTE EINLEGEN! <RETURN>"
  8. 170 GETA$:IFA$<>CHR$(13)THEN170
  9. 180 RESTORE
  10. 190 OPEN2,8,2,"VIZA.PATCH,P,W"
  11. 200 PRINT#2,CHR$(0);CHR$(4);: REM LADEADRESSE $0400
  12. 210 FORI=1TO62:READA:PRINT#2,CHR$(A);:NEXT
  13. 220 CLOSE2
  14.