8000 TEXT : HOME : PRINT "SET DRAWING ENVIRONMENT":BF = 0 : DP = 0
8010 PRINT : PRINT "COLORS AVAILABLE..
8020 PRINT "0. BLACK1": PRINT "1 . GREEN": PRINT "2. VIOLET": PRINT "3. W
HITE1": PRINT "4. BLACK2": PRINT "5. ORANGE": PRINT "6. BLUE": PRINT
"7. WHITE2"
8025 PRINT "8. NONE -- BACKGROUND ONLY"
8030 PRINT : INPUT "BACKGROUND COLOR: ";BC: IF BC < 0 OR BC > 7 THEN BF =
1:BC = 0
8040 PRINT : INPUT "FOREGROUND COLOR: ";FC: IF FC < 0 OR FC > 7 THEN 8040
8045 PRINT : INPUT "SINGLE<1> OR DOUBLE<2> PRECISION:";N: IF N < 1 OR N >
2 THEN 8045
8048 IF N = 1 THEN 8060
8050 DP = PRINT : INPUT "CONTAST COLOR: ";CC: IF CC < 0 OR CC > 7 THEN 8
050
8060 GOTO 130
11000 READ F%,L%,D%:REM MEMORY LOCATIONS FOR MOVE
11010 FH% = F% / 256: FL% = F% - 256 * FH%: LH% = L% / 256:LL% = L% - 256 *
LH%: DH% = D% / 256:DL% = D% - 256 * DH%
11020 POKE 60,FL%: POKE 61,FH%: POKE 62,LL%: POKE 63,LH%: POKE 66,DL%: POKE
67, DH%
11030 POKE 70,0: POKE 71,0: POKE 58,44: POKE 59,254: REM SETUP YREG, XREG
+ PCL, PCH
11040 CALL - 327:MF = NOT MF: IF MF = 0 THEN RESTORE
11050 RETURN
11060 DATA 8192,16383,16384,16384,24575,8192
12000 REM ERROR HANDLING ROUTINES
12010 GOOF = PEEK (222)
12020 PRINT : PRINT BELL$: "ERROR NO.";GOOF;" ENCOUNTERED": PRINT "ERROR H
ANDLER ACTIVE...";BELL$: FOR Z = 1 TO 1000: NEXT
12030 IF GOOF = 53 THEN PRINT : PRINT BELL$;"NEED FONTS TO CONTINUE":BEL
L$: FOR ZZ = 1 TO 1000: NEXT ZZ:B$(J + 6) = B$(J): HOME :B$(J) = "F":
GOSUB 3000: RESUME
12040 IF (GOOF = 5) OR (GOOF = 6) THEN PRINT "FILE NOT FOUND": FOR ZZ =
1 TO 2000: NEXT : GOTO 130
12060 IF GOOF = 9 THEN PRINT BELL$: "DISK FULL, INSERT NEW DISKETTE";BELL$
12070 IF GOOF = 10 THEN PRINT BELL$;"WARNING!!, ";N$;" IS LOCKED": PRINT
"DO YOU WISH TO DESTROY OLD FILE";: INPUT A$! IF LEFT$ (A$,1) = "N" THEN
GOTO 130
12080 IF LEFT$ (A$,1) = "Y" THEN PRINT D$: "UNLOCK ";N$
12090 IF GOOF = 255 THEN STOP
12100 RESUME
20000 REM *** TEXT GENERATOR ***
20020 PRINT : PRINT "CHARACTER STRING: ";:LC = 0:SC = 0:R$ = ""
20050 PRINT BELL$;: GET T$: IF T$ = CHR$ (13) THEN LC = 0: NORMAL : GOTO
20110
20060 IF T$ = CHR$ (7) OR T$ = CHR$ (19) THEN FLASH :R$ = R$ + TS:SC =
1: GOTO 20050
20070 IF T$ = CHR$ (27) THEN LC = NOT (LC): GOTO 20050
20080 IF NOT (LC) AND NOT (SC) THEN INVERSE
20090 IF LC AND NOT (SC) AND ASC (T$) > 63 THEN NORMAL :T$ = CHR$ ( ASC
(T$) + 128)
20100 PRINT T$:!R$ = R$ + CHRS ( ASC (T$)):SC = GOTO 20050
20110 PRINT : PRINT BELL$: INPUT "SIZE :";IW:IW = INT (IW): IF IW < 1 OR
IW > 10 THEN PRINT BELL$'"REINPUT :";: GOTO 20110
20130 PRINT BELL$: INPUT "HORIZ.<H> OR VERT.<V> CHARACTERS ?";L$: IF L$ <
> "H" AND L$ < > "V" THEN PRINT BELL$: "REINPUT :";: GOTO 20130
20140 IV = 0: IF L$ = “V" THEN IV = 06
29
