file0

Source Code

   10 REM 1                               2                               3                               12345678901234
   15 REM USE KEYWORDS FOR D$ IN          LINE 20
   20 CLEAR : LET A=NOT PI: LET B=A: LET C=A: LET D=A: DIM A$(179,20): DIM B$(32): DIM C$(608): INK 9: PAPER A: BORDER A: CLS : LET E=PEEK 23635+256*PEEK 23636+5: LET F=USR E: LET D$=" LINE DATA DATA CODE ABS VAL ": PRINT "DISK NAME:  ";A$(178)'CODE A$(179,1);" TRKS, ";CODE A$(179,2);" SIDES=";CODE A$(179,3)*5;"K  ~";CODE A$(179,5)*5;"K"'"--------------------------------": GO TO VAL "60"
   30 LET G=3: LET H=1: FOR /I TO J: PRINT AT G,0; INVERSE 1; OVER 1;B$: PAUSE 0: LET Q$=INKEY$: IF Q$=CHR$ 13 THEN GO TO 150
   40 PRINT AT G,0; INVERSE 0;B$: GO SUB 100: NEXT : PRINT AT 3,0;C$: IF A>F THEN RANDOMIZE USR E: GO TO 60
   50 RETURN 
   60 BEEP .08,35: LET I=2: LET J=0
   70 LET G=3: LET H=NOT PI: IF F-I>18 THEN LET J=J+18: GO TO 90
   80 LET J=F+1
   90 LET K=PEEK 32768+256*PEEK 32769: FOR /I TO J
  100 RANDOMIZE USR (E+64): PRINT AT G,0;A$(A-1, TO 10);" ";D$(B+1);TAB 17;: IF NOT B AND D>1E4 THEN PRINT 0;: GO TO 120
  110 PRINT D;
  120 PRINT TAB 22;",";C: LET G=G+1: IF H THEN RETURN 
  130 NEXT : POKE 32768,K-256*INT (K/256): POKE 32769,INT (K/256): GO SUB 30: IF A-1<=F THEN LET I=A
  140 GO TO VAL "70"
  150 LET L$=A$(A-VAL "1", TO VAL "10"): GO SUB VAL "150"+CODE A$(A-VAL "1",VAL "11")+VAL "1": STOP 
  151 LOAD /L$: RETURN 
  152 LOAD /L$ DATA A(): RETURN 
  153 LOAD /L$ DATA B$(): RETURN 
  154 LOAD /L$CODE : RETURN 
  155 LOAD /L$ABS 
  156 LOAD /L$VAL : RETURN 
  200 RESTORE 300: FOR X=26715 TO 26825
  210 READ L: POKE X,L
  220 NEXT X: POKE 26711,0: DELETE 200,
  230 REM **********************   * USE GOTO 200 TO ACTIVATE  *   *     THEN SAVE USING       *   *     CLEAR: SAVE /0        *   *****************************
  250 REM from  SMUG BYTES 12-87                by R. A. Hilsmann
  300 DATA 205,10,0,42,75,92,17,32,0,25,235,33,32,38,1,212,13
  310 DATA 237,176,33,16,38,14,16,237,176,229,235,17,4,0,25,235,33,0,38,14,16,237
  320 DATA 176,225,17,20,0,62,128,190,40,4,3,25,48,249,42,75,92,17,42,0,25,34
  330 DATA 0,128,223,42,75,92,17,9,0,25,237,91,0,128,26,119,213,17,6,0,25,209
  340 DATA 19,26,119,19,35,26,119,213,17,5,0,25,209,19,26,119,19,35,26,119,33,16
  350 DATA 0,25,34,0,128,201