home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 132
/
Tiger_Disk_132_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
toolkit-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
33 lines
10 rem ifa=0thena=1:load"text-toolkit*",8,1
15 ifpeek(32768)<>76andpeek(32771)<>76thenload"text-toolkit*",8,1
20 poke53280,6:poke53281,6:print"[147]"
30 print" tiger-disk - beispiel-menue "
40 print" 1 [146] daten-seite 1 anzeigen"
50 print" 2 [146] daten-seite 2 anzeigen"
60 print" 3 [146] daten-seite 3 anzeigen"
70 print" 4 [146] daten-seite 4 anzeigen"
80 print" 5 [146] daten-seite 5 anzeigen"
90 print" 6 [146] daten-seite 6 anzeigen"
100 print" 7 [146] programm beenden"
107 rem
108 rem ****************
109 rem
110 sys32771 :rem screen speichern
111 rem
112 rem ****************
113 rem
120 geta$:ifa$<"1"ora$>"7"then120
130 ifa$="7"thenprint"[147]":sys32768:end
140 onval(a$)gosub170,180,190,200,210,220
148 rem
149 rem ***********************
150 sys32774:rem screen wiederherstellen
152 rem ***********************
160 goto120
170 print"[147]na, guck ma...!":poke198,0:wait198,1:poke198,0:return
180 print"[147]bitte taste...!":poke198,0:wait198,1:poke198,0:return
190 print"[147]du willst wohl alles sehen...":poke198,0:wait198,1:poke198,0:return
200 print"[147]klar!: hier steht auch noch was...":poke198,0:wait198,1:poke198,0:return
210 print"[147]...auch diese seite is' da...!":poke198,0:wait198,1:poke198,0:return
220 print"[147]...nu is' aber schluss...!":poke198,0:wait198,1:poke198,0:return