home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / LOC2.DSK / MUTIL.txt < prev    next >
Text File  |  2014-09-09  |  7KB  |  246 lines
  1.  : KI2 20 VTAB 6 HTAB DSPEX PRINT " ? " KEYIN ;
  2.  : INTCL4 DSPEX INVERSE 23 VTAB H12 NCELL
  3.  IF NCELL 8 >
  4.   IF PRINT " C " NORMAL PRINT "  AREA COMPLETE "
  5.   ELSE NORMAL PRINT "                 "
  6.   THEN
  7.  ELSE INVX
  8.  THEN NORMAL ;
  9.  : ADDCL GETMI RDMAP2 172 <> NCELL 99 = OR
  10.  IF BEEP
  11.  ELSE NCELL
  12.   IF MINDEX GETMI - ABS 62 <
  13.    IF NEWSQ2 INTCL4 UPDATE
  14.    ELSE ZR -> DIR GETMI
  15.    BEGIN CHKT
  16.     IF TEMP1 DRM2 GETABS GETMI - DUP ABS 62 <
  17.      IF 110 + GETMI WRMAP2 GETMI TEMP1 - 110 + TEMP1 WRMAP2 15 GETMI WRMAP1
  18.       GETMI NEWSQ DSPSQ NCELL INC NCELL INTCL4 UPDATE N1
  19.      ELSE DROP INCDIR
  20.      THEN
  21.     ELSE INCDIR
  22.     THEN
  23.    UNTIL DROP
  24.    THEN
  25.   ELSE GETMI -> MINDEX
  26.    MINDEX TNUM WRLNK0
  27.    15 MINDEX WRMAP1
  28.    TNUM MINDEX WRMAP2
  29.    N1 -> NCELL
  30.    MINDEX DSPST DSPSQ INTCL4 UPDATE
  31.   THEN
  32.  THEN ;
  33.  
  34.  : CDN NLIN 20 =
  35. IF BEEP
  36.  ELSE BLC NLIN INC NLIN CURSR UPDATE THEN ;
  37. : CRT NROW N40 =
  38.  IF BEEP
  39.  ELSE BLC NROW INC NROW CURSR UPDATE THEN ;
  40.  : CLF NROW N1 =
  41. IF BEEP
  42.  ELSE BLC NROW DEC NROW CURSR UPDATE THEN ;
  43. : CUP NLIN N1 =
  44. IF BEEP
  45.  ELSE BLC NLIN DEC NLIN CURSR UPDATE THEN ;
  46.  : CLRCL 172 GETMI WRMAP2 ZR GETMI WRMAP1 NCELL DEC NCELL CURSR GETMI RMVSQ INTCL4 UPDATE ;
  47.  : BKUP NCELL
  48.  IF NCELL TNUM FNDLNKS ZR OVER WRMAP1 172 OVER WRMAP2 -> TEMP1 NCELL DEC NCELL NCELL DUP
  49.   IF TNUM FNDLNKS DUP -> MINDEX TNUM SWAP WRMAP2
  50.   ELSE DROP
  51.   THEN GETMI TEMP1 = IF CURSR ELSE TEMP1 DSPST DSPSQ THEN TEMP1 RMVSQ INTCL4 UPDATE
  52.  ELSE BEEP
  53.  THEN ;
  54.  : RMVCL GETMI RDMAP2 172 <>
  55.  IF GETMI TRACE TNUM <> NCELL NOT OR 
  56. IF BEEP
  57. ELSE GETMI MINDEX =
  58.  IF BKUP
  59.  ELSE N1 TNUM FNDLNKS DUP -> T1 GETMI =
  60.   IF N2 TNUM FNDLNKS TNUM WRLNK0 CLRCL
  61.   ELSE T1 BEGIN DUP -> T1 DRM2 GETABS DUP GETMI =
  62.           UNTIL DRM2 GETABS DUP -> TEMP1 T1 - DUP ABS 62 <
  63.    IF 110 + T1 WRMAP2 CLRCL
  64.    ELSE DROP BEEP
  65.   THEN
  66.  THEN
  67.  THEN
  68.  THEN
  69.  ELSE BEEP
  70. THEN ;
  71.  : ARCMPLT NCELL 8 >
  72.  IF BLC TNUM NT >
  73.  IF TNUM 24573 POKE
  74.  THEN ZR -> TCFL N1
  75. ELSE BEEP
  76. THEN ;
  77.  VARIABLE LASTCELL
  78.  : COUNTC N1 -> NCELL
  79.  TNUM RDLNK0
  80. BEGIN
  81.  LNKCHK
  82. WHILE NCELL INC NCELL GETABS
  83.  REPEAT DROP -> LASTCELL ;
  84.  : SAX N1 DUP -> COM ;
  85.  : SEL? DROP GETMI DRM2 172 <
  86. IF TRACE -> TNUM N1 DUP
  87. ELSE BEEP DROP0
  88. THEN ;
  89. : SACOMS 0 , 201 , 202 , 203 , 205 , 141 , 216 , ;
  90. : NOP ;
  91. : SELAR SETWIN HOME N1 -> UPDSBLE
  92. CR PRINT "     MOVE CURSOR TO THE AREA YOU WANT "
  93. CR PRINT "   TO EDIT OR DELETE (USE I-J-K-M KEYS) "
  94. CR 7 HTAB PRINT " - THEN PUSH <RET>  ( "
  95. INVERSE PRINT " X " NORMAL PRINT "  TO EXIT) "
  96.  10 -> NLIN 20 -> NROW CURSR
  97.  BEGIN KI2 -> COM ZR -> TCXQ 7 N1
  98.  DO I ' SACOMS + PEEK COM =
  99.   IF I -> TCXQ
  100.   THEN
  101.  LOOP ZR TCXQ
  102.  CASE: NOP CUP CLF CRT CDN SEL? SAX THEN
  103.  UNTIL ZR -> UPDSBLE BLC DSPEX ;
  104.  : DELAR NT
  105. IF SELAR
  106.  IF DELT TNUM NT <
  107.   IF NT TNUM
  108.    DO I ADD1 RDLNK0 DUP I WRLNK0
  109.     BEGIN LNKCHK
  110.    WHILE GETABS
  111.    REPEAT DROP I SWAP WRMAP2
  112.    LOOP
  113.   THEN NT SUB1 STORNT
  114.  THEN
  115. ELSE BEEP
  116. THEN N1 ;
  117.  : EDIAR NT
  118. IF SELAR
  119.  IF COUNTC N1 -> TCFL LASTCELL -> MINDEX
  120.  THEN
  121. ELSE BEEP
  122.  THEN N1 ;
  123.  : WKTOMP NT 19 > IF ZR 3715 POKE SETMP PROCWA N1 -> MAPIN? N1 ELSE BEEP THEN ;
  124.  : NEWAR NT 48 = IF BEEP ELSE NT ADD1 -> TNUM ZR -> NCELL 10 -> NLIN 20 -> NROW CURSR N1 -> TCFL N1 THEN ;
  125.  : NEWWK CLRMAPS CLRARYS N16 ZR DO ' GRID I + PEEK XFER LOOP BWIN
  126.  801 N1 DO I DSPSQ LOOP
  127.  ZR 24573 POKE N1 -> WKAR ZR -> MAPIN? N1 ;
  128. : INTCXEQ ZR -> TCXQ
  129.  9 N1 DO
  130.   I ' TCCOMS + PEEK COM =
  131.   IF I -> TCXQ THEN
  132.  LOOP
  133.  TCXQ CASE: TCX? CUP CLF CRT CDN ADDCL RMVCL BKUP ARCMPLT THEN ;
  134. : WAWKXEQ COM 206 = IF NEWAR THEN
  135.  COM 205 = IF WKTOMP THEN
  136.  COM 197 = IF EDIAR THEN
  137.  COM 196 = IF DELAR THEN
  138.  XCHK IF SVWK N1 THEN ;
  139. : WAMPXEQ COM 212 = IF MPTOWK THEN
  140.  COM 195 = IF CXCHK THEN
  141.  XCHK IF SVMP N1 THEN ;
  142.  : OWAXEQ COM 177 = IF HOME NEWWK THEN
  143.  COM 178 = IF HOME SETWIN LDMP THEN
  144.  COM 179 = IF HOME SETWIN LDWK THEN
  145.  COM 180 = IF BWIN DSPEX CAT N1 THEN
  146.  COM 181 = IF N1 N1 THEN ;
  147. : XEQ ZR WKAR
  148.  IF TCFL
  149.   IF INTCXEQ
  150.   ELSE MAPIN?
  151.    IF WAMPXEQ
  152.    ELSE WAWKXEQ
  153.    THEN
  154.   THEN
  155.  ELSE OWAXEQ
  156.  THEN ;
  157. : INTCDSP SETWIN HOME INVERSE
  158.  3 HTAB PRINT " I "
  159.  H12 PRINT " A " NORMAL PRINT " DD CELL " H31 PRINT " AREA : " TNUM P2 CR
  160.  H2 INVERSE PRINT " J " 4 HTAB PRINT " K "
  161.  H12 PRINT " R " NORMAL PRINT " EMOVE CELL " H31 PRINT " CELLS: " CR
  162.  3 HTAB INVERSE PRINT " M "
  163.  H12 PRINT " <- " NORMAL PRINT "  BACKUP 1 CELL " H31 INVERSE PRINT " LINE   " NORMAL CR
  164.  PRINT "  MOVE " H31 INVERSE PRINT " ROW    " NORMAL ;
  165.  : CR11HT CR 11 HTAB ;
  166.  : OWADSP BWIN DSPEX HOME N4 VTAB 15 HTAB PRINT " MAP MAKER " CR CR
  167.  CR11HT PRINT " 1) NEW WORK "
  168.   CR11HT PRINT " 2) LOAD MAP "
  169.  CR11HT PRINT " 3) LOAD WORK "
  170.  CR11HT PRINT " 4) CATALOG DISK "
  171.  CR11HT PRINT " 5) EXIT MAP MAKER " ;
  172.  
  173. : WAMPDSP SETWIN HOME
  174.  10 HTAB INVERSE PRINT " T " NORMAL PRINT " RANSFER MAP -> WORK " CR
  175. 10 HTAB INVERSE PRINT " C " NORMAL PRINT " HECK MAP COMPLEXITY " CR
  176.  CR H2 INVX PRINT " WORK AREA (SAVE MAP) " ;
  177.  
  178. : WAWKDSP SETWIN HOME
  179.  15 HTAB INVERSE PRINT " N " NORMAL PRINT " EW AREA      " INVERSE PRINT " M " NORMAL PRINT " AKE MAP " CR
  180.  H2 INVX PRINT " WORK   "
  181.  INVERSE PRINT " E " NORMAL PRINT " DIT AREA " CR
  182.  PRINT "     AREA " 15 HTAB INVERSE PRINT " D "
  183.  NORMAL PRINT " ELETE AREA " H31 INVERSE PRINT " WORK HAS " NORMAL CR
  184.  PRINT "    (SAVE WORK) " H31 INVERSE NT P2 PRINT "  AREAS " NORMAL ;
  185.  : DSPMENU WKAR
  186. IF TCFL
  187.  IF INTCDSP INTCL4 UPDATE
  188.  ELSE MAPIN?
  189.   IF WAMPDSP
  190.   ELSE WAWKDSP
  191.   THEN
  192.  THEN
  193. ELSE OWADSP
  194. THEN ;
  195.  : KI3 14 VTAB 13 HTAB CLEOP PRINT " SELECT OPTION: " KEYIN ;
  196.  : MUTIL 24575 PEEK NOT
  197.  IF ZR -> WKAR ZR -> TCFL HOME ZR -> UPDSBLE ZR -> DR1FLG ZR 22053 POKE ( CITFLAG
  198.  ZR 24554 POKE ( CT?
  199.  ZR 23 POKE ( COLR
  200.  ZR 24561 POKE ( PLYR 1 COLR
  201.  ELSE NT IF REF THEN
  202. THEN
  203. BEGIN DSPMENU
  204.  BEGIN WKAR IF KI2 ELSE KI3 THEN -> COM
  205.   XEQ
  206.  UNTIL
  207.  UNTIL CLRSTK BWIN DSPEX HOME
  208.  BEGIN N1 9 INSERTMS HOME SIDE N1 = UNTIL
  209.  
  210.  READ " RETURN " ;
  211.  
  212. CLOSE RUN
  213.  
  214. ETWIN HOME
  215.  10 HTAB INVERSE PRINT " T " NORMAL PRINT " RANSFER MAP -> WORK " CR
  216. 10 HTAB INVERSE PRINT " C " NORMAL PRINT " HECK MAP COMPLEXITY " CR
  217.  CR H2 INVX PRINT " WORK AREA (SAVE MAP) " ;
  218.  
  219. : WAWKDSP SETWIN HOME
  220.  15 HTAB INVERSE PRINT " N " NORMAL PRINT " EW AREA      " INVERSE PRINT " M " NORMAL PRINT " AKE MAP " CR
  221.  H2 INVX PRINT " WORK   "
  222.  INVERSE PRINT " E " NORMAL PRINT " DIT AREA " CR
  223.  PRINT "     AREA " 15 HTAB INVERSE PRINT " D "
  224.  NORMAL PRINT " ELETE AREA " H31 INVERSE PRINT " WORK HAS " NORMAL CR
  225.  PRINT "    (SAVE WORK) " H31 INVERSE NT P2 PRINT "  AREAS " NORMAL ;
  226.  : DSPMENU WKAR
  227. IF TCFL
  228.  IF INTCDSP INTCL4 UPDATE
  229.  ELSE MAPIN?
  230.   IF WAMPDSP
  231.   ELSE WAWKDSP
  232.   THEN
  233.  THEN
  234. ELSE OWADSP
  235. THEN ;
  236.  : MUTIL ZR -> WKAR ZR -> TCFL HOME ZR -> UPDSBLE
  237. BEGIN DSPMENU
  238.  BEGIN KI2 -> COM
  239.   XEQ
  240.  UNTIL
  241. UNTIL CLRSTK
  242. READ " DUM " ;
  243.  
  244. CLOSE RUN
  245.  
  246.