home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D2B.D64 / game-basic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  465 b   |  15 lines

  1. 10 PRINT"[147]":S$="                         [146]":LO=1243:POKE53280,0:POKE53281,0
  2. 20 PRINT"[145]";:FORT=1TO11:PRINTS$:NEXT
  3. 30 PRINT"[150]         ENTER THE [158]YELLOW[150] ROOM"
  4. 40 PRINT"         MOVE WITH CURSOR KEYS":GOTO100
  5. 50 GETD$:IFD$=""THEN50
  6. 60 IFD$="[145]"THENM=1:P=PEEK(LO-40):GOTO90
  7. 65 IFD$=""THENM=2:P=PEEK(LO+40):GOTO90
  8. 70 IFD$="[157]"THENM=3:P=PEEK(LO-1):GOTO90
  9. 75 IFD$=""THENM=4:P=PEEK(LO+1):GOTO90
  10. 80 GOTO50
  11. 90 IFP<>32THEN50
  12. 100 POKE49623,M:SYS49168:POKELO,42:POKE55515,1
  13. 110 IFPEEK(49610)=27ANDPEEK(49611)=43THENPRINT"            YOU FOUND IT!":END
  14. 120 FORZ=1TO50:NEXT:GOTO50
  15.