home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 13
/
Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
lehr-meister
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
55 lines
10 poke 53281 , 11 : poke 53280 ,11 : print "[155]"
20 print"[147] teachmaster"
30 print" (w) by arno freisinger"
40 print" rossbachstr.17"
50 print" 6434 niederaula 3"
90 for i = 1 to 2000 : next
100 print"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] auswahl [195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
110 print"[194] [194]"
120 print"[194] 1 = lektion 1 [194]"
130 print"[194] [194]"
140 print"[194] 2 = lektion 2 [194]"
150 print"[194] [194]"
160 print"[194] 3 = lektion 3 [194]"
170 print"[194] [194]"
180 print"[194] 4 = lektion 4 [194]"
190 print"[194] [194]"
200 print"[194] 5 = lektion 5 [194]"
210 print"[194] [194]"
220 print"[194] 6 = lektion 6 [194]"
230 print"[194] [194]"
240 print"[194] 7 = lektion 7 [194]"
250 print"[194] [194]"
260 print"[194] 8 = lektion 8 [194]"
270 print"[194] [194]"
280 print"[194] 9 = lektion 9 [194]"
290 print"[194] [194]"
300 print"[194] a = blaettern [194]"
330 print"[194] [194]"
340 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195] taste druecken [195][195][195][195][195][195][195][189]"
350 get a$ : if a$ = "" then 350
360 if a$ = "a" then 400
370 a = val (a$) : if a < 1 or a > 9 then 350
380 f$ = "lektion "+a$
390 load f$ ,8
400 print"[147][176][195][195][195][195][195][195][195][195][195][195] auswahl teil ii [195][195][195][195][195][195][195][195][195][195][174]"
410 print"[194] [194]"
420 print"[194] 1 = lektion 10 [194]"
430 print"[194] [194]"
440 print"[194] 2 = lektion 11 [194]"
445 print"[194] [194]"
460 print"[194] 3 = lektion 12 [194]"
470 print"[194] [194]"
480 print"[194] 4 = lektion 13 [194]"
490 print"[194] [194]"
500 print"[194] 5 = zurueck blaettern [194]"
510 print"[194] [194]"
520 print"[173][195][195][195][195][195][195][195][195][195][195][195][195] taste druecken [195][195][195][195][195][195][195][195][195][189]"
530 get a$ : if a$ = "" then 530
540 if a$ = "5" then 100
550 a = val (a$) : if a < 1 or a > 4 then 530
560 a = a + 9
570 a$ = ""
580 a$ = right$(str$(a),2)
590 goto 380