home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8612.d64 / auswahlmenue (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.