home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / NEW-COTAB-XP (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  26 lines
  1. 65535 REM"[141][147]              [158]MR. PAT-MAN               "(null)
  2. 2 POKE43,PEEK(2049):POKE44,PEEK(2050):POKE808,225
  3. 3 IFP<>.THEN13
  4. 4 POKE53280,.:POKE53281,.:PRINT"[147]YOUR PARTY OF ADVENTURERS STUMBLE ACROSS"
  5. 5 PRINT"[145]A 15-YEAR-OLD TEENAGER WHO INTRODUCES   HIMSELF AS [158]MR. PAT-MAN[146]";
  6. 6 PRINT". HE OFFERS TO    GIVE ALL OF YOUR CHARACTERS MAXIMUM     EXPERIENCE.";
  7. 7 PRINT" IF YOU ACCEPT HIS OFFER,    INSERT YOUR CURSE AZURE BONDS ";
  8. 8 PRINT"SAVE DISK[146] ";
  9. 9 PRINT"WITH THE FILE NAMED 'SAVEAZURE' AND     PRESS A KEY. IF NOT, THEN";
  10. 10 PRINT" TURN";
  11. 11 PRINT" OFF YOUR COMPUTER."
  12. 12 WAIT198,1:POKE198,.:C=.:P=1:LOAD"SAVEAZURE",8,1
  13. 13 AD=20224+(C*256):ML=AD+232:POKEML,255:POKEML+1,255:POKEML+2,255
  14. 14 C=C+1:IFC<>6 THEN13
  15. 15 PRINT"[147][158]MR. PAT-MAN[146] REACHES OUT AND TAPS ON THE FOREHEAD OF EACH OF ";
  16. 16 PRINT"YOUR CHARACTERS. A  DIM GLOW IS EMANATED AT THE TOUCH FOR A FEW ";
  17. 17 PRINT"SECONDS AND DISAPPEARS. SUDDENLY,   YOU FEEL MORE EXPERIENCED."
  18. 18 FORZ=1TO5000:NEXTZ
  19. 19 F$="SAVEAZURE":A=19200:B=26623:A1=INT(A/256):A2=A-256*A1
  20. 20 OPEN15,8,15,"S0:"+F$:OPEN1,8,1,"0:"+F$+",P,W":PRINT#1,CHR$(A2)CHR$(A1);
  21. 21 FORJ=ATOB:PRINT#1,CHR$(PEEK(J));:NEXT:CLOSE1:VERIFYF$,8,1:INPUT#15,A$,B$
  22. 22 PRINTA$,B$:CLOSE15
  23. 23 PRINT"[147]'COME BACK SOON!' YOU FELT A TREMBLE AS HE VANISHES B    
  24. 8261 YOUR";
  25. 24 PRINT" EYES.":FORZ=1TO2000:NEXTZ:FORJ=0TO15:POKE53270,J:NEXT:CLOSE2:SYS64738
  26.