0 REM  ÁÎÁÌÏÇ ÃÁÒÄ ÆÉÌÅ ›1 REM ›2 REM : IF NEW SCREEN THEN DRAW A›3 REM : BLANK SCREEN AND PUT THE›4 REM : CURSOR ON THE FIRST LINE.›5 REM ›6 REM : IF OLD SCREEN THEN LOAD THE›7 REM : SELECTED SCREEN, GOTO EDITOR,›8 REM : AND SAVE OVER OLD FILE.›9 REM ›14 K1=1:K255=255:K256=K255+K1:TRAP 20:POKE 752,K1:? "}INITIALIZING"›15 DIM A$(K1),FILE$(15),LINE(25),PP$(40),HOLD$(K256),FN$(14)›16 SCREEN=PEEK(88)+K256*PEEK(89)+40:FOR J=K1 TO 23:LINE(J)=SCREEN:SCREEN=SCREEN+40:NEXT J:GOSUB 3100›19 REM  ÍÁÉΠÍÅÎÕ ÓÃÒÅÅΠ›20 TRAP 20:GRAPHICS K0:POKE 559,62:POKE 53277,3:SETCOLOR 2,K0,K0:GOSUB 30000:POKE 82,K0›25 ? :? :? "*** ANALOG CARD FILE ***":? :PP$=CHR$(18):PP$(40)=PP$:PP$(2)=PP$:? PP$›26 ? "AFTER SCREEN IS LOADED, TYPE ON THE":? "SCREEN AS DESIRED.  START=SAVE TO"›27 ? "DISK.  OPTION=START OVER WITHOUT SAVING"›28 ? "SELECT=PRINT OUT THE SCREEN.":? :? PP$›30 ? :? "ÎEW OR ÏLD SCREEN, ÄIRECTORY":? "OR ÐURGE A CARD: ";:CLOSE #K1:OPEN #K1,4,K0,"K:":GET #1,J:A$=CHR$(J)›40 IF A$="O" THEN 800›45 IF A$="P" THEN 700›50 IF A$="D" THEN 900›60 IF A$<>"N" THEN 30›99 REM  ÎÅ× ÓÃÒÅÅΠÒÏÕÔÉÎÅ ›100 ? "NEW":? :? "FILE NAME TO SAVE AS";:GOSUB 4000:GRAPHICS K0:POKE 559,62›110 POKE 53277,3:SETCOLOR 2,8,2:SETCOLOR K1,K0,13:SETCOLOR K0,K1,15:DL=PEEK(560)+PEEK(561)*K256:GOSUB 30000›120 POKE DL+3,70:POKE DL+6,11:? " ANALOG CARD FILE";›129 REM  ÅÄÉÔÏÒ ÒÏÕÔÉÎÅ ›130 TRAP 20:CLOSE #K1:OPEN #K1,4,K0,"K:":POKE 82,K0:POKE 752,K0:POSITION K0,K1:? "";:POKE 764,K255›140 IF PEEK(764)<>K255 THEN GET #K1,K:? CHR$(K);:GOTO 140›150 IF PEEK(53279)=6 THEN POKE 752,K1:? "";:GOTO 1000›155 IF PEEK(53279)=3 THEN 20›156 IF PEEK(53279)=5 THEN 3000›160 GOTO 140›699 REM  ÄÅÌÅÔÅ Á ÆÉÌÅ ›700 ? "PURGE":? :CLOSE #K1:? "ENTER FILENAME TO DELETE OR PRESS":? "RETURN TO ABORT";:GOSUB 4000›710 IF FN$="" THEN 20›720 XIO 33,#3,K0,K0,FILE$:GOTO 20›799 REM  ÅÄÉÔ ÓÃÒÅÅΠÒÏÕÔÉÎÅ ›800 ? "OLD":? :? "FILE NAME TO EDIT";:GOSUB 4000:GOTO 2000›899 REM  ÄÉÓË ÄÉÒÅÃÔÏÒÙ ›900 ? "}DRIVE #";:GET #K1,X:FN$="D1:*.*":FN$(2,2)=CHR$(X):CLOSE #K1:? CHR$(X):? :OPEN #K1,6,K0,FN$›910 FOR X=K1 TO 64:INPUT #K1,FN$:FN$=FN$(3):IF FN$(3,12)="FREE SECTO" THEN 945›920 IF X/2=INT(X/2) THEN POSITION 15,(X+K1)/2:? FN$:GOTO 940›930 POSITION 2,(X+2)/2:? FN$›940 NEXT X›945 ? :? "PRESS ANY KEY TO CONTINUE...";:POKE 764,K255›950 IF PEEK(764)=K255 THEN 950›960 POKE 764,K255:CLOSE #K1:GOTO 20›999 REM  ×ÒÉÔÅ ÓÃÒÅÅΠÔÏ ÄÉÓË ›1000 CLOSE #K1:OPEN #K1,8,K0,FILE$›1010 PUT #K1,PEEK(939):FOR I=708 TO 712:PUT #K1,PEEK(I):NEXT I›1020 RAMTOP=PEEK(106)*K256:DL=PEEK(560)+K256*PEEK(561):BYTES=RAMTOP-DL:HI=INT(BYTES/K256):LO=BYTES-HI*K256›1030 POKE 850,11:POKE 856,LO:POKE 857,HI:GOTO 2030›1999 REM  ÒÅÁÄ ÓÃÒÅÅΠÆÒÏÍ ÄÉÓË ›2000 CLOSE #K1:OPEN #K1,4,K0,FILE$›2010 GET #K1,A:GRAPHICS A:POKE 559,62:POKE 53277,3:FOR I=708 TO 712:GET #K1,A›2020 POKE I,A:NEXT I:GOSUB 30000:POKE 850,7:POKE 856,K255:POKE 857,K255›2030 POKE 852,PEEK(560):POKE 853,PEEK(561):X=USR(ADR("hhhªLVä"),16):CLOSE #1:GOTO 130›2999 REM  ÐÒÉÎÔ ÏÕÔ ÔÈÅ ÓÃÒÅÅΠ›3000 TRAP 130:CLOSE #K1:OPEN #K1,8,K0,"P:":FOR J=K1 TO 23›3010 FOR I=K1 TO 40:PP$(I)=HOLD$(PEEK(LINE(J)+I-K1)+K1):NEXT I:PRINT #K1;PP$:NEXT J:CLOSE #K1:GOTO 130›3099 REM  ÁÒÒÁÙ ÔÏ ÍÁËÅ ÉàÔÏ Áà›3100 FOR II=K0 TO K255:IC=II:IV=K0:IF IC>127 THEN IV=K1:IC=IC-128›3110 IF IC<64 THEN AC=IC+32+128*IV:GOTO 3140›3120 IF IC<96 THEN AC=IC-64+128*IV:GOTO 3140›3130 AC=IC+128*IV›3140 HOLD$(II+K1)=CHR$(AC):NEXT II›3199 REM  Ð¯Í ÉÎÉÔÉÁÌÉÚÁÔÉÏΠ›3200 PMBASE=PEEK(106)-16:POKE 54279,PMBASE:PMBASE=PMBASE*K256›3210 FOR W=53256 TO 53259:POKE W,3:NEXT W:POKE 53260,K255›3220 POKE 88,K0:POKE 89,PEEK(106)-16›3230 FOR W=PMBASE+809 TO PMBASE+989 STEP 8:FOR J=K0 TO 1024 STEP K256:POKE W+J,K255:NEXT J:NEXT W›3240 FOR W=704 TO 707:POKE W,K0:NEXT W:POKE 559,62:POKE 53277,3:POKE 623,K1›3250 FOR I=53248 TO 53255:READ J:POKE I,J:NEXT I:RETURN ›3260 DATA 48,80,112,144,176,184,192,200›3999 REM  ÆÉÌÅ ÎÁÍÅ ÈÁÎÄÌÅÒ ›4000 INPUT FN$:IF FN$="" THEN RETURN ›4010 FOR J=K1 TO LEN(FN$):IF FN$(J,J)=":" THEN FILE$=FN$:RETURN ›4020 NEXT J:FILE$="D:":FILE$(3)=FN$:RETURN ›29999 REM  ÄÉÓÁÂÌÅ ÂÒÅÁË ËÅÙ ›30000 U=PEEK(16):IF U>127 THEN U=U-128:POKE 16,U:POKE 53774,U›30010 RETURN ›