home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 84
/
64er_Magazin_Sonderheft_84_19xx_Markt__Technik_de_Side_B.d64
/
lichtorgel
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
71 lines
100 poke56,96:clr
110 ifpeek(828)=0thenpoke828,1:load"ma.lichtorgel",8,1
120 ifpeek(828)=1thenpoke828,2:sys49152:goto140
130 ifpeek(828)=2thensys49152+24
140 print"[147] optionsmenue"
150 print" [192][192][192][192][192][192][192][192][192][192][192][192]"
160 print"<f1> speicher vorbereiten"
170 print"<f5> laden der daten"
180 print"<f7> speichern der daten"
190 print"<e> zurueck zum editor"
200 poke198,0:wait198,1:getz$
210 :
220 ifz$="[133]"then270 :rem f1
230 ifz$="[135]"then510 :rem f3
240 ifz$="[136]"then600 :rem f5
250 ifz$="e"then130 :rem f7
255 goto200
260 :
270 print"[147] vorbereiten des speichers"
280 print" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
290 print"das zeitraster wird im format"
300 print"stunden,minuten,sekunden,1/60sekunden
310 [153]" , , , ononon"
320 [153]">>hh,mm,ss,xx<< erwartet"
330 [133]t(3),t(2),t(1),t(0)
340 [129]i[178]0[164]3
350 [139]t(i)[179]0[167][153]"eingabefehler !":[137]320
360 [139]t(i)[177]59[167][153]"eingabefehler !":[137]320
370 [130]
380 [129]i[178]0[164]3
390 [151]50018[170]i,t(i)
400 [130]
410 [153]"loaddie abstufung erfolgt"
420 [153]"1/60 sek"t(0)
430 [153]"sekunden"t(1)
440 [153]"minuten "t(2)
450 [153]"stunden "t(3)
460 [153]"ok j/n":[151]198,0:[146]198,1:[161]z$
470 [139]z$[178]"j"[167] 490
480 [158]49152[170]24:[137]140
490 [158]49152
500 :
510 [153]"load laden von daten $ = directory"
511 [153]" tantantantantantantantantantantantantantantan"
520 n$[178]"":[133]"datenname";n$
530 [139]n$[178]"$"[167][158]49152[170]9:[137]520
540 [139]n$[178]""[167]140
550 [139] [195](n$)[177]11[167][153]"eingabefehler nur 11 zeichen erlaubt":[137]520
560 n$[178]"dl."[170]n$
570 [147]n$,8,1
580 [137]130
590 :
600 [153]"load speichern von daten $ = directory"
601 [153]" tantantantantantantantantantantantantantantantantantantan"
610 n$[178]"":[133]"datenname";n$
620 [139]n$[178]"$"[167][158]49152[170]9:[137]610
630 [139]n$[178]""[167]140
640 [139] [195](n$)[177]11[167][153]"eingabefehler nur 11 zeichen erlaubt":[137]610
650 n$[178]"dl."[170]n$
660 [129]i[178]1[164][195](n$)
670 [151] 52991[170]i,[198]([202](n$,i,1)):[130]
680 [151]194,96
690 [151]193,0
700 [151]175,160
710 [151]174,0
720 [151]187,0
730 [151]188,207
740 [151]183,[195](n$)
750 [151]186,8:[151]185,3:[158]62954
760 [137]130