home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 33
/
64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_A.d64
/
prometheus
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
46 lines
5 poke53248+33,0:poke53248+32,0:print"[147]"
10 iffl=1thenfl=2:loadn$,8,1
12 iffl=2thensys49152
20 print" prometheus v 1.0 "
25 print" menu: "
30 print" [218]1[218] anzahl einstellen "
35 print" [218]2[218] farben einstellen "
40 print" [218]3[218] farben ordnen "
45 print" [218]4[218] saven "
50 print" [218]5[218] laden "
55 print" [218]6[218] end"
60 geta$:a=val(a$)
70 ona goto 100,200,300,400,500,600
80 goto 60
100 input"[147]wieviele streifen";an
105 poke 49308,an
110 input"ok ";a$
120 ifa$="j"then 5
130 goto 100
200 input"[147] welchen farbcode ";fc:
205 print
210 fori=49361+(8*fc)toi+7:printpeek(i);:nexti
215 print:print
220 fori=49361+(8*fc)toi+7:print i-(49361+(8*fc));":";peek(i);" =>";:input a
223 print
225 poke i,a:next
230 input" ok";a$
235 ifa$="j"then 5
240 goto 200
300 input "[147]welchen streifen";s
310 input "welchen farbcode";fc
320 f1=49361+(8*fc)
330 a1=int(f1/256):a2=f1-(256*a1)
340 s1=49335+(2*s)
350 poke s1,a2:pokes1+1,a1
360 input" ok";a$
370 ifa$="j"then5
380 goto300
400 input"[147]filename:";n$
405 sys(57812)n$,8
410 poke193,00:poke194,192:poke174,88:poke175,193:sys62957
420 goto5
500 input"[147]filename:";n$
510 fl=1:goto10
600 end