Das deutsche QBasic- und FreeBASIC-Forum

[programmer404]

DEF SEG = (&HB800)
CLS
PRINT "Loading"
SLEEP 2
CLS
COLOR 3
PRINT " Loading"
SLEEP 1.1
LOCATE 1, 1: COLOR 15: PRINT " Please wait"
SLEEP 1

FOR s = 15 TO 24: e = 11 * SIN(e / 111): POKE s * 2 - 1, 15
POKE s * 2, 46
NEXT s
SLEEP 2
REM Fortschrittsanzeige
COLOR 8
FOR s = 10 TO 10000: o = o / 2 + 44 * SIN(s / s) + s: NEXT s
CLS
FOR x = 15 TO 60
LOCATE 23, x
PRINT CHR$(176); INT(100 * (x - 15) / (80 - 15)); "%"
SOUND 22222, 18.2 * 1.2 / 8
NEXT

FOR r = 1 TO 20
LOCATE 23 - r, x - 1
PRINT CHR$(176); INT(100 * (r + x - 16) / (80 - 15)); "%"
SOUND 22222, 18.2 * 1.2 / 8
NEXT r

CLS : REM Bildschirm Spielname
FOR x = 1 TO 14
LOCATE x + 3, x: COLOR INT(x / 2) + 2: PRINT "ÛÛÛÛÛÛ"
NEXT x

FOR x = 14 TO 1 STEP -1
LOCATE x + 3, 15 - x: COLOR INT(x / 2) + 2: PRINT "ÛÛÛÛÛÛ"
NEXT x

FOR x = 1 TO 14: REM Buchstabe I
LOCATE x + 3, 25: COLOR INT(x / 2) + 2: PRINT "ÛÛÛ"
NEXT x

FOR x = 1 TO 1: REM unterer Strich vom L
LOCATE x + 16, 28: COLOR INT(x / 2) + 2: PRINT "ÛÛÛÛÛÛ"
NEXT x

FOR x = 1 TO 14: REM Buchstabe I
LOCATE 18 - x, 37: COLOR INT(x / 2) + 2: PRINT "ÛÛÛ"
NEXT x
SLEEP 5
COLOR 7
SCREEN 13
LOCATE 2, 2: PRINT "BEDIENUNG mit der Tastatur"
SLEEP 4
LOCATE 2, 2: PRINT "Û Û Û Û Û Û Û Û Û Û Û Û Û"
LOCATE 24, 1: PRINT "Beenden mit ESC"
y = 80
FOR d = 0 TO 200
FOR x = 0 TO 319 STEP .2: IF INKEY$ = CHR$(27) THEN 100

IF y < 38 THEN SOUND 220, 1: y = y + 5
IF INP(&H60) < 57 THEN t = INP(&H60)
y = y + t / 50 - .3
IF y > 120 THEN SOUND 37, .1: IF INKEY$ = CHR$(27) THEN GOTO 100
CIRCLE (x, y), 14, 0: REM altes Frame l”schen
CIRCLE (x, y), 15, 0: REM altes Frame l”schen
CIRCLE (x, y), 16, 0: REM altes Frame l”schen
IF INKEY$ = CHR$(27) THEN 100
CIRCLE (x - 10, y - 1), 17, 0: REM altes Frame l”schen
CIRCLE (x - 20, y - 2), 18, 0: REM altes Frame l”schen
CIRCLE (x + 10, y + 1), 19, 0: REM altes Frame l”schen
CIRCLE (x + 2, y + 2), 20, 0: REM altes Frame l”schen
CIRCLE (x, y), 13, 3: REM Kreis zeichnen
IF INKEY$ = CHR$(27) THEN 100
NEXT x, d

100 CLS : COLOR 5: LOCATE 6, 17: PRINT "ENDE": SLEEP 5: COLOR 0:
WHILE INKEY$ <> "": WEND: REM Tastaturpuffer leeren sonst
REM Tastatureingaben nach Programmende
REM auf der Eingabeaufforderung sichtbar

[programmer404]

url=https://filehorst.de/d/dridbcol]Datei von filehorst.de laden[/url]

https://filehorst.de/d/dridbcol

[SpionAtom]

Fake Ladezeiten haben wir nicht alle so angefangen
_________________
Inzwischen gehöre ich auch zu den BlitzBasicern. Also verzeiht mir, wenn mir mal ein LOCATE 100, 100 oder dergleichen rausrutscht.

[programmer404]

Ja, Fake-Ladezeiten! Ich habe noch weitere Versionen meines Spielchens auf Lager:

https://www.filemail.com/d/fkiztktpbjkbebc

https://www.filemail.com/d/micqlscyblwhglm

[programmer404]

RANDOMIZE TIMER
DEF SEG = (&HB800)

CONST PI = 3.14
a = SIN(90)
PRINT a
CLS
SCREEN 1 'Mittlere Aufl”sung, blauer Hintergrund.
WINDOW (-3, -2)-(3, 2) 'Wandle Bildschirm in kartesische
'Koordinaten um.
SLEEP 1
FOR n = 237 TO 224 STEP .033

PSET (1, 0) 'Setzt Startpunkt.

FOR Winkel = 0 TO 12 * PI STEP .76
IF INKEY$ = CHR$(27) THEN 100
OUT &H43, &HB6
OUT &H42, &HFF
OUT &H42, 64
OUT &H43, &H90
r = INP(&H61) OR 3
OUT &H61, 32 * SIN((r + 1) * (1 + x)) + y
OUT &H42, 1
r = 1 + SIN(n * Winkel) 'Polargleichung f�r "Bl�te".
x = r * COS(Winkel) 'Wandle Polarkoordinaten in kartesische
y = r * SIN(Winkel) 'Koordinaten um.
COLOR 2, x
LINE -(x, y) 'Zeichne eine Gerade vom alten zum neuen
'Punkt.
IF n > 230 < 234 THEN LOCATE 5 + n / 27, 14: COLOR 8: PRINT "Bl�te":
NEXT Winkel, n

SCREEN 8: PRINT " changing screen-mode"

CLS
PRINT "Loading": OPEN "creativa.exe" FOR OUTPUT AS #1
COLOR 8: PRINT "Please wait"
REM Forchrittsanzeige
COLOR 9
SCREEN 0: PRINT "fucke": PRINT "gucke": PRINT "schrott"
CLS
RANDOMIZE TIMER



COLOR 11
SCREEN 13
0 CLS
COLOR 5
PRINT " (S)tart"
PRINT ""
COLOR 3
PRINT " (H)ilfe"
PRINT ""
COLOR 1
PRINT " (C)redits"
COLOR 9
PRINT " (E)nde"

1 IF INP(&H60) = 18 THEN END
IF INP(&H60) = 35 THEN GOTO 3
IF INP(&H60) = 31 THEN GOTO 10
IF INP(&H60) = 46 THEN GOTO 2
GOTO 1
2 IF INP(&H60) = 46 THEN CLS : PRINT "programmed by: Sebastian Grashoff, Mozartstraáe 55, 32049 Herford": IF INP(&H60) = 18 THEN GOTO 0: IF INP(&H60) = 31 THEN GOTO 10: GOTO 2
3 IF INP(&H60) = 35 THEN CLS : LOCATE 1, 1: COLOR 15: PRINT "Steuerung mit den Tasten T und G": LOCATE 2, 1: PRINT "Kommen Sie den Planken nicht zu nah!": LOCATE 3, 1: PRINT "Sie haben gewonnen, wenn Sie 850 Punkte": LOCATE 4, 1: PRINT _
"erreicht haben": IF INP(&H60) = 18 THEN GOTO 0: GOTO 3

10 CLS
LOCATE 2, 1: COLOR 15: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
LOCATE 23, 1: COLOR 15: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
v = .314
y = 100: REM vertikale Startposition des Raumschiffs
t = 10.1: REM Startrichtung
sp = 2
FOR d = 0 TO 200
COLOR INT(d / 6)
FOR x = 0 TO 360 STEP sp * (2 * SIN(d / 6) + .1) + .5: IF INKEY$ = CHR$(27) THEN 100
IF p > 850 THEN GOTO 1000
IF p < -20 THEN CLS : LOCATE 9, 20: COLOR 12: PRINT " Loser! Loser!": SOUND 1440, 18.2 * 1.5: PRINT "Shame on you!": PRINT "Fuckhead": END
LOCATE 1, 1: COLOR 6: PRINT p: LOCATE 1, 32: COLOR 5: PRINT "Level"; 1 + INT(d / 6)


p = INT(d * 15 - a): REM Punktestand ermitteln
IF y < 24 + d / 6 THEN GOSUB 200: COLOR 0 + d
IF INP(&H60) = 20 THEN t = -1 'Tastenbelegung
IF INP(&H60) = 34 THEN t = 1.8
IF INP(&H60) = 40 THEN sp = sp + 1
IF INP(&H60) = 41 THEN sp = sp - 1
y = y + t / 25 - .5
IF y > 155 THEN GOSUB 201: COLOR 0 + d
IF INKEY$ = CHR$(27) THEN GOTO 100
CIRCLE (xx, yy), 13, 0, , , v - INT(d / 6): REM alten Kreis (Frame) l”schen
CIRCLE (xx, yy), 12, 0, , , v - INT(d / 6)
CIRCLE (xx, yy), 11, 0, , , v - INT(d / 6)
CIRCLE (xx, yy), 10, 0, , , v - INT(d / 6)
CIRCLE (xx, yy), 9, 0, , , v - INT(d / 6)
CIRCLE (xx, yy), 8, 0, , , v + INT(d / 6)
CIRCLE (xx, yy), 7, 0, , , v + INT(d / 6)
IF d > 6 THEN ps = 1
IF d > 11 THEN ps = 0
IF d > 17 THEN ps = 2
IF d > 23 THEN ps = 0
IF d > 29 THEN ps = 3
IF ps = 1 THEN SOUND 555 + 2 * x - y, 1
IF ps = 2 THEN SOUND 1555 - 2 * x - y, .6
IF ps = 3 THEN SOUND 440, 1
CIRCLE (x, y), 13, INT(d / 6) + v * SIN(x + 1) + 80, , , v + INT(d / 6): REM Kreis zeichnen
CIRCLE (x, y), 12, INT(d / 6) + v * SIN(x + 2) + 81, , , v + INT(d / 6)
CIRCLE (x, y), 11, INT(d / 6) + v * SIN(x + 3) + 82, , , v + INT(d / 6)
CIRCLE (x, y), 10, INT(d / 6) + v * SIN(x + 4) + 83, , , v + INT(d / 6)
CIRCLE (x, y), 9, INT(d / 6) + 1 * SIN(x + 5) + 3, , , v + INT(d / 6)
CIRCLE (x, y), 8, INT(d / 6) + 2 * SIN(x + 6) + 2, , , v + INT(d / 6)
CIRCLE (x, y), 7, INT(d / 6) + 3 * SIN(x + 7) + 4, , , v + INT(d / 6)
IF INKEY$ = CHR$(27) THEN 100
xx = x: yy = y
NEXT x, d

100 SCREEN 13: CLS : k = .12
LOCATE 6, 17: PRINT " ENDE"
FOR h = 0 TO 20: SOUND 37 + h, 3: LOCATE 6, 17
OUT &H43, &HB6
OUT &H42, &HFF
OUT &H42, 9
OUT &H43, &H90
OUT &H61, h
OUT &H42, k



COLOR 8 + h: PRINT " ENDE": k = 21.12 * (SIN(k)) + k: NEXT h: COLOR 8

WHILE INKEY$ <> "": WEND: REM Tastaturpuffer leeren sonst
REM Tastatureingaben nach Programmende
REM auf der Eingabeaufforderung sichtbar
101 END

200 y = y + 25: REM Bildschirm soll bei Kollision mit Planke aufblinken
a = a + 1

FOR bc = 10 TO 920
OUT &H3C8, 0
OUT &H3C9, 255
OUT &H3C9, 255
OUT &H3C9, 255


OUT &H3C8, 0
OUT &H3C9, 0
OUT &H3C9, 0
OUT &H3C9, 0

NEXT bc
RETURN

201 y = y - 25
a = a + 1

FOR bc = 10 TO 920
OUT &H3C8, 0
OUT &H3C9, 255
OUT &H3C9, 255
OUT &H3C9, 255


OUT &H3C8, 0
OUT &H3C9, 0
OUT &H3C9, 0
OUT &H3C9, 0

NEXT bc
RETURN


1000 LOCATE 11, 17: COLOR 12: PRINT "WINNER": FOR r = 1 TO 20: POKE 12 * 80 + r, r: SOUND 1000 + RND * 152, 3: NEXT r: END
1001 RETURN
10000 RETURN

[programmer404]

RANDOMIZE TIMER
DEF SEG = (&HB800)

CONST PI = 3.14
a = SIN(90)
PRINT a
CLS
SCREEN 1 'Mittlere Aufl”sung, blauer Hintergrund.
WINDOW (-3, -2)-(3, 2) 'Wandle Bildschirm in kartesische
'Koordinaten um.
SLEEP 1
FOR n = 237 TO 224 STEP .033

PSET (1, 0) 'Setzt Startpunkt.

FOR Winkel = 0 TO 12 * PI STEP .76
IF INKEY$ = CHR$(27) THEN 100
OUT &H43, &HB6
OUT &H42, &HFF
OUT &H42, 64
OUT &H43, &H90
r = INP(&H61) OR 3
OUT &H61, 32 * SIN((r + 1) * (1 + x)) + y
OUT &H42, 1
r = 1 + SIN(n * Winkel) 'Polargleichung f�r "Bl�te".
x = r * COS(Winkel) 'Wandle Polarkoordinaten in kartesische
y = r * SIN(Winkel) 'Koordinaten um.
COLOR 2, x
LINE -(x, y) 'Zeichne eine Gerade vom alten zum neuen
'Punkt.
IF n > 230 < 234 THEN LOCATE 5 + n / 27, 14: COLOR 8: PRINT "Bl�te":
NEXT Winkel, n

SCREEN 8: PRINT " changing screen-mode"

CLS
PRINT "Loading": OPEN "creativa.exe" FOR OUTPUT AS #1
COLOR 8: PRINT "Please wait"
REM Forchrittsanzeige
COLOR 9
SCREEN 0: PRINT "fucke": PRINT "gucke": PRINT "schrott"
CLS
RANDOMIZE TIMER



COLOR 11
SCREEN 13
0 CLS
COLOR 5
PRINT " (S)tart"
PRINT ""
COLOR 3
PRINT " (H)ilfe"
PRINT ""
COLOR 1
PRINT " (C)redits"
COLOR 9
PRINT " (E)nde"

1 IF INP(&H60) = 18 THEN END
IF INP(&H60) = 35 THEN GOTO 3
IF INP(&H60) = 31 THEN GOTO 10
IF INP(&H60) = 46 THEN GOTO 2
GOTO 1
2 IF INP(&H60) = 46 THEN CLS : PRINT "programmed by: Sebastian Grashoff, Mozartstraáe 55, 32049 Herford": IF INP(&H60) = 18 THEN GOTO 0: IF INP(&H60) = 31 THEN GOTO 10: GOTO 2
3 IF INP(&H60) = 35 THEN CLS : LOCATE 1, 1: COLOR 15: PRINT "Steuerung mit den Tasten T und G": LOCATE 2, 1: PRINT "Kommen Sie den Planken nicht zu nah!": LOCATE 3, 1: PRINT "Sie haben gewonnen, wenn Sie 850 Punkte": LOCATE 4, 1: PRINT _
"erreicht haben": IF INP(&H60) = 18 THEN GOTO 0: GOTO 3

10 CLS
LOCATE 2, 1: COLOR 15: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
LOCATE 23, 1: COLOR 15: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
v = .314
y = 100: REM vertikale Startposition des Raumschiffs
t = 10.1: REM Startrichtung
sp = 2
FOR d = 0 TO 200
COLOR INT(d / 6)
FOR x = 0 TO 360 STEP sp * (2 * SIN(d / 6) + .1) + .5: IF INKEY$ = CHR$(27) THEN 100
IF p > 850 THEN GOTO 1000
IF p < -20 THEN CLS : LOCATE 9, 20: COLOR 12: PRINT " Loser! Loser!": SOUND 1440, 18.2 * 1.5: PRINT "Shame on you!": PRINT "Fuckhead": END
LOCATE 1, 1: COLOR 6: PRINT p: LOCATE 1, 32: COLOR 5: PRINT "Level"; 1 + INT(d / 6)


p = INT(d * 15 - a): REM Punktestand ermitteln
IF y < 24 + d / 6 THEN GOSUB 200: COLOR 0 + d
IF INP(&H60) = 20 THEN t = -1 'Tastenbelegung
IF INP(&H60) = 34 THEN t = 1.8
IF INP(&H60) = 40 THEN sp = sp + 1
IF INP(&H60) = 41 THEN sp = sp - 1
y = y + t / 25 - .5
IF y > 155 THEN GOSUB 201: COLOR 0 + d
IF INKEY$ = CHR$(27) THEN GOTO 100
CIRCLE (xx, yy), 13, 0, , , v - INT(d / 6): REM alten Kreis (Frame) l”schen
CIRCLE (xx, yy), 12, 0, , , v - INT(d / 6)
CIRCLE (xx, yy), 11, 0, , , v - INT(d / 6)
CIRCLE (xx, yy), 10, 0, , , v - INT(d / 6)
CIRCLE (xx, yy), 9, 0, , , v - INT(d / 6)
CIRCLE (xx, yy), 8, 0, , , v + INT(d / 6)
CIRCLE (xx, yy), 7, 0, , , v + INT(d / 6)
IF d > 6 THEN ps = 1
IF d > 11 THEN ps = 0
IF d > 17 THEN ps = 2
IF d > 23 THEN ps = 0
IF d > 29 THEN ps = 3
IF ps = 1 THEN SOUND 555 + 2 * x - y, 1
IF ps = 2 THEN SOUND 1555 - 2 * x - y, .6
IF ps = 3 THEN SOUND 440, 1
CIRCLE (x, y), 13, INT(d / 6) + v * SIN(x + 1) + 80, , , v + INT(d / 6): REM Kreis zeichnen
CIRCLE (x, y), 12, INT(d / 6) + v * SIN(x + 2) + 81, , , v + INT(d / 6)
CIRCLE (x, y), 11, INT(d / 6) + v * SIN(x + 3) + 82, , , v + INT(d / 6)
CIRCLE (x, y), 10, INT(d / 6) + v * SIN(x + 4) + 83, , , v + INT(d / 6)
CIRCLE (x, y), 9, INT(d / 6) + 1 * SIN(x + 5) + 3, , , v + INT(d / 6)
CIRCLE (x, y), 8, INT(d / 6) + 2 * SIN(x + 6) + 2, , , v + INT(d / 6)
CIRCLE (x, y), 7, INT(d / 6) + 3 * SIN(x + 7) + 4, , , v + INT(d / 6)
IF INKEY$ = CHR$(27) THEN 100
xx = x: yy = y
NEXT x, d

100 SCREEN 13: CLS : k = .12
LOCATE 6, 17: PRINT " ENDE"
FOR h = 0 TO 20: SOUND 37 + h, 3: LOCATE 6, 17
OUT &H43, &HB6
OUT &H42, &HFF
OUT &H42, 9
OUT &H43, &H90
OUT &H61, h
OUT &H42, k



COLOR 8 + h: PRINT " ENDE": k = 21.12 * (SIN(k)) + k: NEXT h: COLOR 8

WHILE INKEY$ <> "": WEND: REM Tastaturpuffer leeren sonst
REM Tastatureingaben nach Programmende
REM auf der Eingabeaufforderung sichtbar
101 END

200 y = y + 25: REM Bildschirm soll bei Kollision mit Planke aufblinken
a = a + 1

FOR bc = 10 TO 920
OUT &H3C8, 0
OUT &H3C9, 255
OUT &H3C9, 255
OUT &H3C9, 255


OUT &H3C8, 0
OUT &H3C9, 0
OUT &H3C9, 0
OUT &H3C9, 0

NEXT bc
RETURN

201 y = y - 25
a = a + 1

FOR bc = 10 TO 920
OUT &H3C8, 0
OUT &H3C9, 255
OUT &H3C9, 255
OUT &H3C9, 255


OUT &H3C8, 0
OUT &H3C9, 0
OUT &H3C9, 0
OUT &H3C9, 0

NEXT bc
RETURN


1000 LOCATE 11, 17: COLOR 12: PRINT "WINNER": FOR r = 1 TO 20: POKE 12 * 80 + r, r: SOUND 1000 + RND * 152, 3: NEXT r: END
1001 RETURN
10000 RETURN

[programmer404]

zt = TIMER
kb = 1: REM Kollisionsbehandlung
RANDOMIZE TIMER
DEF SEG = (&HB800)
CLS
SCREEN 13 'Mittlere Aufl”sung, blauer Hintergrund.

CONST PI = 3.141593
SCREEN 1: COLOR 13 'Mittlere Aufl”sung, blauer Hintergrund.
WINDOW (-3, -2)-(3, 2) 'Wandle Bildschirm in kartesische
'Koordinaten um.
N = 5
CLS
PSET (1, 0) 'Setzt Startpunkt.
FOR Winkel = 0 TO 2 * PI STEP .02
R = 1 + SIN(N * Winkel) 'Polargleichung f�r "Bl�te".
x = R * COS(Winkel) 'Wandle Polarkoordinaten in kartesische
y = R * SIN(Winkel) 'Koordinaten um.
LINE -(x, y) 'Zeichne eine Gerade vom alten zum neuen
'Punkt.
NEXT

FOR er = 1 TO 2900: fk = 89 + 88 * SIN(SIN(fk / (SIN(fk + 1)))):
NEXT er


SCREEN 0: PRINT " changing screen-mode..."

CLS
PRINT "Loading": OPEN "creativa.exe" FOR OUTPUT AS #1
COLOR 8: PRINT "Please wait"
REM Forchrittsanzeige
SCREEN 13: PRINT "fucke": PRINT "spucke": PRINT "schrott"
CLS
RANDOMIZE TIMER
COLOR 9
PRINT " "
PRINT " "
PRINT " ÛßßÜ Û Û Û Û ß  "
PRINT " ÛÜÜß ßßßÜ Û Û ßÛß ßßßÜ Üßßß ßÛß ßÛ Üßßß Üßßß "
PRINT " Û Û ÜßßßÛ Û Û Û Ü ÜßßßÛ ßßÜ Û Ü Û Û ßßÜ "
PRINT " ßßß ßßßß ßß ßß ß ßßßß ßßß ß ßßß ßßß ßßß "
CLS
OUT &H3C8, 0
OUT &H3C9, 61
OUT &H3C9, 117
OUT &H3C9, 12

PRINT "Spaceball"
ae = 0: ea = 80
be = 0: eb = 80
FOR d = 150 TO 167
FOR y = ae TO ea
IF INKEY$ = CHR$(27) THEN 10
FOR x = be TO eb
IF INKEY$ = CHR$(27) THEN 10
FOR g = 0 TO 11
CIRCLE (4 * x + 3 * SIN(x) + 32, 4 * y + 40), g, POINT(x, y) * d
NEXT g
NEXT x, y, d: LOCATE 1, 1: PRINT " "

FOR er = 1 TO 12900: fk = 89 + 88 * SIN(SIN(fk / (SIN(fk + 1)))):
IF INKEY$ = CHR$(27) THEN 100
NEXT er

c = 0
COLOR 11

CLS : SCREEN 13
0 IF c > 30 THEN GOTO 10: c = c + 3
fc = fc + 2: IF fc > 206 THEN fc = 100

LOCATE 3
PRINT ""
PRINT " (S)tart"
PRINT ""
PRINT " (H)ilfe"
PRINT ""
PRINT " (C)redits"
PRINT ""
PRINT " (E)xit to OS"
LOCATE 4, 16: COLOR fc + 10: PRINT "(S)"
LOCATE 6, 16: COLOR fc + 20: PRINT "(H)"
LOCATE 8, 16: COLOR fc + 30: PRINT "(C)"
LOCATE 10, 16: COLOR fc + 40: PRINT "(E)"
1
IF INP(&H60) = 18 THEN END
IF INP(&H60) = 35 THEN CLS : SHELL "type manual.txt": DO: LOOP UNTIL INKEY$ = CHR$(27): CLS
IF INP(&H60) = 31 THEN GOTO 10
IF INP(&H60) = 46 THEN CLS : SHELL "type credits.txt": DO: LOOP UNTIL INKEY$ = CHR$(27): CLS
IF INKEY$ = CHR$(27) THEN GOTO 10
GOTO 0

10
CLS
LOCATE 2, 1: COLOR 15: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
LOCATE 23, 1: COLOR 15: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
LOCATE 24, 29: PRINT "made on Covid"
v = 1.728: REM Form des Raumschiffs
y = 100: REM vertikale Startposition des Raumschiffs
t = 10.5: REM Startrichtung
COLOR 0
FOR d = 0 TO 200: CLS
FOR x = 0 TO 360 STEP s + 1: IF INKEY$ = CHR$(27) THEN GOTO 0
xx = x - 1: yy = y
IF INP(&H60) < 40 THEN t = INP(&H60)
s = INP(&H60) / 50
y = y + t / 25 - .5

v = .36
gh = 4

IF P > 849 THEN GOTO 1000
IF P < -19 THEN CLS : LOCATE 9, 20: COLOR 12: PRINT " Loser! Loser!": SOUND 1440, 18.2 * 1.5: PRINT "Shame on you!": PRINT "Fuckhead": END
LOCATE 1, 1: COLOR 6: PRINT P
IF INT(d / 6) < 10 THEN LOCATE 1, 33: COLOR 9: PRINT "Level"; 1 + INT(d / 6)
IF INT(d / 6) > 9 THEN LOCATE 1, 32: COLOR 10: PRINT "Level"; 1 + INT(d / 6)
IF INT(d / 6) > 99 THEN LOCATE 1, 31: COLOR 11: PRINT "Level"; 1 + INT(d / 6)
P = INT(d * 15 - a): REM Punktestand ermitteln

cf = x: IF cf > 255 THEN cf = 40: nf = 40
n2 = y: IF cf > 255 THEN cf = 50: nf = 50
IF ps = 3 THEN SWAP cf, n2
IF y < 18 THEN GOSUB 200
IF y > 155 THEN GOSUB 201

LOCATE 2, 1: COLOR cf: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
LOCATE 23, 1: COLOR n2: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"


IF INKEY$ = CHR$(27) THEN GOTO 0
REM alten Kreis (Frame) l”schen


CIRCLE (xx, yy), 13, 0, , , v - INT(d / 6)
CIRCLE (x, y), 13, 9, , , v - INT(d / 6)
CIRCLE (xx, yy), 12, 0, , , v - INT(d / 6)
CIRCLE (x, y), 12, 12, , , v - INT(d / 6)
CIRCLE (xx, yy), 11, 0, , , v - INT(d / 6)
CIRCLE (x, y), 11, 11, , , v - INT(d / 6)

IF d > 6 THEN ps = 1: REM Verschiedene Soundthemes
IF d > 8 THEN ps = 0: REM in Abh„ngigkeit vom
IF d > 14 THEN ps = 2: REM Level
IF d > 16 THEN ps = 0
IF d > 18 THEN ps = 3
IF d > 20 THEN ps = 4
IF d > 21 THEN ps = 5
IF ps = 1 THEN SOUND 37 + y, .1
IF ps = 2 THEN SOUND 18055 - 2 * x, .6

IF ps = 4 THEN SOUND 65 * SIN(x / 5) + 273, x / 1000
IF ps = 5 THEN SOUND 15625 + x - y, .09
IF INKEY$ = CHR$(27) THEN 0
NEXT x, d
100 SCREEN 0

FOR h = 0 TO 20: LOCATE 6, 17
OUT &H43, &HB6
OUT &H42, &HFF + h
OUT &H42, 90
OUT &H43, &H90
OUT &H61, h
OUT &H42, k
COLOR h + k: PRINT " ENDE": k = 21.12 * (SIN(k)) + k: NEXT h: COLOR 7

WHILE INKEY$ <> "": WEND: REM Tastaturpuffer leeren sonst
REM Tastatureingaben nach Programmende
REM auf der Eingabeaufforderung sichtbar
101 WHILE INKEY$ <> "": WEND: REM Tastaturpuffer leeren sonst
END

200
y = y + 25: REM Bildschirm soll bei Kollision mit Planke aufblinken
x = x + 1
a = a + 1

LOCATE 2, 1: COLOR 0: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
SOUND 2000, 2.5: SOUND 2500, 1
IF kb = 0 THEN RETURN
FOR bc = 10 TO 920
OUT &H3C8, 0
OUT &H3C9, 64
OUT &H3C9, 128
OUT &H3C9, 255
OUT &H3C8, 0
OUT &H3C9, 0
OUT &H3C9, 0
OUT &H3C9, 0

NEXT bc
RETURN

201
y = y - 25
a = a + 1
x = x + 1

LOCATE 23, 1: COLOR 0: PRINT " ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
SOUND 2000, 2.5: SOUND 2500, 1
IF kb = 0 THEN RETURN
FOR bc = 10 TO 920
OUT &H3C8, 0
OUT &H3C9, 64
OUT &H3C9, 128
OUT &H3C9, 255
OUT &H3C8, 0
OUT &H3C9, 0
OUT &H3C9, 0
OUT &H3C9, 0

NEXT bc
RETURN


1000 LOCATE 11, 17: COLOR 12: PRINT "WINNER": FOR R = 1 TO 20: POKE 12 * 80 + R, R: SOUND 1000 + RND * 152, 3: NEXT R: WHILE INKEY$ <> "": WEND: END
1001 RETURN
10000 RETURN