home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh24b.d64
/
tastaturabfr.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
266b
|
14 lines
100 REM TASTATURABFRAGE MIT SPRUNG
200 REM:
300 REM VORHER:
400 :
410 GETA$:IFA$=""THEN410
420 IFA$="A"THEN2000:REM PROGRAMMTEIL A
430 IFA$="B"THEN3000:REM PROGRAMMTEIL B
440 IFA$="X"THEN END:REM ENDE
450 GOTO410
499 :
500 REM NACHHER:
600 :
610 GETA$:ON1-(A$="A")-2*(A$="B")-3*(A$="X"GOTO610,2000,3000:END