dos33fsprogs/ootw/hello.bas

39 lines
1.3 KiB
QBasic
Raw Normal View History

2019-01-13 06:10:44 +00:00
5 HOME
2019-08-16 03:55:43 +00:00
10 PRINT "OOTW PROOF-OF-CONCEPT V2.5 (8/15/2019)"
2019-07-31 04:11:43 +00:00
15 PRINT " BY DEATER"
2019-03-02 18:40:41 +00:00
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
2019-07-31 04:11:43 +00:00
60 PRINT
80 PRINT
2019-01-18 15:59:30 +00:00
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?"
2019-07-09 15:23:48 +00:00
110 PRINT "0). START WITH INTRO MOVIE"
120 PRINT "1). START AT CHECKPOINT 1 (IH8S)"
130 PRINT "2). START AT CHECKPOINT 2 (RAGE)"
135 PRINT "3). START AT CHECKPOINT 3 (VENT)"
2019-07-31 04:11:43 +00:00
135 PRINT "4). START AT CHECKPOINT 4 (RCHG)"
135 PRINT "5). START AT CHECKPOINT 5 (CAVE)"
140 INPUT A
150 IF A < 0 OR A > 5 THEN 5
155 IF A=1 OR A=2 OR A=3 OR A=4 OR A=5 THEN GOSUB 300
2019-07-09 15:23:48 +00:00
160 POKE 5,A
200 PRINT CHR$ (4)"BRUN LOADER"
2019-03-15 17:08:56 +00:00
300 HOME
305 HTAB 8:PRINT "LOADING (BE PATIENT...)"
310 PRINT:PRINT:PRINT:PRINT
315 PRINT "CONTROLS:"
320 PRINT " A OR <- : MOVE LEFT"
325 PRINT " D OR -> : MOVE RIGHT"
2019-03-15 17:08:56 +00:00
340 PRINT " W OR UP : JUMP"
345 PRINT " S OR DOWN : CROUCH / PICKUP"
350 PRINT " SPACEBAR : KICK / SHOOT"
2019-08-16 03:55:43 +00:00
355 PRINT " L : CHARGE GUN"
2019-03-15 17:08:56 +00:00
360 PRINT " ESC : QUITS"
365 RETURN