home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9010a.d64 / ecom (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  578b  |  23 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,0:PRINT"[144][147]";
  9. 10 POKE56,12:CLR
  10. 20 FORZ=0TO9:READ N$:SYS(57812)N$,8,1:POKE780,0:SYS(65493):NEXTZ
  11. 30 DATA D1,D2,D3,MS,PCOM,CCOM,PEDIT,CEDIT,PSAVE,CSAVE
  12. 60 A=4096
  13. 62 POKE51205,A/256:POKE51204,A-256*PEEK(51205)
  14. 64 POKE51207,PEEK(51205):POKE51206,PEEK(51204)
  15. 70 A=12288
  16. 72 POKE51209,A/256:POKE51208,A-256*PEEK(51209)
  17. 74 POKE51211,PEEK(51209):POKE51210,PEEK(51208)
  18. 80 A=36864+256
  19. 82 POKE51213,A/256:POKE51212,A-256*PEEK(51213)
  20. 84 POKE51215,PEEK(51213):POKE51214,PEEK(51212)
  21. 120 PRINT"[147]SYS16384"
  22. 125 POKE631,19:POKE632,13:POKE198,2
  23.