home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9010a.d64 / run (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  284 b   |  15 lines
  1. 0 REM ECOM V2.4
  2. 1 REM VON
  3. 2 REM JOHANNES TIMMER
  4. 3 REM GELLSOL 3
  5. 4 REM 4190 REICHSWALDE
  6. 5 REM TEL. (0 28 21) 4 81 54
  7. 6 :
  8. 9 POKE53281,0:POKE53280,11:PRINT"[158][147]";
  9. 10 IFA=0THENA=1:LOAD"PTEST",8,1
  10. 20 IFA=1THENA=2:LOAD"CTEST",8,1
  11. 30 OPEN1,8,0,"PTEST"
  12. 40 GET#1,A$:GET#1,B$
  13. 50 CLOSE1
  14. 60 SYSASC(A$+CHR$(0))+256*ASC(B$+CHR$(0))
  15.