home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / on.letters (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  617 b   |  22 lines
  1. 10 print"[147]":fl=0
  2. 20 fori=1to9
  3. 30 printtab(10)""chr$(i+96);
  4. 40 print"[146] [205]enuepunkt"i:print
  5. 50 next
  6. 60 gett$:ift$<"a"then60
  7. 70 onasc(t$)-64gosub1000,2000,3000,4000,5000,6000,7000,8000,9000
  8. 80 iffl=0then60
  9. 85 iffl=1then10
  10. 100 print:print:printtab(5)"[205]it <[211][208][193][195][197]> zurueck zum [205]enue!
  11. 110 [151]198,0:[146]198,1
  12. 120 fl[178]1:[142]
  13. 1000 [153]"load(NULL)nterprg. zu (NULL)enupunkt 1":[141]100:[142]
  14. 2000 [153]"load(NULL)nterprg. zu (NULL)enupunkt 2":[141]100:[142]
  15. 3000 [153]"load(NULL)nterprg. zu (NULL)enupunkt 3":[141]100:[142]
  16. 4000 [153]"load(NULL)nterprg. zu (NULL)enupunkt 4":[141]100:[142]
  17. 5000 [153]"load(NULL)nterprg. zu (NULL)enupunkt 5":[141]100:[142]
  18. 6000 [153]"load(NULL)nterprg. zu (NULL)enupunkt 6":[141]100:[142]
  19. 7000 [153]"load(NULL)nterprg. zu (NULL)enupunkt 7":[141]100:[142]
  20. 8000 [153]"load(NULL)nterprg. zu (NULL)enupunkt 8":[141]100:[142]
  21. 9000 [153]"load(NULL)nterprg. zu (NULL)enupunkt 9":[141]100:[142]
  22.