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