mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-28 09:30:41 +00:00
39 lines
1.3 KiB
QBasic
39 lines
1.3 KiB
QBasic
5 HOME
|
|
10 PRINT "OOTW PROOF-OF-CONCEPT V1.8 BY DEATER"
|
|
20 PRINT " DISK,LZ4 BY QKUMBA"
|
|
25 PRINT " ,"
|
|
30 PRINT "ORIGINAL BY ERIC CHAHI"
|
|
40 PRINT "INSPIRED BY PAUL NICHOLAS PICO-8 VERSION"
|
|
50 PRINT
|
|
60 PRINT:PRINT
|
|
' 60 HTAB 9:PRINT "WASD OR ARROWS TO MOVE"
|
|
' 70 HTAB 10:PRINT "SPACEBAR FOR ACTION"
|
|
80 PRINT:PRINT
|
|
85 HTAB 10:PRINT " ______"
|
|
90 HTAB 10:PRINT "A \/\/\/ PRODUCTION"
|
|
92 PRINT
|
|
95 HTAB 12:PRINT "APPLE ][ FOREVER"
|
|
100 PRINT:PRINT "WHAT DO YOU WANT TO DO?"
|
|
110 PRINT "1). START WITH INTRO MOVIE"
|
|
120 PRINT "2). START AT CHECKPOINT 1 (IH8S)"
|
|
130 PRINT "3). START AT CHECKPOINT 2 (RAGE)"
|
|
140 INPUT A
|
|
150 IF A < 1 OR A > 3 THEN 5
|
|
155 IF A=1 OR A=2 THEN GOSUB 300
|
|
160 POKE 5,(A-1)
|
|
200 PRINT CHR$ (4)"BRUN LOADER"
|
|
300 HOME
|
|
305 HTAB 8:PRINT "LOADING (BE PATIENT...)"
|
|
310 PRINT:PRINT:PRINT:PRINT
|
|
315 PRINT "CONTROLS:"
|
|
320 PRINT " A OR <- : WALK LEFT"
|
|
325 PRINT " D OR -> : WALK RIGHT"
|
|
330 PRINT " Q : RUN LEFT"
|
|
335 PRINT " E : RUN RIGHT"
|
|
340 PRINT " W OR UP : JUMP"
|
|
345 PRINT " S OR DOWN : CROUCH / PICKUP"
|
|
350 PRINT " SPACEBAR : KICK"
|
|
355 PRINT " RETURN : SHOOTS"
|
|
360 PRINT " ESC : QUITS"
|
|
365 RETURN
|