now peeking at : http://mirrors.apple2.org.za/Apple%20II%20Documentation%20Project/Software/Collections/IAC/Disk%20Images/
IAC 35 - Contest Entry '83.po
/ A DISK SUMMARY
[download IAC%2035%20-%20Contest%20Entry%20'83.po]
RANDOM LISTING
Peekbot chose this listing at random for you. It was found on a disk image that appears to have been originally for the Apple ][. You may like to look at:
A DISK SUMMARY
21024ENDERED UNREADABLE.":*
20001 PRINT : PRINT "UNUSAL ERROR- PANIC": END
60000 REM SET UP ROUTINE
60100 TEXT : HOME
60101D$ = CHR$ (4)
60102A$ = D$ + "APPEND"
60103B$ = D$ + "BLOAD"
60104BS$ = D$ + "BSAVE"
60105C$ = D$ + "CLOSE"
60106DE$ = D$ + "DELETE"
60108O$ = D$ + "OPEN"
60109P$ = D$ + "POSITION"
60110R$ = D$ + "READ"
60111U$*QT = 38: GOTO 3225
3238 IF LE > 0 THEN PRINT " "; RIGHT$ (DE$(X,5),LE):LC = LC + 1
3239 PRINT :LC = LC + 1
3240 NEXT
3250 PRINT D$;"PR#0": GOTO 200
3500 PRINT CHR$ (12); CHR$ (14);"DISK VOL#";VN$; CHR$ (15):LC = 2: PRINT : RETURN
20000 POKE 216,0: CALL 768: HOME : PRINT "PROGRAM TERMINATED": PRINT : IF PEEK (222) = 5 OR PEEK (22) = 6 THEN PRINT "TEXT FILE 'Z PROG.LIST' IS EITHER": PRINT : PRINT "MISSING OR HAS LENGTH- ";DE$(X,3)
3210 IF DE$(X,2) < > "" THEN PRINT " BINARY AD. & LENGTH- ";DE$(X,2):LC = LC + 1
3220LE = LEN (DE$(X,5)):PO = 1:QT = 38
3221 IF LE = 0 THEN 3240
3225 IF MID$ (DE$(X,5),PO + QT - 1,1) = " " OR LE < 39 THEN PRINT " "; MID$ (DE$(X,5),PO,QT):LE = LE - QT:PO = PO + QT:LC = LC + 1: GOTO 3235
3230QT = QT - 1: GOTO 3225
3235 IF LE < 38 THEN 3238
20132 PRINTER AND SET 'TOF'":::9I16368,0:*"AND THEN HIT <RETURN>";A$
3165 PRINT D$;"PR#";PR
3170 GOSUB 3500
3180 FOR X = 0 TO IQ: IF LC > 55 THEN GOSUB 3500
3190 PRINT DE$(X,0)
3191LC = LC + 1
3195 PRINT " BY "; LEFT$ (DE$(X,4),35)
3196LC = LC + 1
3200 PRINT " FILE TYPE- ";: IF DE$(X,6) = "N" THEN PRINT " ";
3201LC = LC + 1
3202 PRINT DE$(X,1);" * HARDCOPY OUTPUT * ********************
3010 HOME : PRINT "PARALLEL PRINTER INTERFACE ASSUMED. SEE LINES 3000 TO 3500 FOR PRINTER CMDS."
3020 PRINT : INPUT "PRINTER SLOT # -OR <S> TO RETURN TO SELECTION LIST ? ";A$: IF A$ = "S" THEN 200
3030PR = VAL (A$)
3160 HOME : PRINT "TURN OT" THEN 1000
940 IF A$ = "E" AND DE$(A,1) = "T" AND DE$(A,6) = "Y" THEN 63000
945 IF A$ = "P" THEN 3000
950 GOTO 600
1000 REM ******************** * LOAD PROGRAM SEL.* ********************
1010 IF DE$(A,1) = "B" THEN PRINT D$;"BLOAD";DE$(A,0): END
1020 PRINT D$;"LOAD";DE$(A,0)
1021 END
3000 REM ********************NCE TO NEXT DESCRIPTION <S> RETURN TO SELECTION LIST <P> PRINT HARDCOPY OF ENTIRE FILE":::*10::"WHICH ? ";:>A$
901 PRINT
905 IF A$ = CHR$ (3) THEN END
910 IF A$ = "A" THEN A = A + 1: GOTO 520
915 IF A$ = "S" THEN 200
920 IF A$ = "R" AND DE$(A,6) = "Y" AND DE$(A,1) < > "T" THEN 400
930 IF A$ = "L" AND DE$(A,1) < > "*N*::-DE$(A,6)P"N"D*::"PROGRAM NOT INTEDED TO BE RUN"
595 IF A = IQ THEN PRINT : HTAB 16: PRINT "LAST ENTRY"
596 NORMAL
600 VTAB 17: CALL CE
610 IF DE$(A,1) = "T" THEN 650
630 PRINT "<L> LOAD THIS PROGRAM <R> RUN THIS PROGRAM": GOTO 900
650 IF DE$(A,6) = "Y" THEN PRINT "<E> EXEC THIS FILE": GOTO 900
900 PRINT "<A> ADVAARY A & L- ";DE$(A,2): GOTO 570
565 PRINT
570 PRINT "LENGTH-";DE$(A,3)
571 PRINT :LE = LEN (DE$(A,5)):PO = 1:QT = 39
572 IF LE = 0 THEN 590
573 IF MID$ (DE$(A,5),PO + QT - 1,1) = " " OR LE < 41 THEN PRINT MID$ (DE$(A,5),PO,QT):LE = LE - QT:PO = PO + QT: GOTO 575
574QT = QT - 1: GOTO 573
575 IF LE < 41 THEN 577
576QT = 39: GOTO 573
577 IF LE > 0 THEN PRINT RIGHT$ (DE$(A,5),LE)
10545 = "T" THEN PRINT D$;"EXEC";DE$(A,0): END
430 PRINT D$;"RUN";DE$(A,0)
500 REM ********************* *PRINT DESC. ROUTINE* *********************
520 IF A < 0 THEN A = 0
530 IF A > IQ THEN A = IQ
540 HOME : PRINT DE$(A,0): PRINT
550 PRINT "BY ";DE$(A,4)
560 PRINT : PRINT "FILE TYPE-";DE$(A,1);: IF DE$(A,1) = "B" THEN HTAB 15: PRINT "BIAN6*-h(A$,1)P"D"DAPe(j(A$,2)):-AOI1MAQXD500
320 IF LEFT$ (A$,1) < ":" AND LEFT$ (A$,1) > "/" THEN A = VAL (A$): IF A > = 0 AND A < = X AND DE$(A,6) = "Y" THEN 330
325 GOTO 280
330X = IQ
400 REM ********************* * RUN PROG. SELECTED* *********************
420 IF DE$(A,1) = "B" THEN PRINT D$;"BRUN";DE$(A,0)
425 IF DE$(AN INPUT * **********************
280 VTAB 19: CALL CE: PRINT "ENTER 'D' FOLLOWED BY # FOR DESCRIPTION?OR 'C' FOR NEXT PAGE? OR # OF PROGRAM TO RUN? OR 'R' TO RESTART LIST? ";: INPUT "";A$
290 IF A$ = "C" AND X < IQ THEN HOME : GOTO 250
300 IF A$ = "R" THEN X = IQ: GOTO 210
14882 POKE 216,0
200 REM ********************* * SELECTION LIST * *********************
210 HOME : PRINT "NOTE- * NOT INTENDED TO BE RUN."
220 FOR X = 0 TO IQ: PRINT X;: IF DE$(X,6) = "N" THEN HTAB 4: PRINT "*";
230 HTAB 6: PRINT DE$(X,0)
240 IF PEEK (CV) > 16 THEN 275
250 NEXT
275 REM ********************* * SELECTIO FN ****
1233600
50 DIM DE$(80,8)
100 VTAB 10: HTAB 16: PRINT "WORKING"
115 REM ********************* * READ FILE * *********************
120 ONERR GOTO 20000
130 PRINT O$;"Z PROG.LIST,V0"
140 PRINT R$;"Z PROG.LIST": INPUT IQ,VN$
150 FOR X = 0 TO IQ: FOR X1 = 0 TO 8: INPUT DE$(X,X1): NEXT : NEXT
160 PRINT C$;"Z PROG.LISTPD$H"UNLOCK"
60112W$ = D$ + "WRITE"
60113L$ = D$ + "LOCK"
60249CE = - 958:CL = - 868
60299CH = 36:CV = 37
60380 FOR CY = 768 TO 777
60381 READ DA: POKE CY,DA: NEXT : RESTORE
60390 DATA 104,168,104,166,223,154,72,152,72,96
60499 RETURN
63000 PRINT D$;"EXEC";DE$(A,0)
49921*
0*
0*
0*
0*
0*
0*
0*
0*
0*
