home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / TRANSYL2.DSK / TRANSYLVANIA.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  14 lines
  1. 105  TEXT : HOME : PRINT : PRINT "<CTRL-D>BRUNID":R =  PEEK(975)
  2. 110  IF R >127  THEN 140
  3. 120  VTAB 5: IF   NOT R  THEN  PRINT "THIS SIDE OF THE DISK IS FOR COMPUTERS  <CTRL-J>CAPABLE OF DISPLAYING DOUBLE-RESOLUTION <CTRL-J>GRAPHICS, SUCH AS AN APPLE //E WITH 128K<CTRL-J>OR AN APPLE //C.": GOTO 135
  4. 130  PRINT "This side of the disk is for computers  <CTRL-J>capable of displaying double-resolution <CTRL-J>graphics, such as an Apple //e with 128K<CTRL-J>or an Apple //c.
  5. 135  POKE 49168,0: VTAB 23: PRINT "  -=+> CRACKED BY THE DRAGON LORD <+=- "
  6. 139  POKE 49168,0: CALL 979: END 
  7. 140  PRINT : PRINT "<CTRL-D>PR#3": HIMEM: 38144: PRINT :X =  PEEK( -16254) + PEEK( -16255) + PEEK( -16255): POKE 230,32: CALL  -3086: HGR : POKE  -16302,0
  8. 145  PRINT "<CTRL-D>BLOADDPICDRAWL": PRINT "<CTRL-D>BLOAD DPICDRAWH": PRINT "<CTRL-D>BLOAD PARSE.COUTL"
  9. 150  PRINT "<CTRL-D>BLOAD CHARSET,A$DF00": PRINT "<CTRL-D>BLOAD PARSE.COUTH":X =  PEEK( -16254): CALL 38202: PRINT "<CTRL-D>BLOADTITLE.DPC,A$4000": POKE 0,0: POKE 1,64
  10. 160  PR# 3: PRINT : HOME : POKE 33,40: POKE 38175,255: CALL 38242: POKE 49153,0: POKE 49246,0: CALL 38147
  11. 165  POKE 38294,0: VTAB 17: POKE 1403,2: PRINT "By Antonio Antiochia"
  12. 167  VTAB 20: PRINT "Copyright 1982,1984 Penguin Software": PRINT : PRINT "Double-res version by Steven Meuse": PRINT "Double-res graphics by Marsha Meuse"
  13. 170  POKE 38294,20: PRINT "<CTRL-D>BLOADOBSTRING": PRINT "<CTRL-D>BRUNOBJINSTALL"
  14. 180  POKE 103,1: POKE 104,64: POKE 16384,0: POKE  -16368,0: PRINT "<CTRL-D>RUNDTRANS"