1 REM +++++++++++++++++++++++++++++++›2 REM +  ÇÒ®Á®Ã®Å®  ÐÒÏÇÒÁÍ ÌÉÂÒÁÒÙ +›3 REM +BLKCUR.LST-ENTER THIS TO ANY +›4 REM +PROGRAM-GOTO 30000 TO CAUSE  +›5 REM +THE CURSOR TO BLINK.         +›6 REM +                             +›7 REM +         RHETT BRYSON        +›8 REM +                             +›9 REM +++++++++++++++++++++++++++++++›30000 RESTORE ›30005 GRAPHICS 0:POKE 709,32:POKE 710,104:POKE 712,104:POKE 82,2:POKE 752,1:POKE 65,0:POKE KEY,255›30010 FOR I=1536 TO 1567:READ A›30015 FB$="D1:":? "ý}":POSITION 10,0:? "ÕÔÉÌÉÔÙ ±³ ÄÉÓË ÍÅÎÕ":? :? ›30020 POKE I,A:NEXT I›30025 TRAP 30060:IF R=40 THEN 30070›30030 I=USR(1536):RETURN ›30035 ? FA$(1,1);:FOR I=3 TO 10:IF FA$(I,I)<>" " THEN ? FA$(I,I);:NEXT I›30040 DATA 104,162,6,160,11,169,6,32›30045 FOR I=I TO LEN(FA$)-2:? " ";:NEXT I:? FA$(15,17)›30050 DATA 92,228,96,165,20,110,243,2›30055 GOTO 30025›30060 DATA 110,243,2,106,106,106,106›30070 DATA 46,243,2,46,243,2,76,95,228›30075 FOR LOOP=0 TO 0 STEP 0:IF V>22 AND H=0 THEN H=20:V=3›30080 IF R>19 THEN IF V>=R-17 AND H=20 THEN V=3:H=0›30085 IF R<=19 THEN IF V>=R+3 THEN V=3:H=0›30090 POSITION H,V:? " ";:IF PEEK(CONSOL)=5 THEN V=V+1:FOR I=1 TO 50:NEXT I›30095 IF PEEK(CONSOL)=6 THEN GOSUB NAME:GOTO 30135›30100 IF PEEK(CONSOL)=3 AND R=40 THEN FOR I=2 TO 22:POSITION 0,I:? C$:NEXT I:R=0:POSITION 2,3:GOTO 30025›30105 IF PEEK(CONSOL)=3 AND K=1 THEN RUN ›30110 IF PEEK(KEY)=186 THEN GOSUB NAME:A$="Äåìåôéîç ½¾ ":P=8:GOSUB LINE:XIO 33,#1,0,0,FB$:RUN ›30115 IF PEEK(KEY)=128 THEN GOSUB NAME:A$="Ìïãëéîç ½¾ ":P=8:GOSUB LINE:XIO 35,#1,0,0,FB$:RUN ›30120 IF PEEK(KEY)=139 THEN GOSUB NAME:A$="Õîìïãëéîç ½¾ ":P=8:GOSUB LINE:XIO 36,#1,0,0,FB$:RUN ›30125 IF PEEK(KEY)=168 THEN GOSUB NAME:A$="Îå÷ îáíå æïò½¾":P=0:GOSUB LINE:GOSUB 30175:XIO 32,#1,0,0,FB$:RUN ›30130 NEXT LOOP›30135 IF FB$(4,6)="DOS" OR FB$(4,6)="DUP" THEN DOS ›30140 IF FB$(4,4)=" " THEN RUN ›30145 FOR I=4 TO LEN(FB$):FB$(I,I)=CHR$(ASC(FB$(I,I))+128):NEXT I›30150 POSITION 0,23:? " Ìïáäéîç ";FB$(4,LEN(FB$));:FOR I=LEN(FB$) TO 15:? " ";:NEXT I:? "Ðìåáóå óôáîä âù®®";:POSITION H,V›30155 FOR I=4 TO LEN(FB$):FB$(I,I)=CHR$(ASC(FB$(I,I))-128):NEXT I:RUN FB$›30160 FOR H=H+3 TO H+14:LOCATE H,V,X:IF X<>32 THEN FB$(LEN(FB$)+1)=CHR$(X):NEXT H›30165 POSITION H,V:PUT #6,X:RETURN ›30170 POKE 752,1:POSITION 0,23:? C$;:POSITION P,23:? A$;FB$(4,LEN(FB$));:POKE KEY,255:FOR I=1 TO 500:NEXT I:RETURN ›30175 ? "ý";:INPUT A$:? "}":FB$(LEN(FB$)+1)=",":FB$(LEN(FB$)+1)=A$:RETURN ›30180 POKE 752,1:? "}ý":POSITION 17,10:? "ÓÏÒÒÙ¡ ":POSITION 5,12:? "UNABLE TO FOLLOW INSTRUCTIONS..."›30185 POSITION 2,14:? "PLEASE CHECK  DRIVE  AND/OR  FILESPEC   THEN   PRESS  ÏÐÔÉÏÎ  FOR MENU."›30190 IF PEEK(CONSOL)<>3 THEN 30190›30195 RUN ›