home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 97 / SGDS 97.2mg / SDGS.97 / SDC97 / C / DINOSORCERER (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-09-20  |  1.1 KB  |  45 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  PRINT  CHR$(4)"PREFIX": INPUT K$: PRINT  CHR$(4)"PREFIX"K$
  2. 100  TEXT : HOME : PRINT  CHR$(21)
  3. 110  PRINT "DINOSORCERER  BY JIM WEILER"
  4. 120  VTAB 12: PRINT "CHECKING SYSTEM MEMORY. PLEASE WAIT."
  5. 130  IF  PEEK(115) < >0  OR  PEEK(116) < >150  OR  PEEK(104) < >8  OR  PEEK(103) < >1  THEN 480
  6. 150  POKE 33,1
  7. 160  POKE 35,1
  8. 170  HOME 
  9. 180  ONERR  GOTO 470
  10. 190  PRINT  CHR$(4)"CAT/RAM"
  11. 200  FOR C = 526 TO 534
  12. 210 T$ = T$ + CHR$( PEEK(C) -128)
  13. 220  NEXT 
  14. 240  IF  VAL(T$) < >119  THEN 470
  15. 250  PRINT  CHR$(4)"-DIN.DUPE"
  16. 260  TEXT : VTAB 13
  17. 270  PRINT "COPYING DINOSAURS TO RAMDISK."
  18. 280  PRINT "HEADS..."
  19. 290  ONERR  GOTO 530
  20. 300  PRINT  CHR$(4)"COPY DIN.HS.LNK,/RAM/DIN.HS.LNK"
  21. 301  PRINT  CHR$(4)"COPY DIN.HI.LNK,/RAM/DIN.HI.LNK"
  22. 310  PRINT "TAILS..."
  23. 320  PRINT  CHR$(4)"COPY DIN.TS.LNK,/RAM/DIN.TS.LNK"
  24. 321  PRINT  CHR$(4)"COPY DIN.TI.LNK,/RAM/DIN.TI.LNK"
  25. 330  PRINT "BACKS..."
  26. 340  PRINT  CHR$(4)"COPY DIN.BS.LNK,/RAM/DIN.BS.LNK"
  27. 341  PRINT  CHR$(4)"COPY DIN.BI.LNK,/RAM/DIN.BI.LNK"
  28. 350  PRINT "REAR LEGS..."
  29. 360  PRINT  CHR$(4)"COPY DIN.RS.LNK,/RAM/DIN.RS.LNK"
  30. 361  PRINT  CHR$(4)"COPY DIN.RI.LNK,/RAM/DIN.RI.LNK"
  31. 370  PRINT "FORELEGS..."
  32. 380  PRINT  CHR$(4)"COPY DIN.FS.LNK,/RAM/DIN.FS.LNK"
  33. 381  PRINT  CHR$(4)"COPY DIN.FI.LNK,/RAM/DIN.FI.LNK"
  34. 430  POKE 216,0
  35. 470  TEXT : VTAB 21: ONERR  GOTO 530
  36. 475  POKE 103,1: POKE 104,64: POKE 16384,0: PRINT  CHR$(4)"-DIN.PRG"
  37. 480  TEXT : HOME 
  38. 490  VTAB 12
  39. 500  PRINT "BAD MEMORY CONFIGURATION.": PRINT : PRINT "REBOOT. TRY AGAIN."
  40. 510  GET K$
  41. 520  PRINT  CHR$(4)"BYE"
  42. 530  POKE 216,0: PRINT 
  43. 540  PRINT "CAN'T FIND ALL THE DINOSAUR PARTS."
  44. 550  PRINT : PRINT "PRESS A KEY TO EXIT."
  45. 560  GOTO 510