home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SFEQ1.DSK / APPLESOFT.int < prev    next >
Text File  |  2014-09-09  |  1KB  |  21 lines
  1. 40 TEXT :CALL -936
  2. 90  POKE 768,0: POKE 769,173: POKE 770,0: POKE 771,224: POKE 772,72: POKE 773,173: POKE 774,129: POKE 775,192: POKE 776,104:
  3. 95  POKE 777,72: POKE 778,205: POKE 779,0: POKE 780,224: POKE 781,208: POKE 782,35: POKE 783,173: POKE 784,131: POKE 785,192:
  4. 100  POKE 786,173: POKE 787,131: POKE 788,192: POKE 789,169: POKE 790,165: POKE 791,141: POKE 792,0: POKE 793,208: POKE 794,205:
  5. 105  POKE 795,0: POKE 796,208: POKE 797,208: POKE 798,19: POKE 799,74: POKE 800,141: POKE 801,0: POKE 802,208: POKE 803,205:
  6. 110  POKE 804,0: POKE 805,208: POKE 806,208: POKE 807,10: POKE 808,173: POKE 809,129: POKE 810,192: POKE 811,173: POKE 812,129:
  7. 115  POKE 813,192: POKE 814,169: POKE 815,1: POKE 816,208: POKE 817,2: POKE 818,169: POKE 819,0: POKE 820,141: POKE 821,0:
  8. 120  POKE 822,3: POKE 823,104: POKE 824,205: POKE 825,0: POKE 826,224: POKE 827,240: POKE 828,3: POKE 829,173: POKE 830,128:
  9. 125  POKE 831,192: POKE 832,96:
  10. 160 CALL 769
  11. 170 IF  PEEK (768)<>1 THEN 290
  12. 220 PRINT "<CTRL-D>BLOAD FPBASIC,A$D000"
  13. 240 A= PEEK (-16254):REM  $C082
  14. 250 GOTO 310
  15. 260 REM 
  16. 270 REM --NO CARD OR CAN'T RELOAD
  17. 280 REM 
  18. 290 IF  PEEK (768)=0 THEN 310
  19. 300 PRINT "...LANGUAGE CARD CANNOT BE RELOADED":PRINT "   UNTIL THE SYSTEM IS REBOOTED..."
  20. 310 PRINT "<CTRL-D>RUNHELO"
  21.