AKA0
is:
1 TEXT : HOME : NORMAL : VTAB (5): HTAB (9): PRINT "WELCOME, FOOLISH MORTAL": VTAB (7): HTAB (14): PRINT "INTO THE WORLD": VTAB (9): HTAB (16): INVERSE : PRINT "AKALABETH!": NORMAL | |
2 VTAB (11): HTAB (7): PRINT "HEREIN THOU SHALT FIND GRAND": VTAB (13): HTAB (16): INVERSE : PRINT "ADVENTURE!": NORMAL | |
3 VTAB (16): PRINT " CREATED BY LORD BRITISH": PRINT : PRINT "(C) 1980 BY CALIFORNIA PACIFIC COMPUTER" | |
4 VTAB (23): HTAB (8): PRINT "(PRESS SPACE TO CONTINUE) ";: GET R$: PRINT | |
5 PRINT "BLOAD AKA4" | |
6 POKE 254,32: POKE 255,32: POKE 32840,169: POKE 32841,0: CALL 32768: POKE 32840,177: POKE 32841,8 | |
7 PRINT "BLOADAKA2,A$2000": POKE - 16302,0: POKE - 16297,0: POKE - 16300,0: POKE - 16304,0 | |
8 PRINT "BLOADAKA5,A$4000" | |
9 CALL 32768 | |
10 PRINT "BLOADAKA3,A$4000" | |
11 POKE 32769,39: POKE 32888,136: POKE 32890,255: CALL 32768: POKE 32769,0: POKE 32888,200: POKE 32890,40 | |
12 FOR O7 = 1 TO 4000: NEXT O7 | |
13 POKE 32840,169: POKE 32841,0: CALL 32768: POKE 32840,177: POKE 32641,8 | |
14 FOR O7 = 1 TO 500: NEXT O7 | |
15 POKE - 16303,0 | |
8450 VTAB (23): HTAB (8): PRINT " (LOADING PROGRAM) "; | |
8997 PRINT | |
8998 POKE 33,1: POKE 34,23 | |
8999 PRINT "RUN AKA1" |