home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos3.d64 / getspeeder (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  363b  |  26 lines
  1. 10 DIM A(300)
  2. 20 OPEN 5,8,15,"I0:"
  3. 22 INPUT#5,A,B$,C,D
  4. 25 PRINT A,B$,C,D
  5. 30 FOR I = 40 TO 255
  6. 40 PRINT#5,"M-R"CHR$(I);CHR$(4)
  7. 50 GET#5,X$
  8. 60 X=ASC(X$+CHR$(0))
  9. 70 A(J)=X
  10. 80 J=J+1
  11. 90 NEXTI
  12. 100 FOR I = 0 TO 60
  13. 110 PRINT#5,"M-R"CHR$(I);CHR$(5)
  14. 120 GET#5,X$
  15. 130 X=ASC(X$+CHR$(0))
  16. 140 A(J)=X
  17. 150 J=J+1
  18. 160 NEXTI
  19. 170 CLOSE 5
  20. 180 OPEN 3,8,3,"WORKFILE,S,W"
  21. 200 FOR I=0 TO 260
  22. 210 PRINT#3,CHR$(A(I) );
  23. 220 NEXT I
  24. 230 CLOSE 3
  25. 240 PRINT "ALLES KLAR!"
  26.