home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9207.d64 / filelaenge (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  360b  |  12 lines
  1. 10 OPEN1,8,15:X$="M-E"+CHR$(5)+CHR$(2):RESTORE
  2. 20 READ X:IFX>-1THENX$=X$+CHR$(X):GOTO20
  3. 30 OPEN2,8,2,N$+",P,R":PRINT#1,X$
  4. 40 PRINT#1,"M-R"CHR$(21)CHR$(0)CHR$(1):GET#1,X0$
  5. 50 PRINT#1,"M-R"CHR$(1)CHR$(3)CHR$(1):GET#1,X1$
  6. 60 CLOSE2:CLOSE1
  7. 70 BL=ASC(X0$+CHR$(0)):L=BL*254+ASC(X1$+CHR$(0))-3:BL=BL+1
  8. 80 DATA 169,0,133,21,166,24,164,25,134,6,132,7
  9. 90 DATA 169,128,133,0,165,0,48,252,173
  10. 100 DATA0,3,240,10,230,21,174,0,3,172,1,3
  11. 110 DATA16,229,96,-1
  12.