home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FSTGAMON.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  32 lines
  1. 10  REM   -- DOS 3.3 HELLO
  2. 20  REM  
  3. 30  TEXT : PRINT 
  4. 40  HOME 
  5. 50  REM 
  6. 60  REM 
  7. 70  REM  
  8. 80  REM  --POKE LANGUAGE CARD FINDER
  9. 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:
  10. 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:
  11. 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:
  12. 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:
  13. 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:
  14. 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:
  15. 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:
  16. 125  POKE 831,192: POKE 832,96:
  17. 155  CALL 769
  18. 160  IF  PEEK(768) < >1  THEN 250
  19. 170  REM  
  20. 180  REM --IF THERE, LOAD INTG AND PA#1
  21. 190  REM  
  22. 200  REM 
  23. 210  PRINT "<CTRL-D>BLOAD INTBASIC,A$D000"
  24. 220  REM  --WRITE PROTECT THE CARD
  25. 230 A =  PEEK( -16254): REM   $C082
  26. 240  PRINT  CHR$(4)"RUN FASTGAMMON"
  27. 250  REM 
  28. 260  REM --NO CARD OR CAN'T RELOAD
  29. 270  REM 
  30. 280  IF  PEEK(768) = 0  THEN  END 
  31. 290  PRINT : PRINT "...LANGUAGE CARD CANNOT BE RELOADED": PRINT "   UNTIL THE SYSTEM IS REBOOTED..."
  32. 300  END