home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
11_6lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
38 lines
1 rem bestimmung der hintergrund- u. rahmenfarbe
2 poke53280,9:poke53281,7
10 print"[147] << wortspiel >>"
20 print"dieses programm kann zum vokabeln-"
25 print"lernen benutzt werden."
30 print"neue worte koennen hinzugefuegt und"
35 print"bereits gelernte vokabeln geloescht wer-";:print"den."
60 read n
70 for i=1 to n
80 read w$,ns
90 for k = 1 to ns
100 read s$(k)
110 next
120 print "uebersetze das wort "w$;""
130 input r$
140 if r$ = "hilfe" then 230
150 for k = 1 to ns
160 if r$ = s$(k) then 210
170 next
180 print"nein! ueberlege noch einmal oder":print"schreibe 'hilfe'!"
190 rem tippen sie list -125 ein, um den anfang der liste zu sehen.
200 goto 130
210 print "richtig!!"
220 goto 270
230 print"";:printw$" bedeutet:"
240 for k=1 to ns
250 print s$(k)
260 next
270 next i
280 rem um ein neues wort hinzuzufuegen wird in den data-befehl in
290 rem zeile 330 die neue anzahl der worte geschrieben, und dann
300 rem werden soviele data-befehle geschrieben, wie fuer die
310 rem vokabel,die anzahl der ueber- setzungen und die uebersetzung
320 rem selbst notwendig sind.(benutzen sie zeilen# > 330)
330 data 2
340 data goal,3,ziel,tor,mal (narbe)
350 data hit,3,stoss,treffer,schlager