Character Set Definer

0 REM PNOT BIN P AND NOT CONTINUE *** Character  Definer ***Copyright BYTE POWER 1986.Written by Eric BoisvertINPUT ADDRESS OF CODE:█ ADDRESS:aNEXT,FILE,EDITMOVE CURSORCHARACTER:a        /01234567█++█████CHARACTER DEFINER1-CLEAR CHARACTER SET2-LOAD FILE3-SAVE FILE4-CHANGE ADDRESS5-QUIT PROGRAM RESTORE FOR FOR LLIST s#r+<> RESTORE ATN FOR GO SUB B PAUSE RESTORE >bkLN  CLS EXP  SAVE STOP ATN RESTORE FOR B0 CLS MERGE !\h STEP USR i!^h STEP USR i!j\>w STEP REM !6\>w!7\><w> BEEP > BEEP h STEP FLASH !>> BEEP h STEP FLASH !>> BEEP h STEP FLASH !> BEEP TAN STEP DIM 0 STEP FOR STEP REM !`h STEP USR i!bh STEP USR i!dh STEP USR i>> BEEP h FLASH !> BEEP >:`h BEEP h STEP FLASH !> BEEP STEP DIM 0 STEP FOR !fh:\w#6*fhATN GO SUB RCHR$ ERASE jNOT ▌k*fhATN GO SUB RCHR$ LLIST jNOT ^k!fh GO SUB [fh0 STEP LINE i*fhATN GO SUB R IF k*fhATN GO SUB R PAUSE kNOT kNOT kj*`h GO SUB [bhATN GO SUB R LINE [k!dh GO SUB [dh STEP MOVE i GO SUB Kfh STEP USR i!fh GO SUB [fh0 STEP USR i>:`h BEEP :fh BEEP > BEEP !`h GO SUB [`h STEP USR iNOT kjNOT sk*dhATN GO SUB RCHR$ mkNOT kj!dh GO SUB [dh STEP LLIST i!`h GO SUB [`h STEP LINE iNOT kj*dhATN GO SUB RCHR$ sk!dhNOT STEP USR i!k\>w STEP REM !k\>w> BEEP > BEEP h STEP FLASH ! GO SUB Kdh STEP DIM 0 STEP r1> BEEP !hh STEP USR i!jh GO SUB [dh STEP USR i!lh STEP USR i!nh STEP USR i!ON ERR\:jhw!ph GO SUB [jh STEP LLIST i!STICK\:phw!ph STEP USR i*hhATN GO SUB R LINE Ml*hhATN GO SUB R LINE Ml!ph GO SUB [hh STEP USR i>lh BEEP :nh BEEP h STEP FLASH !:ph BEEP > BEEP !hh GO SUB [hh STEP USR i!nh GO SUB [nh STEP USR i*nhATN GO SUB RCHR$ PIl!nh STEP USR i!lh GO SUB [lh STEP USR i!jh GO SUB [jh STEP USR i*lhATN GO SUB R LINE NOT lNOT l>> BEEP h STEP FLASH !> BEEP i STEP FLASH !> BEEP STEP 4r!ph GO SUB [^h STEP LINE i STEP LLIST i!hh GO SUB [\h STEP LLIST i STEP MOVE i GO SUB Kph STEP USR i!ph GO SUB [hh STEP USR i!rh STEP USR i*phATN GO SUB R LINE Xm*phATN GO SUB R LINE Xm!rh GO SUB [ph STEP USR i!hh GO SUB [hh STEP MOVE i GO SUB Kdh STEP USR i!ON ERR\:hhw!fh GO SUB [hh STEP LLIST i!STICK\:fhw>> BEEP i STEP FLASH !>> BEEP GO SUB Kph STEP DIM 0 STEP r1>> BEEP :rh BEEP >> BEEP i STEP FLASH !> BEEP !lh STEP USR i!ph GO SUB [lh* STEP USR i>lh BEEP > BEEP :ph BEEP i STEP FLASH !> BEEP !lh GO SUB [lh STEP USR i*lhATN GO SUB R LINE nNOT PAPER mi STEP FLASH !> BEEP !lh STEP USR i!ph GO SUB [lhHP STEP USR i!th GO SUB [ph FOR GO SUB q FOR 6!nh STEP USR i!vh STEP USR i*th GO SUB [vhATN GO SUB R PAUSE wnNOT SGN n!th GO SUB [th GO SUB Kvh STEP LINE i!ph GO SUB [lh STEP LLIST i STEP USR i!rh GO SUB [nh STEP USR i>ph BEEP :rh BEEP i STEP FLASH !> BEEP !vh GO SUB [vh STEP LLIST i!nh GO SUB [nh STEP USR i*nhATN GO SUB R LINE RESTORE nNOT gn!lh GO SUB [lh STEP USR i*lhATN GO SUB R LINE oNOT 5n!\>w!xh STEP USR i!zh STEP USR i!b\>w>xh BEEP :zh BEEP i STEP FLASH !> BEEP STEP ACS t>xh BEEP :zh BEEP i STEP FLASH !> BEEP !b\>w*fhATN GO SUB RCHR$ koNOT *fhATN GO SUB RCHR$ zoNOT CLS q*fhATN GO SUB RCHR$ ▞oNOT r*fhATN GO SUB RCHR$ ioNOT Qs*fhATN GO SUB RCHR$ PIoNOT Qs*STICKhATN GO SUB RCHR$ PRINT o!b\>w>xh BEEP :zh BEEP i STEP FLASH !> BEEP !ph GO SUB [zh? STEP USR i!rh GO SUB Kxh STEP LINE i:phO:rhG STEP >&!STICKh STEP ) STEP m&!STICKhw#6>© OPEN # CLEAR !ph FLASH RETURN w#6!ph GO SUB [ph GO SUB KSTICKh STEP USR i*phATN GO SUB R LINE 2pNOT PRINT o*FREE h GO SUB R IF qp!FREE h GO SUB [FREE h STEP LINE i!zh GO SUB [zh STEP USR i*zhATN GO SUB RCHR$ qp!zh STEP USR i*FREE h GO SUB R IF VAL p!FREE h GO SUB [FREE h STEP LINE i!zh GO SUB [zh STEP LINE i*zhATN GO SUB RCHR$ VAL p!zh STEP USR i*FREE hATN GO SUB RCHR$ LLIST p!xh GO SUB [xh STEP USR i*xhATN GO SUB RCHR$ LLIST p!xh STEP USR i*FREE hATN GO SUB RCHR$ !xh GO SUB [xh STEP LINE i*xhATN GO SUB RCHR$ !xh STEP USR iNOT o! h STEP USR i STEP !rh GO SUB [^h STEP LINE i STEP LLIST i!ph GO SUB [\h STEP LLIST i STEP MOVE i GO SUB Krh STEP USR i!ph GO SUB [ph STEP MOVE i GO SUB Kdh STEP USR i!lhP STEP USR i!rh GO SUB [lh FOR GO SUB q FOR 6*ph:rhw!lh GO SUB [lh STEP USR i!ph GO SUB [ph STEP USR i*lhXATN GO SUB R LINE VAL$ qNOT qq!^h GO SUB [^h STEP USR i*^hATN GO SUB RCHR$ SAVE q!^h STEP USR i!\h GO SUB [\h STEP USR i*\hATN GO SUB RCHR$ SAVE q!\h STEP USR iNOT sk STEP 4r STEP Xr STEP 4rNOT o STEP STEP XrNOT sk!b\>w>\h BEEP :^h BEEP i STEP FLASH !> BEEP !b\>w<>!b\>w>\h BEEP :^h BEEP i STEP FLASH !> BEEP !b\>w<> STEP STEP ACS t STEP 4r*STICKhATN GO SUB RCHR$ nr<>*FREE h GO SUB R IF TAB r!FREE h GO SUB [FREE h STEP LINE i!^h GO SUB [^h STEP USR i*^hATN GO SUB RCHR$ TAB r!^h STEP USR i*FREE h GO SUB R IF GO TO r!FREE h GO SUB [FREE h STEP LINE i!^h GO SUB [^h STEP LINE i*^hATN GO SUB RCHR$ GO TO r!^h STEP USR i*FREE hATN GO SUB RCHR$ s!\h GO SUB [\h STEP LINE i*\hATN GO SUB R PAUSE s!\h STEP USR i*FREE hATN GO SUB RCHR$ Ns!\h GO SUB [\h STEP USR i*\hATN GO SUB RCHR$ Ns!\h STEP USR iNOT Xr!k\>w STEP REM > BEEP > BEEP i STEP FLASH !> BEEP > BEEP > BEEP > BEEP i STEP FLASH !> BEEP > BEEP > BEEP i STEP FLASH !> BEEP > BEEP > BEEP i STEP FLASH !> BEEP > BEEP > BEEP i STEP FLASH !> BEEP > BEEP > BEEP i BEEP STEP DIM 0 STEP FOR !fh:\w#6!fh GO SUB [fh0 STEP LINE i*fhATN GO SUB RCHR$ CLS sNOT vt!VAL \:dhw!ph GO SUB [dh STEP LLIST i!LEN \:phw*fhATN GO SUB RCHR$ /t!▘h CONTINUE STEP USR i<>*fhATN GO SUB RCHR$ Ht!▘h FORMAT STEP USR i<>*fhATN GO SUB RCHR$ WtNOT ^j*fhATN GO SUB RCHR$ st STEP REM !▘h(# STEP USR i<>NOT sk!lh GO SUB [dh STEP USR i!xh GO SUB [dh STEP USR i*lh>w!lh GO SUB [lh STEP USR i*lh GO SUB [xhATN GO SUB R LINE COS tNOT atNOT sk!\>w!▗h STEP USR i!▗h GO SUB [▗h STEP LINE i*▗hATN GO SUB R LINE DATA tNOT >=t!fh:\w#6!FREE h STEP ) STEP m&!FREE hw#6!STICKh STEP ) STEP m&!STICKhw#6>© OPEN # CLEAR !ph FLASH RETURN w#6*phATN GO SUB RCHR$ 9u!STICKh STEP USR i> CLS OPEN # CLEAR !ph FLASH RETURN w#6*phATN GO SUB RCHR$ ^u!FREE h STEP USR i> CLEAR OPEN # CLEAR !ph FLASH RETURN w#6*phATN GO SUB RCHR$ ▀u!FREE h STEP USR i> OUT OPEN # CLEAR !ph FLASH RETURN w#6*phATN GO SUB RCHR$ POINT u!FREE h GO SUB [FREE h STEP USR i> OUT OPEN # CLEAR !ph FLASH RETURN w#6*phATN GO SUB RCHR$ CAT u!FREE h GO SUB [FREE h STEP USR i!ph GO SUB [FREE h GO SUB KSTICKh STEP USR i GO SUB Kfh STEP USR i*phATN GO SUB RCHR$ NEXT uNOT DATA t<>
    1 IF PEEK 23681<>0 THEN PRINT AT 0,0;: GO TO USR 27119
    2 CLS : LIST 9999: STOP 
 1000 REM LOAD AT ADDRESS
 1010 GO SUB 3000
 1020 PRINT "LOADING:";N$: LOAD N$CODE ADDR
 1030 PRINT AT 0,0;: GO TO USR 27554
 2000 REM SAVE AT ADDRESS
 2010 GO SUB 3000
 2020 IF N$="" THEN GO TO 2000
 2030 SAVE N$CODE ADDR,768: PRINT "VERIFYING:";N$: VERIFY N$CODE 
 2040 GO TO 1030
 3000 CLS : LET ADDR=PEEK 23728+256*PEEK 23729: INPUT "FILE NAME:"; LINE N$: IF LEN N$>10 THEN GO TO 3000
 3010 RETURN 
 9000 REM QUIT
 9010 NEW 
 9999 SAVE "CHARACTER" LINE 1: VERIFY "CHARACTER"