home *** CD-ROM | disk | FTP | other *** search
/ Antic Magazine 1983 April / Antic_April_1983_Vol_2_No_1.atr / direct.sys < prev    next >
Text File  |  2021-01-21  |  5KB  |  24 lines
  1. 200 R:     DIRECT.SYS¢210 R:PART 2 OF PILOT AUTOMATED MENU¢220 R:      ANTIC #7¢230 R:     K.W. HARMS¢240 R:¢250 U:*INITIALIZATION¢260 C:$DIR=D:*.*[WILDCARDS GET ALL FILES¢270 C:@B1373=2  [OPEN DIECTORY FLAG¢280 R: CTRL F,17 M's,G¢290 T:╱
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18. ◆¢300 R:¢310 *DIRECTORYLOOP¢320 R:READ 1st 20 GOOD FILES¢330 READ:$DIR $FILENAME [READ DIRECTOR¢340 J(@B228=136):*FINI [END OF FILE¢350 A:=$FILENAME¢360 M:FREE SECTORS¢370 JY:*FINI        [JUMPS ON FREE    SECTORS ITEM¢380 M:SYS_[       MATCHES TO FIND SYS FILES¢390 R:             THE [ MUST BE      AT THE UNDERLINE!¢400 JY:*DIRECTORYLOOP¢410 C:#F=#F+1      [ADD 1 TO FILE #¢420 C:@B#P=13      [CUT OFF AFTER 13¢425 R:NEXT 2 LINES CTRL V & B ON EITHER       SIDE OF STRING¢430 T(#F<10):⑥#F  =$FILENAME⇩¢440 T(#F>9):⑥#F =$FILENAME⇩¢450 J(#F<20):*DIRECTORYLOOP¢460 J:*FINI¢470 R:END OF PRINTING FILES¢480 R:¢490 *QUESTION¢500 R:ASK FOR FILE NUMBER¢510 POS:2,15¢520 T:                [ERASE LINE¢530 T:                [ERASE LINE¢540 POS:2,15¢550 U:*TIGHT¢560 T:TYPE \¢570 U:*HALF¢580 T:NUMBER \¢590 U:*OPEN¢600 T:FOR¢610 U:*PUCKER¢620 T:THE PROGRAM \¢630 U:*HALF¢640 T:YOU¢650 U:*TIGHT¢660 T:WISH \¢670 U:*PUCKER¢680 T:TO \¢690 U:*HALF¢700 T:RUN.¢710 U:*SMILE¢720 *ENTRYLOOP¢730 R:GET AN ANSWER & CHECK IT¢740 C:@B752=0  [TURN ON CURSOR¢750 POS:8,19¢760 A:#A¢770 T(#A<1)+(#A>#F):SORRY, TRY AGAIN.¢780 J(#A<1)+(#A>#F):*ENTRYLOOP¢790 R:¢800 R:THE READ FILE AND COUNT LOOP¢810 C:@B1373=2¢820 C:#F=0¢830 *READLOOP¢840 READ:$DIR $FILENAME¢850 A:=$FILENAME¢860 M:SYS_¢870 JY:*READLOOP    [SKIP SYS FILES¢880 C:#F=#F+1¢890 J(#F=#A):*RUNNER [FOUND FILE, JUMP¢900 J:*READLOOP      [FILE NOT FOUND¢910 R:¢920 *RUNNER¢930 R: INSERTS D: AT FRONT OF FILENAME¢940 R:  #P = POINTER TO DATA LENGTH¢950 R:  #R = BYTE ADDRESS TO READ¢960 R:  #W = BYTE ADDRESS TO WRITE¢970 R:  #V = VALUE TO READWRITE¢980 R:  #C = COUNTER¢990 C:@B#P=14 [CUTS TO 2 SPACES PLUS A LENGTH OF 11 PLUS 1 FOR DOT¢1000 C:#W=#P+1 [FIRST CHARACTER¢1010 C:@B#W=68 [ASCII VALUE FOR D¢1020 C:#W=#P+2 [SECOND CHARACTER¢1030 C:@B#W=58 [ASCII VALUE FOR :¢1040 R:¢1050 R: EXPAND FILENAME AFTER D:+8    LETTERS¢1060 C:#R=#P+13 [SET READ ON LAST CHAR.¢1070 C:#C=0¢1080 *EXPANDLOOP¢1090 C:#C=#C+1¢1100 C:#W=#R+1  [WRITE HIGHER THAN READ¢1110 C:#V=@B#R  [READ VALUE @ #R¢1120 C:@B#W=#V  [WRITE THAT VALUE¢1130 C:#R=#R-1  [MOVE EVERYTHING LEFT¢1140 J(#C<3):*EXPANDLOOP  [PERFORM 3 TIMES¢1150 R:  INSERT A DOT¢1160 C:#W=#P+11  [THE EMPTY SPACE¢1170 C:@B#W=46  [ASCII VALUE FOR PERIOD¢1180 R:¢1190 R: DELETE BLANKS IN 1ST 8 LETTERS¢1200 C:#R=#P+2  [SET READ TO 2ND LETTER¢1210 C:#C=0¢1220 *DELETELOOP¢1230 C:#C=#C+1¢1240 C:#V=@B#R  [READ VALUE¢1250 C(#V=32):#W=#R  [A 32 IS A BLANK,             SET WRITE ADDRESS TO READ ADDRESS IF BLANK¢1260 J(#V=32):*MOVELEFT¢1270 C:#R=#R+1  [IF NOT BLANK, GET READY                    TO READ NEXT LETTER¢1280 J(#C<7):*DELETELOOP  [DO 7 TIMES¢1290 J:*LOADER  [NO BLANK FOUND, LOAD¢1300 R:¢1310 *MOVELEFT¢1320 R: MOVES DOT AND EXTENSION DOWN TO          ELIMINATE BLANKS¢1330 C:#R=#P+11  [SET READ ON DOT¢1340 C:#C=0¢1350 *MOVELEFTLOOP¢1360 C:#C=#C+1¢1370 C:#V=@B#R  [READ VALUE¢1380 C:@B#W=#V [WRITE PER #W IN DELETE LOOP¢1390 C:#R=#R+1  [NEXT LETTER¢1400 C:#W=#W+1 [NEXT LETTER¢1410 J(#C<4):*MOVELEFTLOOP [DO 4 TIMES¢1420 R:¢1430 *LOADER¢1440 GR:QUIT  [RESETS SCREEN¢1450 LOAD $FILENAME¢1460 R:END OF MAIN PROGRAM¢1470 R:¢1480 *FACE¢1490 POS:2,5¢1500 R: USE CTRL Ps, reverse CTRL Ys, and CTRL F, G, & N for mouth.¢1510 T:     ⓪⓪⓪¢1520 T:   ⓪⓪   ⓪⓪¢1530 T:  ⓪       ⓪¢1540 T:  Ö û   û ⑨¢1550 T:  Ö   ④   ⑨¢1560 T:  Ö       ⑨¢1570 T:  Ö ◆╱ ⑨¢1580 T:  Ö       ⑨¢1590 T:   ◆╱¢1600 T:¢1610 PA:30¢1620 E:¢1630 *SMILE¢1640 U:*SETXY¢1650 POS:7,11¢1660 T:◆╱¢1670 POS:7,12¢1680 T:     [ERASE MOUTH BOTTOM¢1690 PA:5¢1700 U:*RESETXY¢1710 E:¢1720 *OPEN¢1730 U:*SETXY¢1740 POS:7,11¢1750 T:╱
  19.  
  20.  
  21. ◆¢1760 POS:7,12¢1770 T:◆╱¢1780 PA:5¢1790 U:*RESETXY¢1800 E:¢1810 *TIGHT¢1820 U:*SETXY¢1830 POS:7,11¢1840 R: CTRL U¢1850 T:⑤⑤⑤⑤⑤¢1860 POS:7,12¢1870 T:     [¢1880 PA:5¢1890 U:*RESETXY¢1900 E:¢1910 *PUCKER¢1920 U:*SETXY¢1930 POS:7,11¢1940 T:╱
  22. ◆¢1950 POS:7,12¢1960 T:
  23. ◆╱
  24. ¢1970 PA:5¢1980 U:*RESETXY¢1990 E:¢2000 *HALF¢2010 U:*SETXY¢2020 POS:7,11¢2030 T:¢2040 POS:7,12¢2050 T:◆╱¢2060 PA:5¢2070 U:*RESETXY¢2080 E:¢2090 R:¢2100 *SETXY¢2110 R: STORES CURSOR POSITION¢2120 C:#X=@B85     [GET X COORDINATE¢2130 C:#Y=@B84     [GET Y COORDINATE¢2140 E:¢2150 R:¢2160 *RESETXY¢2170 R: RESTORES CURSOR POSITION¢2180 C:@B85=#X¢2190 C:@B84=#Y¢2200 E:¢2210 R:¢2220 R:¢2230 *INITIALIZATION¢2240 C:$FILENAME=DUMMYSPACESTO15¢2250 R:THIS STRING MUST BE FIRST¢2260 R:VARIABLE USED.  IT RESERVES SPACE IN THE VARIABLE TABLE¢2270 C:#P=@178[  START OF STRING SPACE¢2280 C:#P=#P+8+1¢2290 R:ADDS TO SKIP BYTES NAME LENGTH &       NAME ITSELF, LEAVES #P ON DATA       LEGTH¢2300 C:@B82=20    [MOVE MARGIN¢2310 POS:20,1     [GETS TO NEW MARGIN¢2320 E:¢2340 *FINI¢2350 R:CTRL G, 17 N's, F¢2360 T:◆╱¢2370 CLOSE:$DIR¢2380 C:@B82=2¢2390 R:POS:0,2¢2400 J:*QUESTION¢2410 R:END OF PROGRAM¢