home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos9.d64 / cardf.bugkiller (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  613b  |  30 lines
  1. 100 DIM Z(256):DR=8:NV=29
  2. 110 OPEN 15,DR,15:OPEN 2,DR,2,"#"
  3. 120 TR=18:SE=1:GOSUB 1000:REM 1581 USE 40,3
  4. 130 TR=Z(3):SE=Z(4):GOSUB 1000
  5. 140 TR=Z(4):SE=Z(5):GOSUB 1000
  6. 150 FORT=1TO5
  7. 160 TR=Z(0):SE=Z(1):GOSUB 1000
  8. 170 NEXT
  9. 180 Z(186)=NV:Z(236)=NV:GOSUB 2000
  10. 190 TR=Z(0):SE=Z(1):GOSUB 1000
  11. 200 Z(32)=NV:Z(82)=NV:Z(132)=NV:Z(182)=NV:Z(232)=NV:GOSUB 2000
  12. 210 TR=Z(0):SE=Z(1):GOSUB 1000
  13. 220 Z(28)=NV:GOSUB 2000
  14. 230 TR=Z(0):SE=Z(1):GOSUB 1000
  15. 240 TR=Z(0):SE=Z(1):GOSUB 1000
  16. 250 Z(142)=NV:GOSUB 2000
  17. 260 CLOSE 2:CLOSE 15:END
  18. 1000 PRINT#15,"U1"2;0;TR;SE
  19. 1010 FOR X=0TO255
  20. 1020 GET#2,A$:A$=A$+CHR$(0)
  21. 1030 Z(X)=ASC(A$)
  22. 1040 NEXT
  23. 1050 RETURN
  24. 2000 PRINT#15,"B-P:"2;0
  25. 2010 FOR X=0TO255
  26. 2020 PRINT#2,CHR$(Z(X));
  27. 2030 NEXT
  28. 2040 PRINT#15,"U2"2;0;TR;SE
  29. 2050 RETURN
  30.