home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 October / 64er_Magazin_90-10_1990_Markt__Technik_de_Side_A.d64 / ecom (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.