home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / auswahlmenue (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  496b  |  23 lines
  1. 10 a=1
  2. 15 print"[147]"
  3. 20 fori=1to6
  4. 30 readm$(i)
  5. 40 printtab(10)m$(i)
  6. 50 next
  7. 60 gosub100
  8. 70 print"[147]sie waehlten punkt"a
  9. 80 end:rem hier koennte dann verzweigung erfolgen
  10. 90 datapunkt 1,punkt 2,punkt 3,punkt 4,punkt 5,punkt 6
  11. 100 rem *******************************
  12. 105 rem hier beginnt die auswahlroutine
  13. 110 poke214,a+4:poke211,10:sys58640:print""m$(a)
  14. 120 getx$:ifx$=""then120
  15. 130 ifx$=chr$(13)thenreturn
  16. 140 ifx$=""then180
  17. 150 poke214,a+4:poke211,10:sys58640:printm$(a)
  18. 160 a=a-1:ifa<1thena=1
  19. 170 goto110
  20. 180 poke214,a+4:poke211,10:sys58640:printm$(a)
  21. 190 a=a+1:ifa>6thena=6
  22. 200 goto110
  23.