home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / CRACK84.DSK / TEST.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  40 lines
  1. 50  CLEAR : TEXT : HOME 
  2. 80  GOSUB 100
  3. 90  GOTO 145
  4. 100  HOME : PRINT : VTAB 1: HTAB 1: INVERSE : PRINT "                            ";: NORMAL : PRINT " CT   1984"
  5. 110  INVERSE : PRINT " RED REBEL'S PIRATES HARBOR ";: NORMAL : PRINT " COPYRIGHT"
  6. 120  INVERSE : PRINT "           PRESENTS         ";: NORMAL : PRINT " (C)  1984"
  7. 130  INVERSE : PRINT "  CRACKING TECHNIQUES 1984  ";: NORMAL : PRINT " ALL RIGHT"
  8. 140  INVERSE : PRINT "                            ";: NORMAL : PRINT " RESERVED"
  9. 141  PRINT " ": PRINT " "
  10. 142  POKE 34,7: RETURN 
  11. 145  PRINT : PRINT 
  12. 150  PRINT : PRINT : PRINT : PRINT "            P R E S E N T S"
  13. 160  PRINT : PRINT : PRINT : PRINT : PRINT 
  14. 170  PRINT "       ";: FLASH : PRINT "CRACKING TECHNIQUES 1984": NORMAL 
  15. 180  FOR I = 1 TO 5000: NEXT 
  16. 200  POKE  -16299,0: POKE  -16297,0
  17. 203  POKE  -16304,0
  18. 205  POKE  -16302,0
  19. 210  FOR I = 1 TO 5000: NEXT 
  20. 500  CALL 54915: CLEAR : HOME : TEXT : GOSUB 100
  21. 510  PRINT "CONGRATULATIONS !!": PRINT 
  22. 515  PRINT 
  23. 520  PRINT "YOU HAVE JUST RECIEVED THE NEW"
  24. 530  PRINT "CRACKING TECHNIQUES 1984.........": PRINT 
  25. 535  PRINT 
  26. 540  PRINT "THIS DISK CONTAINS A VARIETY OF TRICKS"
  27. 550  PRINT "AND MESSAGES POSTED ON THE BBS SYSTEM"
  28. 560  PRINT "AT PIRATES HARBOR ABOUT CRACKING BY"
  29. 570  PRINT "MANY OF ITS MORE SOPHISTICATED CRACKERS"
  30. 600  PRINT : PRINT 
  31. 610  FLASH : PRINT "THIS DISK<CTRL-G><CTRL-G>   SHOULD NOT BE": PRINT "USED<CTRL-G><CTRL-G> FOR ILLEGAL PURPOSES": NORMAL 
  32. 620  FOR I = 1 TO 20000: NEXT 
  33. 690  HOME 
  34. 700  PRINT : PRINT "PIRATE'S HARBOR MAINTAINS A 24 HOUR": PRINT "HOT-LINE FOR ALL CRACKERS, HACKERS &  ": PRINT "PIRATES. PASSWORDS ARE CURRENTLY $15": PRINT : PRINT "CALL  617-720-3600 MODEM"
  35. 710  PRINT : PRINT "THANK YOU FOR BUYING CRACKING TECHNIQUES": PRINT : PRINT "KEEP ON CRACKING!!": PRINT : PRINT 
  36. 720  PRINT "                  >>> RED  REBEL <<<"
  37. 724  FOR I = 1 TO 9000: NEXT : HOME 
  38. 725  PRINT : PRINT 
  39. 750  PRINT : PRINT "IF YOU WISH TO SKIP THESE MESSAGES AND": PRINT "GO DIRECTLY TO THE MAIN MENU ON BOOT-UP": PRINT "THEN REMOVE THE WRITE PROTECT TAB FROM": PRINT "YOUR BACK-UP DISK AND TYPE": PRINT : PRINT "EXEC MY DISK": PRINT 
  40. 760  PRINT "     OR": PRINT : PRINT "RUN SYSTEM MESSAGES": PRINT