- Beispiel-Spielverlauf
- Steuerung
Taste A und D bewegen den Skifahrer links/rechts.
Alle 25 Zeilen wird die Piste schmaler, von zuerst 10 bis maximal 5. Der Pistenrand erscheint dann kurz invers.
- Basic-Listing
4 rem ===
5 rem === ski by chrissie 08.2025 ===
6 rem ===
10 print chr$(147)
15 a=rnd(-ti) : rem zufallsgenerator initialisieren
20 x=10 : rem position spieler
25 a=6 : rem linker pfosten
30 sc=0 : rem score
40 w=10 : rem breite der piste
45 p$="x"
50 print "steuerung: a=links, d=rechts"
60 rem for i=1 to 20 : print : next
80 s$=" "
100 rem ===== mainloop =====
110 z=int(rnd(1)*3)-1 : rem -1 / 0 / -1
115 a=a+z
116 if a < 2 then a = 2
117 if a > 38 then a = 38
130 get k$:if k$="a" and x>2 then x=x-1
140 if k$="d" and x<38 then x=x+1
150 l1$=left$(s$,a-1)+p$+left$(s$,w)+p$
155 p$="x"
160 l$=left$(l1$,x) + "*"+mid$(l1$,x+1)
170 print l$
180 if x<a or x>a+w then goto 300
190 sc = sc+1
200 if int(sc/25) * 25 = sc and w > 4 then w=w-1:p$="{rvon}x{rvof}"
210 goto 110
295 rem ===== Ende ==
300 print : print "crash! game over!"
310 print "end-score:";sc
320 end
- Makefile
ski.prg: ski.bas
petcat -w2 -o ski.prg -- ski.bas
x64sc ski.prg
- Download .prg
- Links
https://techtinkering.com/articles/tokenize-detokenize-commodore-basic-programs-using-petcat/
]]>
