home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / MAXWELLS.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  965b  |  32 lines
  1. 10  PRINT  CHR$(4)"BLOADBIN5": CALL 18567
  2. 20  GOSUB 110
  3. 30 Z =  PEEK(49289)
  4. 31 Z =  PEEK(49289)
  5. 40  PRINT "<CTRL-D>BLOAD BIN1,A5120"
  6. 50  PRINT "<CTRL-D>BLOAD BIN2,A8192"
  7. 60  PRINT "<CTRL-D>BLOAD BIN3,A53248"
  8. 80 Z =  PEEK(49281)
  9. 81 Z =  PEEK(49281)
  10. 82  PRINT "<CTRL-D>BLOAD BIN4,A53248"
  11. 83  REM  ***********************
  12. 84  REM  * SETUP RESET VECTORS *
  13. 85  REM  ***********************
  14. 86  POKE 65530,104: POKE 65531,16
  15. 87  POKE 65532,104: POKE 65533,16
  16. 88  POKE 65534,104: POKE 65535,16
  17. 100  PRINT "<CTRL-D>BRUN SGO"
  18. 101  REM  *********************
  19. 102  REM  * GENERATE RND SEED *
  20. 103  REM  *********************
  21. 110  HOME 
  22. 120  PRINT : PRINT : PRINT : PRINT 
  23. 140 Z =  PEEK(49168)
  24. 150  PRINT "      PRESS <RETURN> TO LOAD GAME"
  25. 160  POKE 95,( PEEK(95) +1)  AND 255
  26. 170  POKE 96,( PEEK(96) +3)  AND 255
  27. 180  IF  PEEK(49152) <128 GOTO 160
  28. 190 Z =  PEEK(49168)
  29. 200  HOME 
  30. 210  PRINT : PRINT : PRINT : PRINT 
  31. 220  PRINT "       'MAXWELL MANOR' NOW LOADING"
  32. 230  RETURN