home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / QUEST_A.DSK / QB.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  26 lines
  1. 1  HIMEM: 33265:O = 1:Z = 0:G1 = 256:W = 255:H = 128:P = 4609: ONERR  GOTO 80
  2. 5 D$ =  CHR$(4):DO$ = D$ +"OPEN":DR$ = D$ +"READ":DC$ = D$ +"CLOSE":AR$ = "ARRAY.":OP$ = "OILSKIN/POUCH":IS$ = "INSERT A DOS 3.3 DISK THEN PRESS A KEY.":IG$ = "RE-INSERT GAME DISK THEN PRESS A KEY."
  3. 7  PRINT D$"BRUNAMP 2.8": PRINT D$"BLOADPICDRAWF"
  4. 8 A = 3050:B = 9200:C = 9210:D = 9300:E = 9410:FF = 9458
  5. 10  DIM D%(2),M%(14):V9$ = "D%":F9$ = AR$ +V9$: GOSUB 9100: DIM V$(5),I%(O,D%(2)),F%(4,255)
  6. 15 V$(0) = "NORTH":V$(1) = "SOUTH":V$(2) = "EAST":V$(3) = "WEST":V$(4) = "UP":V$(5) = "DOWN"
  7. 17  DIM HO%(4):HO%(Z) = 30:HO%(O) = 49:HO%(2) = 90:HO%(3) = 184:HO%(4) = 225
  8. 20  TEXT :V9$ = "F%":F9$ = AR$ +V9$: GOSUB 9100:V9$ = "I%":F9$ = AR$ +V9$: GOSUB 9100: RESTORE 
  9. 22  FOR I = O TO 7: READ B%(I): NEXT :G% = 90:F%(O,Z) = O:F%(2,Z) = 150: PRINT D$"BLOADT1": FOR I = Z TO 13:M%(I) = Z: NEXT :M%(14) = 3
  10. 23  DATA 25,51,69,92,143,167,187
  11. 25  HGR :M%(4) = O:M%(Z) = O: GOSUB 9200: VTAB 24: PRINT  TAB( 13)"THE STAGE IS SET": PRINT  TAB( 8)"NOW LET THE QUEST BE TOLD!": &  GET 
  12. 26  POKE  -16303,Z: &  PRINT 1,38,22: POKE 35,1: HOME : POKE 35,24: INVERSE : PRINT "VISIBLE EXITS: NORTH" TAB( 41);: POKE 34,1: VTAB 24: HTAB 1: NORMAL :G = Z
  13. 60  CALL  -998: CALL  -998:X =  PEEK(49385): PRINT : PRINT  CHR$(4);"BLOADCHAIN,A520"
  14. 70 N% =  PEEK(49385): CALL 520"MQ"
  15. 80  CALL ( PEEK(47081) +3072) *16
  16. 9100 T9$ =  RIGHT$(V9$,O):I9% = Z: IF T9$ = "%"  THEN I9% = O
  17. 9115 V9$ =  LEFT$(V9$,2): IF  LEN(V9$) <2  THEN V9$ = V9$ + CHR$(Z)
  18. 9116  IF  RIGHT$(V9$,O) = "%"  THEN V9$ =  LEFT$(V9$,O) + CHR$(Z)
  19. 9117  IF I9%  THEN V9$ =  CHR$( ASC( LEFT$(V9$,O)) +H) + CHR$( ASC( RIGHT$(V9$,O)) +H)
  20. 9120 Z =  PEEK(47105):B9 = Z:E9 = Z:P9 = Z:A9 = Z:L9 = Z:B9 =  PEEK(107) +G1 * PEEK(108):E9 =  PEEK(109) +G1 * PEEK(110):P9 = B9
  21. 9125  IF  PEEK(P9) =  ASC(V9$)  AND  PEEK(P9 +O) =  ASC( MID$ (V9$,2))  THEN 9150
  22. 9130 P9 = P9 + PEEK(P9 +2) +G1 * PEEK(P9 +3): GOTO 9125
  23. 9150 A9 = P9 +5 + PEEK(P9 +4) *2: PRINT  CHR$(4) +"BLOAD"F9$",A"A9: RETURN 
  24. 9200  IF   NOT M%(4)  THEN  RETURN 
  25. 9205  VTAB 2: PRINT : PRINT D$"BLOADP" USR(F%(Z,M%(Z)))L",A"P: VTAB 24
  26. 9210  POKE 2560, USR(P)L: POKE 2561, USR(P)H: CALL 2608: RETURN