home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 140 / SGDS 140.2mg / SDGS.140 / B / XWORD (.txt) < prev   
Encoding:
Applesoft BASIC Source Code  |  1993-03-22  |  2.5 KB  |  55 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 2  PRINT  CHR$(21): HGR2 :BELL = 34319:GCOLR = 34313:HOT = 34310:INIT = 34304:CGEN = 32777:GBNW = 34316: HIMEM: 7168:D$ =  CHR$(4): GOTO 1000
  2. 20  ONERR  GOTO 70
  3. 30  PRINT D$"PREFIX": INPUT P$: PRINT D$"OPEN"P$",TDIR": PRINT D$"READ"P$: INPUT F$,F$,F$
  4. 40  INPUT F$: IF F$ = ""  THEN 70
  5. 50  IF  LEFT$(F$,4) < >" XW."  THEN 40
  6. 60 N$(F) =  MID$ (F$,5,12):F = F +1: IF F <51  THEN 40
  7. 70  POKE 216,0: PRINT D$"CLOSE"
  8. 100 :
  9. 120 M$(0) = "Get a new puzzle":M$(1) = "Solve " +F$:M$(2) = "Save progress":M$(3) = "Recall progress":M$(4) = "Blank puzzle":M$(5) = "Quit": RETURN 
  10. 130  FOR Q1 = 10 TO 17: VTAB Q1: HTAB 12: PRINT  SPC( 19): PRINT : NEXT : RETURN 
  11. 200  HOME : GOSUB 130: FOR I = 1 -UO TO MN -UO: VTAB V +MI *I: HTAB H: PRINT M$(I): NEXT :K = 0: GOTO 230
  12. 210  FOR K = 0 TO 127:K =  PEEK(49152): NEXT : POKE 49168,0:K = K -129: IF K = 8  OR K = 11  THEN  PRINT M$(M):M = M -1:M = M +MN *(M =  -UO)
  13. 212  IF K < >8  AND K < >11  AND K < >10  AND K < >21  AND K < >13  THEN  CALL BELL: GOTO 210
  14. 220  IF K = 10  OR K = 21  THEN  PRINT M$(M):M = M +1:M = M -MN *(M = (MN +1 -UO))
  15. 230  VTAB V +MI *M: HTAB H: INVERSE : PRINT M$(M);: NORMAL : IF K < >13  THEN  HTAB H: GOTO 210
  16. 235  GOSUB 130: VTAB V +MI *M: HTAB H: INVERSE : PRINT M$(M);: NORMAL 
  17. 240  RETURN 
  18. 300 MN = 0:MI = 1:UO = 0: IF P >0  THEN UO = 1:M$(0) = "Previous page":MN = 1
  19. 305  VTAB 18: HTAB 10: PRINT "Choose puzzle to solve"
  20. 310  IF F >6  AND P <7  AND ((P +1) *6 < >F)  AND ( INT(F/6) < >P)  THEN MN = MN +1:M$(7) = "Next page"
  21. 315 E = F -P *6: IF E >6  THEN E = 6
  22. 320  FOR I = 1 TO E:M$(I) = "  " +N$(P *6 +I -1):MN = MN +1: NEXT 
  23. 330  GOSUB 200: IF M = 0  THEN P = P -1:M = 7: GOTO 300
  24. 340  IF M = 7  THEN P = P +1:M = 1: GOTO 300
  25. 350  VTAB 18: HTAB 10: PRINT  SPC( 22): RETURN 
  26. 400  CALL 54915: GOSUB 130: POKE 222,0: VTAB 13: HTAB 18: PRINT "ERROR!"
  27. 410  VTAB 15: HTAB 15: PRINT "PRESS ANY KEY": HTAB 16: PRINT "TO CONTINUE";: GET A$: ON ER +1 GOTO 1030,1100
  28. 1000  PRINT D$"bloadxword.ml": HCOLOR= 3: SCALE= 1: ROT= 0: DIM N$(50): CALL CGEN: POKE 48688, PEEK(0): POKE 48689, PEEK(1): ONERR  GOTO 400
  29. 1001  GOSUB 20000: VTAB 4: HTAB 11: PRINT "CROSSWORD MACHINE ][": GET A$
  30. 1002  POKE 230,32: CALL 30720: GOSUB 30000: GOSUB 20: ONERR  GOTO 400
  31. 1010  IF   NOT F  THEN  HOME : VTAB 12: HTAB 15: PRINT "No puzzles!": HTAB 15: PRINT "Hit any key ": HTAB 17: PRINT "to quit": GET A$: GOTO 1630
  32. 1020 M = 1:PM = 1: IF F >1  THEN 1100
  33. 1025 F$ = N$(0): GOTO 1110
  34. 1030 MN = 5 +(F >1):MI = 1:V = 11:H = 12:ER = 0:UO = (F >1): GOSUB 120
  35. 1040  GOSUB 200: ON M +1 GOTO 1100,1200,1300,1400,1500,1600
  36. 1100 ER = 1:M = PM:H = 15:V = 10: GOSUB 300:F$ =  RIGHT$(M$(M), LEN(M$(M)) -2):PM = M
  37. 1110  PRINT D$"BLOADXW."F$: CALL INIT:M = 1: GOTO 1030
  38. 1200  CALL GBNW: CALL HOT -W:W = 0: CALL GCOLR: GOSUB 100: GOTO 1030
  39. 1300  PRINT D$"BSAVEIP."F$",A32479,L289": GOTO 1030
  40. 1400  PRINT D$"BLOADIP."F$:W = 3: GOTO 1030
  41. 1500  CALL INIT: GOTO 1030
  42. 1600  GOSUB 130: VTAB 12: HTAB 19: PRINT "Quit?": VTAB 16: HTAB 15: PRINT "Press Y or N."
  43. 1610  GET A$: IF A$ = "N"  OR A$ = "n"  THEN 1030
  44. 1620  IF A$ < >"Y"  AND A$ < >"y"  THEN  CALL BELL: GOTO 1610
  45. 1630  CALL GCOLR: PRINT D$"PR#0": TEXT : HOME : PRINT D$"BYE"
  46. 6100  HTAB (40 - LEN(A$))/2 +1: PRINT A$: RETURN 
  47. 20000  HCOLOR= 6: HPLOT 0,25 TO 278,25 TO 278,145 TO 0,145 TO 0,25: HCOLOR= 5: HPLOT 3,85 TO 276,85: VTAB 5
  48. 20005  HTAB 8: PRINT "is the copyrighted work of"
  49. 20010  HTAB 11: PRINT "SOFTDISK PUBLISHING.": HTAB 5: PRINT "It is not meant for distribution": HTAB 6: PRINT "as public domain or shareware."
  50. 20020  PRINT : HTAB 7: PRINT "For help, information or to": HTAB 7: PRINT "report illegal distribution"
  51. 20030  HTAB 12: PRINT "call SOFTDISK at:": HTAB 12: PRINT "1-800-831-2694 or": HTAB 13: PRINT "1-800-221-8718."
  52. 20040  VTAB 19: HTAB 15: PRINT "Press a key": RETURN 
  53. 30000  VTAB 5: HTAB 12: PRINT "by Peter Rokitski": HTAB 9: PRINT "(c) 1993 Softdisk, Inc."
  54. 30010  HTAB 8: PRINT "Published on Softdisk 140": HTAB 6: PRINT "Subscriptions: 1-800-831-2694"
  55. 30020  HTAB 5: PRINT "Changing this notice is illegal": VTAB 24: HTAB 7: PRINT "Arrows move, RETURN selects": RETURN