Fontkit for WRX16

Developer(s): Fred Nachbaur, Gregory Harder
Date: 1986
Type: Cassette
Platform(s): TS 1000
Tags: Font
Fontkit for WRX16 is a collection of high-resolution custom font sets designed for use with the WRX16 software and SHREB. The package includes multiple named font files—Sans-serif Bold, Elite Gothic, Fancy, a proportional “Sinclair logo”-style set, and others—each stored as a separate BASIC program that transmits 8-by-8 pixel character bitmaps to the hi-res board via LPRINT statements using the UDG or SD command tokens. Font data is expressed as comma-separated hexadecimal byte strings passed through LPRINT, with each LPRINT line guarded by an IF USR HR THEN condition that both checks board presence and triggers the download. The proportional font module is the most technically sophisticated, implementing a character-width lookup table stored in a two-row string array (W$) and a rendering loop that tracks an X pixel cursor, performs automatic line-wrap via a GOSUB, and supports a live typewriter input mode. A decimal-to-hex converter subroutine at line 9000–9050 of the Fancy font file assists in computing the hex byte values used throughout the font definitions.
Program Analysis

Overview and Architecture

Fontkit for WRX16 is not a single program but a suite of related BASIC files, each self-contained and saveable to tape under its own name. The files share a common structural pattern and rely on the WRX16 hi-res graphics board with SHREB loaded at either address 19400 (V2) or 20000 (V3). The collection includes:
A loader/menu shell (lines 10–4000) shared across several font files
Sans-serif Bold (saved as SANSBOL D / A:BOLDFONT,P)
Elite Gothic (saved as ELIT E)
Fancy (saved as FANC Y)
Proportional / “Sinclair logo” font (saved as MOD-PRO P)
A lower-case-only set embedded in the Fancy font file (lines 130–150)
Several files also embed the WRX16 “CORE V3.00” machine-code driver as binary data packed inside REM statements (lines 0, 1, 2), a standard technique for bundling machine code within a BASIC program without a separate binary file.
Font Download Mechanism

All font data is sent to the WRX16 board using LPRINT statements. The IF USR HR THEN LPRINT … idiom serves a dual purpose: calling USR HR invokes the SHR-EB machine-code driver to prepare the board for a download, and the BASIC conditional prevents execution of the LPRINT if the driver signals failure (returns zero/false). Each LPRINT line names a character by its ASCII character or keyword token and supplies a comma-separated string of eight hexadecimal byte values representing the 8×8 pixel bitmap rows.
The guarded LPRINT pattern appears consistently across all font files:
IF USR HR THEN LPRINT UDG;"A","00,18,24,42,7E,42,E7,00"
Some lines carry two character definitions concatenated in one string literal, separated by the closing/opening quote, reducing line count.
Loader Shell

The menu shell (lines 10–4000, replicated in each font file) presents a four-option menu driven by INPUT A:
Option	Action	GOSUB target
1	Download font to board	1000 → `RAND USR VAL "16516"`
2	Store new font	2000 → `RAND USR VAL "18082"`
3	Save current font to tape	3000 → `INPUT A$` / `SAVE A$`
4	Stop	4000 → `STOP`
The dispatch uses GOSUB VAL "1E3*A" at line 50, which computes the target line number (1000, 2000, 3000, 4000) arithmetically from the user’s input — a compact indirect-dispatch idiom. Input validation at line 40 uses PI/PI (equals 1) as the lower bound rather than the literal 1, a common trick to avoid storing an integer constant.
Proportional Font Module

The proportional font file (MOD-PRO P) is the most complex, implementing a complete proportional-spacing text renderer in BASIC. Key variables are initialized at lines 15–20:
HR = hi-res driver address (20000 for V3, 19400 for V2)
T2 = 32 (used as an offset to distinguish upper/lower case)
DEF = 8000 (base address of font-definition subroutines)
PR = 100 (print subroutine)
LF = 300 (line-feed subroutine)
LN = 400 (print-line subroutine)
The character-width table is stored in the two-row string array W$(2,32) at lines 7010–7030. Each character of the strings encodes the pixel width of one character using raw character codes, enabling fast CODE W$(…) lookup. The render loop at lines 100–260 iterates over T$, looks up each character’s width, tests for line overflow, and calls USR HR with the character code and X/Y pixel coordinates. Line-feed logic at lines 300–330 decrements Y by 10 pixels and clamps to a minimum of 10.
A live typewriter mode (lines 1000–1070) polls INKEY$ continuously, drawing a cursor pixel at the current X/Y position using PLOT/UNPLOT while waiting, and processes special keys: CHR$ 121 (Y key) triggers a line feed, CHR$ 118 (ENTER) inserts a space of 5 pixels.
Font Definition Subroutines (Proportional Font)

The proportional font splits its definitions into two subroutines based on the F flag (set/cleared at lines 8000 and 8032):
Lines 8001–8031: symbols, punctuation, digits 0–3, and block graphics — sets F=NOT PI (false)
Lines 8032–8063: digits 4–9 and the full alphabet A–Z — sets F=SGN PI (true)
Each LPRINT SD;CODE "x"-T2,… line uses CODE "x" to derive the character’s numeric code, subtracting T2 (32) to convert from ASCII to a zero-based index, rather than hard-coding numeric constants. The bitmap data for each character is 16 bytes (two 8-byte rows) in this font, reflecting a taller character cell used for the “Sinclair logo” style glyphs.
Demo and Sample Text

Each font file includes a demo routine (lines 100–300 in the Gothic/Sans-serif Bold files) that prints a standard sample string — the quick brown fox, digit sequence, full alphabet, and a mathematical expression — in both normal and hi-res modes. The POKE 16418,0 at line 107 clears the system’s scroll flag, preventing unwanted screen scrolling during display. Keypress detection at lines 270–295 uses the INKEY$ idiom to switch between hi-res and normal display modes or to stop execution.
Decimal-to-Hex Utility

The Fancy font file contains a standalone decimal-to-hexadecimal converter at lines 8999–9050, clearly intended as a development aid for computing the hex byte values used in font bitmap strings. It uses integer division and modulus arithmetic, then adds 28 to each nibble before converting with CHR$ — exploiting the character code layout where digits begin at code 28.
Notable Idioms and Techniques

VAL "1E3*A" for computed GOSUB targets avoids storing multiple line-number constants.
PI/PI and SGN PI / NOT PI used in place of literals 1, true, and false.
Machine-code driver data stored in REM lines 0, 1, 2 of each program file.
Two-character definitions concatenated in a single LPRINT string literal to halve line count in some font files.
The IF USR HR THEN guard pattern used pervasively to both invoke the driver and conditionally execute download statements.
Character width table encoded as raw character codes in a string array, allowing O(1) width lookup via CODE W$(…).
Content

Appears On

Related Products

Fonts for WRX16
The "Sincfont"
Image Gallery

Source Code
REM ##5[(]RND) S▘ ▞ GOSUB [K]TAN          LIST  LIST  LIST  LIST     ????     COPY COPY COPY COPY         LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST ???? LIST  LIST  LIST  LIST  COPY COPY COPY COPY LIST  LIST  LIST  LIST [E]#[E]#[E]#[E]#    [E]#[E]#[E]#[E]#     88     ((4      ▒YCY~~Y▒   (  ( WPI▝▖▒ ▒  ▖▒▒▒▒▖  4((((4   (▒▖▒(   ▖▒(▒▖    Y Y    ▒▒Y▒▒     Y     =▒Y▒=   ▝▖▒(4   (  ((4     ▒▒(     // /8###8/ 4(((((▒ WPI▝£(4# WPI▝£▝PIW ▒/C##▒▒ YRND#6▝PIW ▞/4#PIPIW #▝▖▒(4RND WPIPIWPIPIW WPIPIY▖/#   O###Q RNDRND#####   S#RND#S 4(/8##S   S##RNDW /84S444   S#RND#W▖RNDRND##### ▒ /▒▒▒0 ▒ /▒▒▒C(RNDRND##### 444448/   ###PI#   #####   WPIPIPIW   #####RND  O###O▖  #####   SRNDS▖# ((#448/   #8##O   #8==▒   #6##Q   #C(C#   PI6>£#K  28▒>W  COPY COPY COPY COPY COPY COPY COPY COPY???? COPY COPY COPY COPY LIST  LIST  LIST  LIST  COPY COPY COPY COPY     COPY COPY COPY COPY COPY COPY COPY COPY???????????? LIST  LIST  LIST  LIST ????    ????#[E]#[E]#[E]#[E] COPY COPY COPY COPY#[E]#[E]#[E]#[E] COPY COPY COPY COPY ======  ##▒(A#  /8/E#U  ▖▖▝    ((((( (  ▖▒▒/▒▒▖ 4((/((4  M#            COPY 0((((0  W###RNDW  S▒▒▒▒S  (4#4(   4(▒▖▝   (S#((( 444RND          £ ▘▘▘▘▘▘▘▘████████ COPY        COPY███████ COPY▘▘▘▘▘▘▘███████ COPY▘▘▘▘▘▘▘ COPY█RND4(▒▖▝▘▘▝▖▒(4RND█  ▘Y#===26PI#PIPIPI ##PI#PIPI# 06RNDRNDRND60 ##PIPIPI## ##RND#RNDRND# ##RND#RNDRNDRND 06RNDRND#62 PIPIPI#PIPIPI S(((((S S▒▒▒▒#K ######PI RNDRNDRNDRNDRNDPI# PI##PIPIPIPI PI####PIPI /8PIPIPI8/ ##PI#RNDRNDRND /8PIPIPI8, ##PI###PI WPIRNDW▝PIW #(((((( #6PIPIPI#U PIPI66>=▒ #6INKEY$ INKEY$ ##Q INKEY$ 6=▒=6INKEY$  INKEY$ 6=▒▒▒▒ ZPI▖▒(5#  COPY COPY COPY COPY COPY COPY COPY COPY???? COPY COPY COPY COPY LIST  LIST  LIST  LIST  COPY COPY COPY COPY     COPY COPY COPY COPY COPY COPY COPY COPY???????????? LIST  LIST  LIST  LIST ????    ????#[E]#[E]#[E]#[E] COPY COPY COPY COPY#[E]#[E]#[E]#[E] COPY COPY COPY COPY ======  ##▒(A#  /8/E#U  ▖▖▝     (((( (  ▖▒▒/▒▒▖ 4((/((4  M#            COPY 0((((0  W###RNDW  S▒▒▒▒S  (4#4(   4(▒▖▝   (S#((( 444RND          £ ▘▘▘▘▘▘▘▘████████ COPY        COPY███████ COPY▘▘▘▘▘▘▘███████ COPY▘▘▘▘▘▘▘ COPY█RND4(▒▖▝▘▘▝▖▒(4RND█  ▘Y#===  S▖W#W  RNDRND####   S#RNDRNDS  ▖▖W##W   S##RNDS  04#444   S##W▖S RNDRND####  ( K((S  ▒ /▒▒#K 48CKC8  K((((S   #####   #####   S###S   ####RNDRND  W##W▖▞  GM444   WRNDW▝W  4#448/   ####W   ###C(   ####C   #C(C#   6662▝0  #▒(4#           
REM ##5 S)[(]RND▘ ▞ GOSUB [K]TAN    
PRINT A$;" FONT LOADED.",,,"1. DOWNLOAD ";A$;" FONT.",,,"2. STORE NEWFONT.",,,"3. SAVE CURRENT FONT.",,,"4. STOP",,,,"[E][N][T][E][R]█[N][U][M][B][E][R]"
INPUT A
CLS
IF A<PI/PI OR A>VAL "4" THEN GOTO VAL "10"
GOSUB VAL "1E3*A"
GOTO VAL "10"
RAND USR VAL "16516"
RETURN
RAND USR VAL "18082"
RETURN
PRINT "NAME OF FONT SET?",,,"START TAPE BEFORE HITTING ENTER."
INPUT A$
SAVE A$
CLS
GOTO VAL "10"
STOP
 
REM [C][O][R][E]█[V][3][.][0][0]## GOSUB #                                <> DIM LN F? CLEAR#OUORND[S]C IF TAN LN [M]RNDY2 GOSUB #<>5▟▝TAN  CLEARACS #▚/▖ CLEARACS #LEN LN [M]RND<>5<>RNDTAN  NEXT  CLEARACS  #: NEXT Y▘4▒ CLEARACS #LEN : PRINT Y▘# ( CLEAR▟W4 CLEAR▞"" CLEARACS ##C▝▞[K])4 5 4<>5:INKEY$ /▒)4 ▌ASN 1INKEY$ ;# GOSUB ###[:]"" GOSUB # E£RND) RUN ▙;Y2 GOSUB #Y PRINT ▘▛▝ CLEARACS ##CODE [P]▝LN [>]▝LN 4▝<>5<>RND#[8]▝ PRINT # RETURN,C▝INT / LET TAN  SCROLLLN #? FASTLN LN + LPRINT TAN  SCROLLLN #?#[B]:LN #INKEY$  PRINT LN #INKEY$ 7LN #INKEY$ # LET #TAN  SCROLL RETURN#C▀ RETURN;""6-RNDTAN  TO / PAUSE Y3[)]K▝INT (Y[Z][(]SQR INT 2LN #INKEY$ LN #INKEY$ / INPUT LN #INKEY$ /[H]LN #INKEY$ / SLOW5  6 RETURNZA4##<▘ COPY*Q  GOSUB [K]TAN A ##▞▌ACS 9ACS =( IF ,,▘ 4,,TAN LN [~~]INKEY$ ##ACS ZACS ZACS Z##STR$ LN [J]INKEY$  LET J NEW▛W#TAN LN [>]INKEY$ ##LN #INKEY$ VAL LN #INKEY$ AT LN [J]INKEY$ #TAN 2 COPY/▝2 STR$ LN [*]INKEY$ SGN  GOSUB # UNPLOT ZLN CODE INKEY$ ##?( CLEARACS .*PI▌4▝▞▒▛( CLEAR#TAN Y COPY/▘[J] CLEARACS #[:]MWRNDLN [*]INKEY$ # RETURN,4▛ GOSUB # UNPLOT ZLN [*]INKEY$ ## GOSUB # UNPLOT Z6 UNPLOT ZVAL #[)]-▘K▖ GOSUB #- COPY4▝-  FAST# CLEAR#Y LET [(]2▘K▖ GOSUB #2 COPY4▝2  CLEAR#X#[W]S▞##- /▝2  GOSUB #ZRND84▘96INKEY$ RND#[B]3#A 6#RNDAT VAL Y[Z][(] CLEAR#W CLEARACS ##4▌LN  IF INKEY$ /▀LN 7# CLEAR#INKEY$ ▞  CLEAR###,, CLEAR## GOSUB #ZRND CLEAR#PI GOSUB PIS▛ CLEAR## GOSUB #XRNDAT #▙##▄# CLEARO#UPIRND CLEAR[Y]#4[U]TAN LN #INKEY$ LN 4+ LOAD K LET $[M]H?▖O#[~~]+▞(## FOR 5  ACS TACS 3K▘; FOR D FOR ( POKE TAN Y COPY/▘[J]MWRND CLEARACS #[-]7LN [>]INKEY$ 5[+]▘6#RNDI 6#RND#6INKEY$ RND GOSUB # UNPLOT Z GOSUB ##RND FASTLN #INKEY$  LPRINT #6#RND6#RNDLN #INKEY$ CBLN #INKEY$ LN #INKEY$ M#RNDLN #INKEY$ C;LN #INKEY$ LN AT PI GOSUB ##RND TO LN #INKEY$ LN AT PI CLEARACS #CHR$  GOSUB ##RNDE#RND FASTEINKEY$ RND GOSUB ##RND▞▞ACS EACS .( IF  GOSUB #6INKEY$ RND FOR E#RND▞▞ACS EACS .( IF  GOSUB #6#RND GOSUB ##RNDLN PEEK PIU#RND##ACS +[£] PRINT ACS <[0]MRNDRNDEINKEY$ RND GOSUB ##RNDLN PEEK PIU#RND##ACS +[£]MZRND##ACS <[0]AT # CLEARACS ##C)E#RND#[P]C▞F6#RND/? CLEARACS #[-]Y[Z][(]S▞ CLEAR#WLN  IF INKEY$  LPRINT F#[P]4█TAN  CLEARQX▘LN #INKEY$ COS LN #INKEY$ MXRNDLN #INKEY$ COS LN [>]INKEY$ LN #INKEY$ [S]S▀#INKEY$ #LN ▜INKEY$ #INKEY$ LN ▜INKEY$ #PI GOSUB #YRND[)]W PRINT LN #INKEY$ [S]K▀#INKEY$ # GOSUB #RNDRND[(]W4▘XSGN # GOSUB #PIRND CLEAR#INKEY$  CLEAR#ZLN ▜INKEY$ LN CODE INKEY$ 6#RND CLEAR## CLEAR#RND CLEAR#ZLN ▜INKEY$ LN CODE INKEY$ 6#RND CLEAR##TAN  GOSUB ##RNDE#RND CLEAR##[J]R*( UNPLOT M#RND CLEAR##[J]▌C▖R*( UNPLOT J CLEAR##▌TAN #[A] FOR ##J[A][K]# FOR TAN #VAL ▘4 ##,,#LN ###AT ( LET [J][5]/ SLOWLN ACS #4*) 4544▘ STEP * GOSUB [K]▞4F#( UNPLOT  CLEARPX4 REM TAN LN R# FAST[B] GOSUB # LPRINT C: FASTVAL STR$ LN ##Y COPYSGN AT  LPRINT F/ FOR  CLEAR[A]#LN ## CLEARPX4<>TAN VAL 5  )4 ;( CLEAR FOR E#RND; FASTE#RND;SGN AT TAN #VAL ▘4 ##[B] GOSUB PI#LN ###AT ( LOAD [J]###LN ACS #4*) COPYR5 TO R▘ STEP * GOSUB [S]▞47#( UNPLOT  CLEARPX4 REM TAN LN R#LN [T]# FAST[B] GOSUB # LPRINT C: FASTVAL STR$ LN SQR #Y COPYSGN AT  LPRINT F/ FOR  CLEAR[A]#LN SQR # CLEARPX4 AND TAN LN ACS #4+5 COPYR▞4#[B]ACS -F( CLS[8]4 POKE  CLEARPX4 GOTO TAN LN R##▖U#RNDVAL  PRINT  FASTSTR$ INKEY$ # PRINT  FAST[B] GOSUB # LPRINT C+#[4]# LET #ACS * PRINT #J[A]# LET  PRINT [K]#▞ COPYF/ SLOW#[4]### LET #ACS *[4] PRINT #J[A]# LET [K]#SGN  LPRINT ▘4  FOR ,, FOR ,, LET AT ([Y] CLEARPX4[L]TAN LN ACS #4-5 4[B]▞4ACS 27( CLSYS[W]4 NEXT  CLEARPX4 FOR TAN LN R##▖U#RND FOR VAL  PRINT  FASTSTR$ # PRINT  FAST[B] GOSUB # LPRINT C+#[4]# LET #ACS 3 PRINT #J[A]# LET  PRINT [K]#▞ COPY7/ SLOW#[4]### LET #ACS 3[4] PRINT #J[A]# LET [K]#SGN  LPRINT ▘4  FOR ,, FOR ,, LET AT ([Z] CLEARPX4[L]TAN ###Y[Z][(]STR$ VAL  PRINT LN  IF INKEY$  LET AT SGN TAN 2 COPY/▝2 STR$ LN <>#SGN  CLEAR##UINKEY$ RND5ZRND PRINT  FASTLN  RETURN#+C▞WLN ▖#/ RUN  CLEAR#PI LPRINT  LET F FASTLN  RETURN#+C▞£LN ▖#/ RUN  CLEAR## LPRINT URNDRND PRINT  FASTLN  RETURN#+C▞XLN ▖#/ RUN  CLEAR#PI LPRINT  LET 7LN  RETURN#+COS $LN ▖#/ SAVE ##[A]##J##J[6][N]#)4 ;( LOAD TAN LN ACS #4+5 4▘ /#J#7YS[W]4 RUN  CLEARPX4 GOTO TAN LN R#▖J FAST[B] GOSUB # LPRINT C: FASTVAL STR$ LN ##Y COPYSGN AT  LPRINT F/ REM U#RNDJLN ## CLEARPX4 AND TAN A$( LN [J]INKEY$  FAST TO  FAST5[X]#6-RNDLN 0)AT  GOSUB #-RNDK▝INT 6777# RETURN▝4 PLOT 7#Y""[>]S LOAD 77#Y4[)]S SCROLL77 CLEAR#X▞ SGN TAN LN [>]INKEY$ ##Y4[)]MYRNDLN #INKEY$  SCROLLM[X]# SCROLL RETURN$4SIN ##INKEY$ VAL [J]# FOR  GOSUB PI FOR AT TAN LN  RAND # PRINT LN AT # LET ▞# FASTC0 RETURN,4[E] SCROLL RETURNA▞[A]C£ RETURNO▞[Q]C▞ RETURNX▞[I]4[*]LN #INKEY$ 4 CLS#M## LPRINT UYRNDINKEY$ :4VAL  PRINT STR$ YS[U]4▖SGN -4STR$ ,#>7< CLEARPYATN <#( REM  FOR  LPRINT ,, FOR  LET AT MYRND CLEARPX4 OR TAN Y /▝Y>M[4]#LN  RAND #4[S]LN AT #UYRNDINKEY$ :4VAL  PRINT STR$ YS[U]4▖SGN -4STR$ # PRINT ,# LET >7< CLEARPYATN <#( SCROLL FOR  LPRINT ,, FOR  LET AT MYRND CLEARPX4CHR$ TAN 7# RETURN0K▝INT 1 RETURNGK IF CHR$ 0TAN LN [U]##ACS 4ACS 4ACS 4ACS 4LN [U]#█#7# RETURN"#TAN  SCROLL RETURN"TAB 9#7#ACS #C▝CHR$ RND)  77 FAST▞▒## FOR ;( CLEAR FOR 5 S; FOR  LPRINT TAN LN  STEP #7LN TAN #>4▀## </ POKE ##[B]4## CLEAROY CLEARACS Y#4/7#[B]C LET ACS #4?▞ COPY[B]*S▖ACS // SAVE #J[5][Q]# FOR F CLEARPZ CLEARACS Z#""#[B]4▀#/ LIST ACS #""▞ COPY[B]ACS 3S▖ACS (/ RUN #J[5][Q]#TAN VAL #Y,,[(]#ACS )S▌( IF AT /[P]AT ##ACS ;S/( IF  CLEAR#WLN ## CLEAROY CLEARACS Y#""7 CLEAR#W##/[-] CLEARACS #CHR$ ##VAL ACS ;( UNPLOT AT ** CLEARACS #[-] CLEAR#WVAL Y,,[(]#[J]#ACS >ACS <ACS ▘W( RUN ACS >ACS <ACS ▘WK RUN ACS .ACS ,,XACS .ACS ;X4 RAND #AT Y,,#[(]ACS ;+( CLSACS ,,+K CLS#PIACS <ACS ▘( IF PIACS ;ACS .( IF #TAN LN [~~]INKEY$ VAL  PRINT LN 1+Y▒LN 1+LN R0LN LN +LN [B]:Y▛[)]# GOSUB ##RND LET AT #ACS UACS UACS U5YRND#7#7#LN CODE INKEY$  FASTVAL LN #INKEY$ MINKEY$ RNDLN #INKEY$ LN  STEP ##LN #INKEY$ TAB *# FOR ▘▛ ,,6#RND GOSUB ##RND GOSUB PI6PIRNDAT SGN  CLEARACS #[-] CLEAR##Y▒[)]#/▝:▒STR$ VAL EPIRND#F6PIRNDMWRND CLEARACS ##TAB [A]▝##LN =# CLEARPINKEY$ ASN [A]▝AT  LPRINT [B])4  GOSUB ## RETURN3COS URNDRNDMYRNDMZRND$ FOR 4COS E#RND6PIRND/[Y]LN #INKEY$ ##▘▘COS  CLEARACS V#""( RAND $4 PLOT .#[N]4 INPUT TAN  SCROLL RETURN#4,,LN ,,#LN 0#/K SCROLL RETURN,C> RETURN;CG RETURN#C# RETURNAT C# RETURNTAB C#/# GOSUB # RETURNZ# NEW LIST LEN ( RETURNRNDCODE  FAST#ATN  STEP #/CHR$ #LEN ▒#[J]# GOSUB # RETURNZTAN ▞ COPY SCROLL RETURN#COS  RETURN,4▖Y▖/" RETURN;4LEN ▖# RETURN▀ASN 9#M CLSZ/ SLOW GOSUB # RETURNZ/SGN LN #INKEY$ ## RETURN[T]ABS [▒]INKEY$ # RETURNRNDABS ▙INKEY$  GOSUB # RETURNZ TO /[)]LN #INKEY$  NEWZ GOSUB # RETURNZ[T]#K GOTO Y▒█#/ NEWLN #? CLEARACS ▘#CODE STR$ .LN  SAVE <#[L]C OR ,VAL STR$ LN ##SGN AT <"/ LIST  RETURN""4▖Y"/U PRINT  NEW# RETURNRNDK▛ LET  CLEARACS ▘LEN /G CLEARACS ▘#C~~[J] CLEARACS ▘▚LN [/]#/▖ CLEARACS ▘LEN  LET LN #,,~~ PRINT VAL  NEW#LN [/]#AT ▀ LET  RETURN█S LET  CLEARACS ▘▚[J] GOSUB # RETURNZ PRINT YZ[)]>= STEP #LN 0# LET VAL M#RND[B]*[B]**- ACS >#5 2; FASTACS TLN [J]INKEY$ SGN U CLSZ RETURN▖ASN ;# RETURN▝CPI RETURN▘CEY▒ PRINT STR$ , PRINT U CLSZ[B]4~~ CLEARACS ##C▖ LET J/▘ LET #)4 ;SGN  LET <X4 STEP AT ££ GOSUB # RETURNZTAN U#RND RETURNASINT  RETURN[A]KACS  FAST5 2; FOR  LPRINT /TAB U#RND▛ FAST5 0S LET A,/ GOSUB  CLEARACS ##Y[S]C▝Y[C][S]SQR ## NEW▛▙#VAL ) 45 5ACS SACS SACS S# GOSUB [K]F#( UNPLOT AT TAN ▘ ""LN 0## NEW# PRINT  SCROLLLN 0) AND #$ASN 9#7 FAST▞▌[J]#7( UNPLOT SGN  LET TAN LN AT INKEY$ #?( CLEARLN ##SQR Y▟>TAN LN AT INKEY$ ##LN 4+ FASTLN ## LPRINT LN  PLOT ;#[~~]+LN AT INKEY$ #▞ / REM <>#  PRINT LN  SCROLL▝2"" CLEARACS ##C▝2[K]5 4[J]PEEK  CLSLN #?ABS ▐▒<= CLS*K CLS-4▞▒#<= CLS3K CLS# NEW█PEEK  CLSACS )( PAUSE 7+4 FOR <= CLS3K CLS14PEEK Y▖PEEK  CLS LET  RETURN GOSUB ASN ▛▝#STR$ RNDLN #INKEY$ Y*C▀LN #INKEY$ )  WE RETURNZ FAST GOSUB # RETURNZ GOSUB #£RND< PRINT ▞4,VAL STR$ LN [/]#SGN AT <( PRINT  LET X4 GOSUB  LPRINT 6 RETURNZTAN LN #INKEY$ CATN LN #INKEY$ W PRINT #Y""CHR$ ▒( UNPLOT ## LET /LEN )[(]RNDLN #INKEY$ C>STR$ LN #INKEY$ #LN #INKEY$ ▖SGN ,LEN █><( RAND TAN ▞4[J]><( UNPLOT TAN LN #INKEY$  RETURN4) ▞K▞LN  NEXT ##▛#INT .▘4 ,,# RETURNS**#TAN LN #INKEY$  RETURN4K GOSUB LN #INKEY$ [B]***- #5 Y;6#RND##INKEY$ LN ## GOSUB # UNPLOT ZY[Z][(]K▝CHR$ RND##ACS WACS 1ACS WACS 1ACS WACS 1ACS  GOTO 6 DIM Z#J NEW▛WM#RND) FOR Z GOSUB ##RNDY▒ PRINT #>~~VAL #U#RND RETURN▌S)JLEN ,,[B]##: C:3ACS ;( CLS/▛#[J]ACS )*( CLS[Q]#7<#>#[Q]#FLN ##<AT ▀ LET X4SIN TAN LN #INKEY$ TAB *#E DIM Z) FOR Z▞▒VAL ,#7<,#LN ##F<AT ( LET TAN  CLEARACS #EXP LN ## TO  RETURN,4▞LN █#LN #INKEY$ E UNPLOT Z[B] GOSUB PICOS #FPIVAL LN #?ABS [▒]▒5ORND##[S]C UNPLOT  CLEAR[-] CONT M#RNDLN  LOAD #AT LN ▜#U#RND CLEAR[Y]O4 CLSTAN LN #INKEY$ Y C▀LN #INKEY$ M CONT ZTAN  GOSUB # UNPLOT Z# RETURN COPY4▖▞[Z]/▞ RETURN""4▝▞ Y[Z][(] GOSUB # UNPLOT ZTAN LN  IF INKEY$ )[4] .#[N]4 CLSTAN LN [~~]INKEY$  GOSUB # UNPLOT ZLN #INKEY$ M## CLEARACS #CHR$ LN ##VAL  PRINT LN CODE INKEY$ #2 COPY LET AT STR$ VAL  PRINT LN ## LET AT LN ##SGN #E9RND##GC THENLN [X]▛#:£)VAL ##M# CLEARACS #CHR$ /ATN  CLEARQW COPY CLEARACS #[-]/TAB  CLEARQW / POKE  CLEARO CLEAR CLEARP UNPLOT LN ## CLEAR#W CLEARACS ##4[E]LN  IF INKEY$ /[9] CLEARO CLEAR/ REM  CLEARO UNPLOT / PLOT  CLEARO UNPLOT / STEP  CLEARP CLEAR/ PLOT  CLEARP CLEAR/CHR$  CLEARP UNPLOT / PLOT  CLEARP UNPLOT /ATN    TO  RETURN;CM RETURN#C▝INT + LPRINT ▘  ##  TO  RETURN THENC▝INT ) FAST SCROLL);#STR$ :(),#▞  FOR  GOSUB [5]C▌77 REM P##7# FOR VAL TAN SGN ):#STR$ :?) FOR # SCROLL# SCROLL RETURN#CSQR  RETURN;4 RUN F#7 RETURN$C▘#/INT :▌)[.]#F#7/VAL :▖)[G]#/ POKE FF#77:▀)[U]#/[M]YX:  GOSUB [T]77#:▀)[(]#/[6]C GOTO PID=PIR>#9#D##E DIM #M▛#P##S##9#D NEW#LD#R[<]#U##9#G##P0#S##9#C[W]#DTAB #EATN #R##1ABS #2 INPUT #3 SAVE #4▝#5▛#6 CLEAR#7 DIM #8 NEXT #[:]#X█#A##B OR INKEY$ C CONT PID(PIF CONT #I##L▚#P##R:#S##T##U▖#W##$##9# LPRINT ## LLIST :# SCROLL## LOAD [L]# LIST >=# PAUSE [)]# PRINT [D]# PLOT  FOR INKEY$  RUN ACS RND SAVE =# RAND 8# CLS[0]INKEY$  UNPLOT  LOAD INKEY$  CLEARSGN RND RETURN[Z]RND COPY[:]#9#                   
REM  FAST SAVE  LOAD ##▞▛ACS 5>=[;]#USR [▒]#Y▀X4 CLEAR GOSUB #▌TAB ##ACS 5>=[;]#USR [▒]#TAN <= RETURNY,X4 CLEARPEEK  COPYY>X4 CLEAR#[H]##[0]#<= RETURNYDX4 CLEARPEEK  COPYY4X4 CLEARF7RTAN ▘ █VAL  LN ##AT ▌TAB [L]#▀ GOSUB #LN ##LN  GOSUB #$LN ## CLEAR FAST LET #:[E]LN ##LN  GOSUB ##LN ##LN  GOSUB ##LN ## CLEAR FAST LET ##LN ##7.#[N]4 PLOT   TAN LN  SCROLL▝76-RNDLN #? FASTLN  SAVE < LPRINT 7#[K]C: RETURN5K~~# RETURNSCOS  RETURNVCOS  RETURNPCOS INT 0LN  LIST # PRINT ##VAL ) ▝LN [-]#SGN LN [I]# LET E=RND RETURNS4▛5 4##/( RETURNP4▌),,RND/▖ GOSUB #(RND GOSUB # FOR LN [I]##▛▝<= RETURN*S CLS: £<= RETURN*K IF #LEN  SCROLLACS <TAN 2 ▞▒LN ##( CLSTAN - =PEEK  COPY# RETURNRNDK)2 LN ##LN #?ABS [▒]▒#[B]4 SCROLL/ SCROLL2 PEEK  COPYLN ###[B]C PRINT LN ##04CHR$ LN ### RETURN[E]4EXP LN ###LN ##STR$ PEEK  COPYLN ###SGN 7.#[N]4 PAUSE TAN  FASTLN  LIST # PRINT STR$ VAL 5WRND FASTLN ##AT [J] GOSUB PIAT  GOSUB PISGN C,,-▝LN [-]# LET  LPRINT / TO 5WRND,[Y]4 LIST 7<"#[L]4 PRINT  LET  LPRINT  RETURNS4,,5 4LN ###▛▝ RETURNV4>E(RNDLN ##FLN [1]=SGN  LPRINT LN ▛▝##▞5,,RND/ GOTO 
REM [6][4][-][C][O][L] PRINT ## LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST WWWW LIST  LIST  LIST  LIST #### LIST  LIST  LIST  LIST ???? LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST WWWWWWWWWWWW####WWWW????WWWW#[9]#[9]#[9]#[9] LIST  LIST  LIST  LIST #[9]#[9]#[9]#[9] LIST  LIST  LIST  LIST  ##RND RNDRNDRND [4]E##[:][E]  ##[▒]#▙## RND8  ▖   ##PI# #  6##CODE #PI4 ▜PIPI#PI#█ ▒▖#[8]▒   ▝▖▒▖▝  LIST  ##RND#RND#  #USR [Y]▜#   #4I44#  E# INPUT #E   ▙▙##CC  RND[8]RNDRND#▖▒ RND█  ▖▖▒     £# (-,,,,0(█▜[£]▜▜▜[:]█ LIST ▖~~▝▖▒:  LIST [:]▙▜▙[~~]▜█ LIST >-,2>>(█[:][▒][£]▙[~~]▜ LIST (=/0,,= LIST █[:]PIPI8C/((=E8##▜█ ▖[~~] IF [A][6][8]  RND[8][6] NEW[E][A]  COS [C]ATN [E][E]ATN   #▜[~~][▒][▒]#  TAB [6][A][E][E]LEN    STEP ▜ASN [:][▒] NEW   LLIST ▜EXP ▜▜▜  RND[8][~~][E][A]#£ [C][C] GOTO [E][E][E]   SLOWRND### SLOW  #4A6[6]#▖ [C][C]ASN ATN [E][E]  ▜▜▜▜▜ LLIST   [4] REM  INPUT [I][E][E]  ""[G][E][E][E][E]  RND[8][E][E][E]#  ""[G][E]ASN [£][▒]▒ RND[A][E][E][A]PI7 ""[G][E]COS [C][C]  #▚#86ATN    SLOW####PI  [4][E][E][E][E]#  [4][E][E][E]##  [4][E][E][E] INPUT [E]  [4][E]##[E][E]  [4][E]##PIPI▖  STEP IPI#[▒] INPUT   FAST5;N; FOR  LPRINT U#RND NEW█U RETURNZ?▞▒VAL  PRINT ,#CGS0 NEW LIST  PRINT # NEW?# LET [K]#<STR$ )4 ;SGN  LET AT ( STOPAT £ GOSUB # RETURNZTAN ACS ZACS ZACS ZACS Z PRINT # NEW LIST />=S~~ACS BACS BACS BACS B/ATN  NEW?/ REM 
REM [A]█[T][O][U][C][H]█[O][F]█[C][L][A][Z][X][.][.][.]
REM FOR SHR-EB V3
REM 
LET HR=20000
REM 
REM (FOR V2 OF SHR-EB)          LET HR=19400
CLS
SLOW
PRINT "PRESS H TO VIEW HI-RES,","PRESS L TO VIEW ""NORMAL""",,,"""ENTER"" TO  STOP"
IF USR HR THEN CLS
GOSUB 8000
FAST
CLS
POKE 16418,0
IF USR HR THEN PRINT ;;;;
PRINT 
PRINT "~~";CHR$ 11;"£$:?()><=+-*/;,."
PRINT 
PRINT "0 1 2 3 4 5 6 7 8 9"
PRINT 
PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
PRINT 
PRINT "["][£][$][:][?][(][)][>][<][=][+][-][*][/][;][,][.]"
PRINT 
PRINT "[0][1][2][3][4][5][6][7][8][9]"
PRINT 
PRINT "[A][B][C][D][E][F][G][H][I][J][K][L][M][N][O][P][Q][R][S][T][U][V][W][X][Y][Z]"
PRINT "[<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<]"
PRINT 
PRINT "~~T[H][E] [Q][U][I][C][K] [B][R][O][W][N] [F][O][X][E][S] [J][U][M][P][E][D]","[O][V][E][R] [T][H][E] [L][A][Z][Y] [D][O][G].";CHR$ 11
PRINT 
PRINT "[:]THE QUICK BROWN FOXES JUMPED","OVER THE LAZY DOG.[,]"
PRINT 
PRINT "E=[M]*[C][2] 2[;]16=65536  2H O [*]2H + O "
PRINT "                     [2]     [2]   [2]"
PRINT "V [>] [=] SIN([T]) * EXP(-[K]/[T]) + V [-]";TAB 28;"[0]"
IF USR HR THEN LIST 
SLOW
IF INKEY$ ="H" THEN IF USR HR THEN RUN 
IF INKEY$ ="L" THEN IF USR HR THEN RETURN
IF INKEY$ <>CHR$ 118 THEN GOTO 270
IF USR HR THEN RETURN
STOP
REM [E][L][I][T][E]█[G][O][T][H][I][C]
IF USR HR THEN LPRINT UDG;" ","00,00,00,00,00,00,00,00"
IF USR HR THEN LPRINT UDG;"~~","00,6C,48,24,00,00,00,00""00,36,12,24,00,00,00,00"
IF USR HR THEN LPRINT UDG;"£","00,24,7E,24,24,7E,24,00"
IF USR HR THEN LPRINT UDG;"$","00,10,38,50,38,14,38,10"
IF USR HR THEN LPRINT UDG;":","00,00,00,18,00,00,18,00"
IF USR HR THEN LPRINT UDG;"?","00,3C,42,04,18,00,18,00"
IF USR HR THEN LPRINT UDG;"(","00,04,08,08,08,08,04,00"
IF USR HR THEN LPRINT UDG;")","00,20,10,10,10,10,20,00"
IF USR HR THEN LPRINT UDG;">","00,00,10,08,04,08,10,00"
IF USR HR THEN LPRINT UDG;"<";"00,00,04,08,10,08,04,00"
IF USR HR THEN LPRINT UDG;"=";"00,00,00,3E,00,3E,00,00"
IF USR HR THEN LPRINT UDG;"+","00,00,10,10,7C,10,10,00"
IF USR HR THEN LPRINT UDG;"-","00,00,00,00,3E,00,00,00"
IF USR HR THEN LPRINT UDG;"*","00,00,28,10,7C,10,28,00"
IF USR HR THEN LPRINT UDG;"/","00,02,04,08,10,20,40,00"
IF USR HR THEN LPRINT UDG;";","00,00,00,18,00,18,08,10"
IF USR HR THEN LPRINT UDG;",","00,00,00,00,00,18,08,10"
IF USR HR THEN LPRINT UDG;".","00,00,00,00,00,18,18,00"
IF USR HR THEN LPRINT UDG;"0","00,3C,46,4A,52,62,3C,00"
IF USR HR THEN LPRINT UDG;"1","00,10,30,50,10,10,7C,00"
IF USR HR THEN LPRINT UDG;"2","00,38,64,04,18,22,7E,00"
IF USR HR THEN LPRINT UDG;"3","00,3C,62,0C,02,62,3C,00"
IF USR HR THEN LPRINT UDG;"4","00,08,18,28,4A,FE,08,00"
IF USR HR THEN LPRINT UDG;"5","00,7E,40,7C,02,62,3C,00"
IF USR HR THEN LPRINT UDG;"6","00,18,10,20,7C,42,3C,00"
IF USR HR THEN LPRINT UDG;"7","00,7E,44,08,10,10,38,00"
IF USR HR THEN LPRINT UDG;"8","00,3C,42,3C,42,42,3C,00"
IF USR HR THEN LPRINT UDG;"9","00,3C,42,3E,04,08,18,00"
IF USR HR THEN LPRINT UDG;"A","00,18,24,42,7E,42,E7,00"
IF USR HR THEN LPRINT UDG;"B","00,7C,22,3C,22,22,7C,00"
IF USR HR THEN LPRINT UDG;"C","00,3C,46,40,40,46,3C,00"
IF USR HR THEN LPRINT UDG;"D","00,F8,44,42,42,44,F8,00"
IF USR HR THEN LPRINT UDG;"E","00,FE,42,78,40,42,FE,00"
IF USR HR THEN LPRINT UDG;"F","00,FE,42,70,40,40,E0,00"
IF USR HR THEN LPRINT UDG;"G","00,7C,86,80,9E,84,7C,00"
IF USR HR THEN LPRINT UDG;"H","00,EE,44,7C,44,44,EE,00"
IF USR HR THEN LPRINT UDG;"I","00,7C,10,10,10,10,7C,00"
IF USR HR THEN LPRINT UDG;"J","00,3E,04,04,C4,44,38,00"
IF USR HR THEN LPRINT UDG;"K","00,E6,48,70,50,48,E6,00"
IF USR HR THEN LPRINT UDG;"L","00,70,20,20,20,22,7E,00"
IF USR HR THEN LPRINT UDG;"M","00,C6,6C,54,44,44,EE,00"
IF USR HR THEN LPRINT UDG;"N","00,CE,64,54,4C,44,E6,00"
IF USR HR THEN LPRINT UDG;"O","00,7C,42,42,42,42,3E,00"
IF USR HR THEN LPRINT UDG;"P","00,FC,42,42,7C,40,F0,00"
IF USR HR THEN LPRINT UDG;"Q","00,7C,42,42,4A,46,3E,00"
IF USR HR THEN LPRINT UDG;"R","00,FC,42,7C,48,44,E7,00"
IF USR HR THEN LPRINT UDG;"S","00,3C,40,3C,02,62,3C,00"
IF USR HR THEN LPRINT UDG;"T","00,FE,92,10,10,10,38,00"
IF USR HR THEN LPRINT UDG;"U","00,EE,44,44,44,44,38,00"
IF USR HR THEN LPRINT UDG;"V","00,EE,44,44,44,28,10,00"
IF USR HR THEN LPRINT UDG;"W","00,EE,44,54,54,6C,44,00"
IF USR HR THEN LPRINT UDG;"X","00,EE,28,10,10,28,EE,00"
IF USR HR THEN LPRINT UDG;"Y","00,EE,44,28,10,10,38,00"
IF USR HR THEN LPRINT UDG;"Z","00,7E,44,08,12,22,7E,00"
IF USR HR THEN LPRINT UDG;"["]","00,10,10,10,00,10,10,10"
IF USR HR THEN LPRINT UDG;"[£]","00,40,A4,48,10,24,4A,04"
IF USR HR THEN LPRINT UDG;"[$]","00,10,28,10,2A,44,3A,00"
IF USR HR THEN LPRINT UDG;"[:]","00,18,10,08,00,00,00,00"
IF USR HR THEN LPRINT UDG;"[?]","00,10,10,10,10,00,10,00"
IF USR HR THEN LPRINT UDG;"[(]","00,0E,10,08,30,08,10,0E"
IF USR HR THEN LPRINT UDG;"[)]","00,70,08,10,0C,10,08,70"
IF USR HR THEN LPRINT UDG;"[>]","00,00,00,60,92,0C,00,00"
IF USR HR THEN LPRINT UDG;"[<]","00,00,00,00,00,00,00,FE"
IF USR HR THEN LPRINT UDG;"[=]","00,0E,08,08,08,08,0E,00"
IF USR HR THEN LPRINT UDG;"[+]","00,38,44,58,5A,42,3C,00"
IF USR HR THEN LPRINT UDG;"[-]","00,70,10,10,10,10,70,00"
IF USR HR THEN LPRINT UDG;"[*]","00,10,20,40,FE,40,20,10"
IF USR HR THEN LPRINT UDG;"[/]","00,C0,60,30,18,0C,06,00"
IF USR HR THEN LPRINT UDG;"[;]","00,10,38,54,10,10,10,00"
IF USR HR THEN LPRINT UDG;"[,]","00,18,08,10,00,00,00,00"
IF USR HR THEN LPRINT UDG;"[.]","00,10,28,44,82,44,28,10"
IF USR HR THEN LPRINT UDG;"[0]","1C,2C,24,34,38,00,00,00"
IF USR HR THEN LPRINT UDG;"[1]","08,18,08,08,1C,00,00,00"
IF USR HR THEN LPRINT UDG;"[2]","18,24,08,10,3C,00,00,00"
IF USR HR THEN LPRINT UDG;"[3]","38,04,18,04,38,00,00,00"
IF USR HR THEN LPRINT UDG;"[4]","20,28,3C,08,08,00,00,00"
IF USR HR THEN LPRINT UDG;"[5]","3C,20,38,04,38,00,00,00"
IF USR HR THEN LPRINT UDG;"[6]","18,20,38,24,18,00,00,00"
IF USR HR THEN LPRINT UDG;"[7]","3C,24,08,10,10,00,00,00"
IF USR HR THEN LPRINT UDG;"[8]","18,24,18,24,18,00,00,00"
IF USR HR THEN LPRINT UDG;"[9]","18,24,1C,04,18,00,00,00"
IF USR HR THEN LPRINT UDG;"[A]","00,00,00,3E,42,42,3F,00"
IF USR HR THEN LPRINT UDG;"[B]","00,60,20,3C,22,22,7C,00"
IF USR HR THEN LPRINT UDG;"[C]","00,00,00,3C,46,40,3C,00"
IF USR HR THEN LPRINT UDG;"[D]","00,0E,04,3C,44,44,3E,00"
IF USR HR THEN LPRINT UDG;"[E]","00,00,00,24,7E,40,3C,00"
IF USR HR THEN LPRINT UDG;"[F]","00,1C,26,20,78,20,70,00"
IF USR HR THEN LPRINT UDG;"[G]","00,00,00,3E,44,3C,84,78"
IF USR HR THEN LPRINT UDG;"[H]","00,C0,40,78,44,44,EE,00"
IF USR HR THEN LPRINT UDG;"[I]","00,18,00,38,08,08,3E,00"
IF USR HR THEN LPRINT UDG;"[J]","00,18,00,38,08,08,48,30"
IF USR HR THEN LPRINT UDG;"[K]","00,C0,48,50,70,48,E6,00"
IF USR HR THEN LPRINT UDG;"[L]","00,70,10,10,10,10,7C,00"
IF USR HR THEN LPRINT UDG;"[M]","00,00,00,F8,54,54,56,00"
IF USR HR THEN LPRINT UDG;"[N]","00,00,00,F8,44,44,E6,00"
IF USR HR THEN LPRINT UDG;"[O]","00,00,00,38,44,44,38,00"
IF USR HR THEN LPRINT UDG;"[P]","00,00,00,FC,42,7C,40,E0"
IF USR HR THEN LPRINT UDG;"[Q]","00,00,00,3E,44,3C,04,03"
IF USR HR THEN LPRINT UDG;"[R]","00,00,00,6C,36,20,70,00"
IF USR HR THEN LPRINT UDG;"[S]","00,00,00,3C,30,0C,3C,00"
IF USR HR THEN LPRINT UDG;"[T]","00,20,20,F8,20,26,1C,00"
IF USR HR THEN LPRINT UDG;"[U]","00,00,00,CE,44,44,3E,00"
IF USR HR THEN LPRINT UDG;"[V]","00,00,00,E6,44,28,10,00"
IF USR HR THEN LPRINT UDG;"[W]","00,00,00,C6,54,7C,44,00"
IF USR HR THEN LPRINT UDG;"[X]","00,00,00,66,18,18,66,00"
IF USR HR THEN LPRINT UDG;"[Y]","00,00,00,CE,44,3C,04,38"
IF USR HR THEN LPRINT UDG;"[Z]","00,00,00,7E,48,12,7E,00"
RETURN
SAVE "ELIT[E]"
LIST 8999
 
REM [C]█[1][9][8][7]█[S][M][C]##▘ ""LN  RUN ##[P]#Y2 GOSUB #<>5▟▝TAN  PRINT # RETURN,C▌LN [*]RNDINT / LET TAN 6-RNDLN #? FASTLN LN + LPRINT TAN LN [H]RND PRINT LN [4]RND7LN [H]RND# LET #TAN 7# RETURN#C▀ RETURN;""6-RNDTAN A ##▞▌ACS 9ACS =( IF ,,▘ 4,,TAN 7LN [T]RNDLN [4]RNDLN ,,INKEY$ ##ACS ZACS ZACS Z##STR$ LN STR$ RND LET J NEW▛W#TAN Y3[)]K▌LN [*]RNDINT (Y[Z][(]SQR LN [*]RNDINT 25  6AT ZA4##<▘ COPY*Q  GOSUB [K]TAN  NEXT Y▞# ( CLEARLEN  LIST W4 CLEAR▞"" CLEARACS ##C▝▞[K])4 5 4##INKEY$   ▌ASN #INKEY$ ;# GOSUB ####>=E£RND ###) RUN ▙;Y2 GOSUB #Y PRINT ▘▛▝ CLEARACS ##CODE [P]▝LN [>]▝LN 4▝<>5GINKEY$ #[8]▝ CLEARACS #▚/▖ CLEARACS #LEN E£RND▘9  GOSUB PIF FOR 5 █;6#INKEY$  FOR  GOSUB [K]LN F?<>5GINKEY$ TAN 7LN [T]RNDLN [4]RND##LN ▞INKEY$ VAL 7LN [H]RNDAT LN STR$ RND#TAN 2 COPY/▝2 STR$ 7LN [T]RNDLN ,,INKEY$ SGN  GOSUB ##ZLN  LET RND##?( CLEARACS .*PI▌4▝▞▒▛( CLEAR#TAN Y COPY/▘[J]MVAL Z CLEARACS #[:]7LN [T]RNDLN ,,INKEY$ # RETURN,4"7 GOSUB ##ZLN [T]RNDLN ,,INKEY$ ## GOSUB ##ZVAL #[)]-▘K▖ GOSUB #- COPY4▝-  FAST##MSQR Z LET [(]2▘K▖ GOSUB #2 COPY4▝2 ##MINT Z#[W]S▞##- /▝2  GOSUB #SGN Z6PEEK Z#[B]3#A 6STR$ ZAT VAL Y[Z][(] PRINT UVAL Z# LET  CLEARACS ##4▌LN SGN INKEY$ /▀LN ##UPEEK Z#▞ USTR$ Z##,,#MSTR$ Z GOSUB #SGN ZUUSR Z# GOSUB PIS▒#MSTR$ Z GOSUB #INT ZAT #▙##▄#5CHR$ ZOUUSR Z[Y]4[N] GOSUB ##ZTAN Y COPY/▘[J]MVAL Z7LN [T]RNDLN [4]RNDVAL 7LN [H]RND#I 6INT Z#6SGN ZAT Y▘ PRINT VAL VAL EINT Z GOSUB #SGN Z▞▌VAL ACS EACS .( IF [R] GOSUB #6INT Z GOSUB #SGN ZAT ACS GACS 1( IF ;6SGN Z GOSUB #INT ZAT #ACS <[~~]##ACS +[£]#Y[Z][(]S,, PRINT UVAL Z# LET LN SGN INKEY$ AT  LET W RETURNASN S[O]TAN Y▘MINT ZLN COS RNDCOS LN [H]RNDMINT ZLN TAN RNDCOS 7LN [T]RNDLN [4]RND[S]S▀#INKEY$ #LN (INKEY$ #INKEY$ LN (INKEY$ #PI GOSUB #SQR Z[)]W PRINT 7LN [T]RND[S]K▀#INKEY$ # GOSUB #ABS Z[(]W4▘XSGN # GOSUB #USR ZUPEEK Z#USGN Z#[B]LN  INPUT RND6CHR$ ZUABS Z#USGN Z#[B]LN  INPUT RND6**Z£TAN LN +#4*UINT Z#5 4▘ /#J#7"#[L]4 RUN +4 INPUT TAN USTR$ ZECHR$ Z GOSUB #**Z6 AND Z GOSUB #>=Z PRINT  FAST GOSUB # LPRINT C#UPEEK ZLN  INKEY$ STR$ VAL #3ZACS <( IF AT ACS .*( CLS#SGN 7 FAST[B] GOSUB # LPRINT C▌#J#/ NEXT UABS ZLN  INKEY$ Y,,[(]#VAL ,*ZACS 1( IF AT ACS +3( CLS>▘4 E>=Z,,6>=Z FOR E AND Z,,6 AND Z LET X4[A]5INT ZP4[?]TAN UUSR Z RETURN▒4▖,J/NOT UPEEK ZLN  INKEY$ VAL ,3ZACS +( IF AT ACS 1*( CLS#UABS ZJ NEW▛C$#,VAL ?ACS 0( CLSAT ACS ▖( UNPLOT #/[E]E(RND#[T]COS  RETURN█4▌LN [*]RNDINT ▘VAL LN  PAUSE ,,AT  FOR / GOTO  PRINT  SCROLL FAST:RND▟#LN ##7 FAST▞▌[J]#( CLEARSGN  LPRINT  LET TAN LN  SCROLLRND#?( CLEARLN ##K▀Y▟>LN COS RNDTAB SQR #TAN LN  SCROLLRND FASTAT LN 4+ FASTLN ##AT  FAST##LN  PLOT ;LN [~~]+ LPRINT / STEP LN  SCROLLRND#▞ / SLOW###Y[Z][(]STR$ VAL  PRINT LN SGN INKEY$  LET AT SGN TAN 2 COPY/▝2 STR$ LN C#SGN USTR$ Z#UPEEK Z5SGN Z PRINT  FASTLN [D]#+C▞WLN [J]#/ RUN UUSR Z# LPRINT  LET F FASTLN [D]#+C▞£LN [J]#/ RUN USTR$ Z# LPRINT UABS Z PRINT  FASTLN [D]#+C▞XLN [J]#/ RUN UUSR Z# LPRINT  LET 7LN [D]#+COS $LN [J]#/ SAVE LN 7?2"" CLEARACS ##C▝2[K]5 4[J]PEEK  CLSLN #?ABS ▐▒<= CLS*K CLS-4▞▒#<= CLS3K CLS# NEW█PEEK  CLSACS )( PAUSE 7+4 FOR <= CLS3K CLSLN ##/SGN 76-RNDLN #?LN [B]:##▘▘COS  CLEARACS V#""( RAND $4 PLOT .#[N]4 INPUT TAN 7# RETURN#4,,LN  OR #LN  RUN #/L7# RETURN,C> RETURN;CG RETURN#C# RETURNAT C# RETURNTAB C#/# GOSUB #AT Z# NEW LIST LEN ( RETURNRNDCODE [O]#ATN [J]#/STR$ #LEN ▒#[J]# GOSUB #AT ZTAN ▞ COPY7# RETURN#COS  RETURN,4▖Y▖/" RETURN;4VAL ▖# RETURN▀ASN SQR #M""Z/ STOP GOSUB #AT Z/SQR 7LN [T]RND## RETURN[T]ABS =INKEY$ # RETURNRNDABS "INKEY$  GOSUB #AT Z/[?]7LN [H]RND NEWZ GOSUB #AT Z[T]#K GOTO Y▒█#/ NEW6-RNDLN #? FAST CLEARACS ▘#CODE STR$ .LN  SAVE < LPRINT  FAST#[L]C£,VAL STR$ LN K#SGN AT <"/ LIST  LPRINT /CODE  RETURN""4▖Y"/U PRINT  NEW# RETURNRNDK▛ LET  CLEARACS ▘LEN /G CLEARACS ▘#C~~[J] CLEARACS ▘▚LN ##/▖ CLEARACS ▘LEN  LET LN #,,~~ PRINT VAL  NEW#LN ##AT ▀ LET  RETURN█S LET  CLEARACS ▘▚[J] GOSUB #AT Z PRINT YZ[)]>=[J]#LN  RUN # LET VAL M<=Z[B]*[B]**- ACS >#5 2; FASTACS TLN STR$ RNDSGN U""Z RETURN▖ASN [=]# RETURN▝C# RETURN▘CFY▒ PRINT STR$ , PRINT U""Z[B]4"U<=ZACS #C▖ LET J/▘ LET #)4 ;SGN  LET <X4 TO AT ££ GOSUB #AT ZTAN U<=Z RETURNASEXP  RETURN[A]KASN  FAST5 2; FOR  LPRINT /AT U<=Z▛ FAST5 0S LET A,/ GOSUB  CLEARACS ##Y[S]C▝Y[C][S]SQR ## NEW▛▙#VAL ) 45 5ACS SACS SACS S# GOSUB [K]F#( UNPLOT AT TAN LN COS RNDY*C▀LN [H]RND)  WEAT Z FAST GOSUB #AT Z GOSUB #£RND< PRINT ▞4,VAL STR$ LN ##SGN AT <( PRINT  LET X4 GOSUB  LPRINT 6AT ZTAN LN COS RNDCATN LN [H]RNDW PRINT #Y""CHR$ ▒( UNPLOT ## LET /LEN 7LN [T]RNDLN ,,INKEY$ LN [4]RNDTAN Y COPY/▘[J]MVAL Z CLEARACS #[:]LN ## GOSUB #NOT ZE-RNDLN ## GOSUB # OR ZE-RND7LN [T]RNDLN ,,INKEY$  GOSUB #<=ZE#Z FAST GOSUB ##ZE OR Z FASTLN £PI LPRINT 6#ZENOT Z FASTLN £PI LPRINT 6#ZE<=ZLN £PI LPRINT 6#ZTAN LN +#4.UINT Z5 4##▘4 ,,▘ STEP * GOSUB [K]▞4F#( UNPLOT X4 DIM TAN USGN Z RETURN C##UPEEK Z#VAL Y[Z][(]VAL  PRINT WVAL LN  LET RNDSGN Y▒[S]4*UABS Z[<] RETURN▒S?#▘4  GOSUB PI# LET AT #LEN ▒#/ OR #?( CLEAR2 COPYS▘0 LET AT VAL LN SGN INKEY$ AT #▞ UABS Z##▀[B] GOSUB PIPIK[U]AT ▌USQR Z[S]4[L]USQR Z#EPEEK ZY COPY[W]4▘8# FASTVAL Y[Z][(]2 LN SGN INKEY$ AT £ LPRINT 94 LIST 5INT ZP4▟TAN LN +#40UINT Z5 COPYR##▘4  GOSUB PI▘ STEP * GOSUB [S]▞47#( UNPLOT X4 CONT TAN USQR Z RETURN[Z]C##UPEEK Z#VAL Y[Z][(]VAL  PRINT XVAL LN  LET RNDSGN Y▒[S]4-UABS Z[<] RETURN▒S:#▘4 ,,# LET AT #LEN ▒#/ AND #?( CLEAR2 COPYS▘0 LET AT VAL LN SGN INKEY$ AT #▞ UABS Z##▀[B] GOSUB PIPIK[V]AT ▖USGN Z RETURN C▀[S]4[I]USGN Z#EPEEK ZY COPY[W]4▘8# FASTVAL Y[Z][(]2 LN SGN INKEY$ AT £ LPRINT 94 LIST 5INT ZPTAB ▗#TAN LN +#4*UINT Z#5 COPYR▞4#[B]ACS -F( CLS[8]4 POKE 14 INPUT TAN USGN Z#UPEEK Z#VAL Y[Z][(]VAL  PRINT £LN  LET RND#?( CLEAR2 COPYS▘0 LET AT VAL LN SGN INKEY$ AT UABS Z£[T]4 STEP AT ▌# RETURN COPYC▒USQR Z##[U]KSQR  GOSUB #SGN Z#INKEY$ #USTR$ Z# FASTVAL Y[Z][(]2 LN SGN INKEY$ AT ▌ LPRINT H4 LIST 5INT ZP4[B]TAN LN +#41UINT Z#5 4[B]▞4ACS 27( CLS▘ S[B] FAST GOSUB PI LPRINT 4 INPUT 14 CONT TAN USGN Z#UABS Z#VAL Y[Z][(]VAL  PRINT $LN  LET RNDY,,[(]##▛( CLEAR2 COPYS▘0 LET AT VAL LN SGN INKEY$ AT UPEEK Z$[T]4>=AT ▌# RETURN COPYC▒USQR Z##[U]KATN USGN Z#UPEEK Z#USTR$ Z# FASTVAL Y[Z][(]2 LN SGN INKEY$ AT ▌ LPRINT H4 LIST 5INT ZP4[6]TAN 7# RETURN0K▌LN [*]RNDINT 1 RETURNGK RUN CHR$ 0TAN LN ▝##ACS 4ACS 4ACS 4ACS 4LN ▝#█#7# RETURN"#TAN 7# RETURN"TAB SQR #7#ACS #C▝CHR$ RND)  77 FAST▞▒A # FOR ;( CLEAR FOR 5 S; FOR  LPRINT 7LN =#>4▌76-RNDTAN </ PAUSE 7LN [H]RND RETURN4) ▞SSTR$ LN [*]RNDINT .▘4 ,,# RETURNS**CHR$ /#TAN 7LN [H]RND RETURN4K SCROLLLN [4]RND[B]***- #5 Y;6**Z SCROLLLN [T]RND GOSUB # AND ZTAN LN ##Y[Z][(]K▝CHR$ RND##ACS WACS 1ACS WACS 1ACS WACS 1ACS  GOTO 6>=Z#J NEW▛WM#RND) STOPZ GOSUB #**ZY▒ PRINT #>~~VAL #U#RND RETURN▌S)JLEN ,,[B]##: C:3ACS ;( CLS/▛#[J]ACS )*( CLS[Q]#7<#>#[Q]#FLN ##<AT ▀ LET XTAB ACS #TAN LN COS RNDTAB SQR #E>=Z) STOPZ▞▒VAL ,#7<,#LN ##F<AT ( LET TAN  CLEARACS #EXP LN ##E-RND# RETURN,4$7 GOSUB ##Z FASTLN [4]# LPRINT LN [T]RND#~~PIVAL 5ORND##[S]C UNPLOT  CLEAR[-]#M#RNDLN £#AT LN [4]#U#RND CLEAR[Y]O4 CLSTAN LN COS RNDY C▀LN [H]RNDM#RNDTAN 1""AT Y▖PEEK  CLS0LN ###["]INKEY$  GOSUB ##INKEY$ <<7# RETURN#C*STR$ LN [H]RND#LN ▞INKEY$ ▖SGN ##ACS [W],LEN █>#<( POKE TAN ▞4[J]##ACS [W]>#<( RUN TAN  E-RND# RETURN;C# RETURN#C▌LN [*]RNDINT + LPRINT 6-RND▘  TAN E-RND# RETURN THENC▌LN [*]RNDINT ) FAST7#)""#STR$  RETURN LLIST ASN ## RETURN SCROLLASN [:]RND RETURN LOAD ASN B# RETURN LIST ASN 3# RETURN PAUSE ASN ## RETURN PRINT ASN ## RETURN PLOT ASN [Y]INKEY$  RETURN RUN ASN ▟INKEY$  RETURN SAVE ASN [~~]# RETURN RAND ASN ## RETURN CLSASN ;INKEY$  RETURN UNPLOT ASN TAB INKEY$  RETURN CLEARASN ▗INKEY$  RETURN RETURNASN [*]RND RETURN COPYASN /# RETURN LPRINT 4[9]SGN )[J]#STR$ 7# RETURNXC##7# RETURN#C[<] RETURN;4 PLOT # RETURNAASN [▒]# RETURNBASN [B]INKEY$  RETURNCASN [B]PI RETURNDASN  SCROLLINKEY$  RETURNIASN ## RETURNLASN [5]# RETURNPASN ## RETURNRASN [T]# RETURNS42F#7 RETURNDASN ## RETURNEASN ▞# RETURNMASN 8# RETURNPASN [1]# RETURNSASN ##/# RETURNTASN ## RETURNUASN F# RETURNW4UF#7 RETURNDASN ## RETURNLASN "# RETURNRASN ▟# RETURNUASN LEN #/57#7# RETURN#C; RETURN;4 PLOT # RETURNCASN [F]PI RETURNDASN  FOR INKEY$  RETURNRASN [X]# RETURNTASN ###SQR #
REM  FAST##▞▛ACS 5>=?#USR  RETURN#Y▀X4 CLEAR GOSUB #▌TAB  LLIST #ACS 5>=?#USR  RETURN#TAN <= RETURNY,X4 CLEARPEEK  COPYY>X4 CLEAR#7##>#<= RETURNYDX4 CLEARPEEK  COPYY4X4 CLEARF7RTAN ▘ █VAL  LN  STEP #AT ▌TAB B#▀ GOSUB #LN  STEP #LN ##$LN  STEP # CLEAR FAST LET #:[E]LN  STEP #LN ###LN  STEP #LN ###LN  STEP # CLEAR FAST LET ##LN  STEP #7.#[N]4 PLOT   TAN LN  SCROLL▝76-RNDLN #? FASTLN  SAVE < LPRINT 7#[K]C: RETURN5K~~# RETURNSCOS  RETURNVCOS  RETURNPCOS INT 0LN ## PRINT ##VAL ) ▝LN ##SGN LN 8# LET E=RND RETURNS4▛5 4##/( RETURNP4▌),,RND/▖ GOSUB #(RND GOSUB # FOR LN 8##▛▝<= RETURN*S CLS: £<= RETURN*K IF #LEN  SCROLLACS <TAN 2 ▞▒LN ""#( CLSTAN - =PEEK  COPY# RETURNRNDK)2 LN ""#LN #?ABS [A]▀#[B]4 SCROLL/ SCROLL2 PEEK  COPYLN ""##[B]C PRINT LN PEEK #04CHR$ LN PEEK ## RETURN[E]4EXP LN PEEK ##LN PEEK #STR$ PEEK  COPYLN PEEK ##SGN 7.#[N]4 PAUSE TAN  FASTLN ## PRINT STR$ VAL 5WRND FASTLN <>#AT [J] GOSUB PIAT  GOSUB PISGN C,,-▝LN ## LET  LPRINT / TO 5WRND,[Y]4 LIST 7<"#[L]4 PRINT  LET  LPRINT  RETURNS4,,5 4LN <>##▛▝ RETURNV4>E(RNDLN <>#FLN [1]=SGN  LPRINT LN ▛▝##▞5,,RND/ GOTO 
REM [6][4][-][C][O][L]█[P][R][I][N][T]## LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST WWWW LIST  LIST  LIST  LIST #### LIST  LIST  LIST  LIST ???? LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST WWWWWWWWWWWW####WWWW????WWWW#[9]#[9]#[9]#[9] LIST  LIST  LIST  LIST #[9]#[9]#[9]#[9] LIST  LIST  LIST  LIST  ##RND RNDRNDRND [4]E##[:][E]  ##[▒]#▙## RND8  ▖   ##PI# #  6##CODE #PI4 ▜PIPI#PI#█ ▒▖#[8]▒   ▝▖▒▖▝  LIST  ##RND#RND#  #USR [Y]▜#   #4I44#  E# INPUT #E   ▙▙##CC  RND[8]RNDRND#▖▒ RND█  ▖▖▒     £# (-,,,,0(█▜[£]▜▜▜[:]█ LIST ▖~~▝▖▒:  LIST [:]▙▜▙[~~]▜█ LIST >-,2>>(█[:][▒][£]▙[~~]▜ LIST (=/0,,= LIST █[:]PIPI8C/((=E8##▜█ ▖[~~] IF [A][6][8]  RND[8][6] NEW[E][A]  COS [C]ATN [E][E]ATN   #▜[~~][▒][▒]#  TAB [6][A][E][E]LEN    STEP ▜ASN [:][▒] NEW   LLIST ▜EXP ▜▜▜  RND[8][~~][E][A]#£ [C][C] GOTO [E][E][E]   SLOWRND### SLOW  #4A6[6]#▖ [C][C]ASN ATN [E][E]  ▜▜▜▜▜ LLIST   [4] REM  INPUT [I][E][E]  ""[G][E][E][E][E]  RND[8][E][E][E]#  ""[G][E]ASN [£][▒]▒ RND[A][E][E][A]PI7 ""[G][E]COS [C][C]  #▚#86ATN    SLOW####PI  [4][E][E][E][E]#  [4][E][E][E]##  [4][E][E][E] INPUT [E]  [4][E]##[E][E]  [4][E]##PIPI▖  STEP IPI#[▒] INPUT   FAST5[=]K; FOR  LPRINT U<=Z NEW█UAT Z?▞▒VAL  PRINT ,#CGS0 NEW LIST  PRINT # NEW?# LET [K]#<STR$ )4 ;SGN  LET AT ( STOPAT £ GOSUB #AT ZTAN ACS ZACS ZACS ZACS Z PRINT # NEW LIST />=S~~ACS BACS BACS BACS B/ATN  NEW?/ REM 
LET M1=19400
REM ██[N][U][M][E][R][A][L][S]██
IF USR M1 THEN LPRINT U;"0";"18,24,46,4A,52,24,18,00[1]20,10,10,10,10,10,08,00[2]3C,42,02,0C,10,20,7E,00[3]3C,42,02,0C,02,42,3C,00"
IF USR M1 THEN LPRINT U;"4";"08,18,28,48,7C,08,08,00[5]3E,40,5C,22,02,42,3C,00[6]06,18,20,7C,42,42,3C,00[7]7E,02,04,08,10,20,40,00"
IF USR M1 THEN LPRINT U;"8";"3C,42,42,3C,42,42,3C,00[9]3C,42,42,3E,04,18,60,00"
REM ██[S][Y][M][B][O][L][S]██
IF USR M1 THEN LPRINT U;"?";"3C,42,02,04,08,00,08,00[A]10,10,10,10,10,00,10,00"
IF USR M1 THEN LPRINT U;"[?]";"10,10,10,10,10,00,10,00"
REM ██[U][P][P][E][R]█[C][A][S][E]██
IF USR M1 THEN LPRINT U;"[A]";"1E,22,42,7E,42,42,42,00[B]5C,62,42,5C,42,42,7C,00[C]1C,22,40,40,40,22,1C,00[D]5C,62,42,42,42,44,58,00[E]5E,60,40,70,40,40,7E,00[F]5E,60,40,70,40,40,40,00"
IF USR M1 THEN LPRINT U;"[G]";"1C,22,40,40,46,22,1E,00[H]42,42,42,7E,42,42,42,00[I]38,10,10,10,10,10,38,00[J]38,08,08,08,08,48,30,00[K]44,48,50,70,48,44,42,00[L]40,40,40,40,40,42,7C,00[M]42,66,5A,42,42,42,42,00"
IF USR M1 THEN LPRINT U;"[N]";"42 62 52 4A 46 42 42 00[O]18 24 42 42 42 24 18 00[P]5C 62 42 5C 40 40 40 00[Q]18 24 42 42 42 24 1A 00[R]5C 62 42 5C 48 44 42 00[S]3C 42 40 3C 02 42 3C 00"
IF USR M1 THEN LPRINT U;"[T]";"7C 10 10 10 10 10 10 00[U]72 22 42 42 42 46 3A 00[V]42 42 22 22 12 14 08 00[W]77 22 41 41 49 49 36 00[X]41 22 14 08 14 22 41 00[Y]41 22 14 08 08 08 08 00[Z]3F 42 04 08 10 21 7E 00"
REM ██[L][O][W][E][R]█[C][A][S][E]██
IF USR M1 THEN LPRINT U;"A";"00 00 34 4C 44 44 36 00[B]40 40 58 64 44 44 58 00[C]00 00 38 44 40 44 38 00[D]20 10 18 24 44 44 38 00[E]00 00 38 44 7C 40 3C 00[F]18 24 20 38 20 20 20 00[G]00 00 38 44 40 4C 3C 04[H]40 40 58 64 44 48 5C 00"
IF USR M1 THEN LPRINT U;"I";"08 00 18 08 08 08 1C 00[J]08 00 18 08 08 08 28 10[K]40 40 48 50 70 48 44 00[L]20 20 20 20 20 24 18 00[M]00 00 56 69 49 42 47 00[N]00 00 58 64 44 48 5C 00[O]00 00 3C 42 42 42 3C 00[P]00 00 58 64 44 44 58 40"
IF USR M1 THEN LPRINT U;"Q";"00 00 34 4C 44 44 34 04[R]00 00 58 64 44 78 44 00[S]00 00 38 40 38 04 78 00[T]10 10 78 20 20 24 18 00[U]00 00 74 24 44 4C 34 00[V]00 00 44 24 14 14 08 00[W]00 00 77 22 49 49 36 00[X]00 00 44 28 10 28 44 00[Y]00 00 42 22 12 0C 48 30[Z]00 00 1E 24 08 12 3C 00"
STOP
SAVE "FANC[Y]"
PRINT "[F][A][N][C][Y]█[F][O][N][T] LOADED.",,," FOR USE WITH SRAM BOARD + SHR-EBIN MODE 2.",,,," RUN  TO  LOAD CHRS."
SLOW
STOP
REM [D][E][C]█[T][O]█[H][E][X]█[C][O][N][V][E][R][T][E][R]
INPUT D
LET HI=INT (D/16)
LET LO=D-HI*16
LET H$=CHR$ (HI+28)+CHR$ (LO+28)+","
PRINT H$;
GOTO 9000
 
REM ##E(RND)▞ ;) W▘ ▝ GOSUB [K]TAN 
REM A$(512)=LC CHR$ 
REM  GOTO 2 TO BACKUP
PRINT " SAVE NAME?"
INPUT N$
SAVE N$
RAND USR 16516
PRINT AT 0,0;" LOAD "
INPUT N$
LOAD N$
REM [C][O][R][E]█[V][3][.][0][0]## GOSUB #                                <> DIM LN F? CLEAR#OUORND[S]C IF TAN LN [M]RNDY2 GOSUB #<>5▟▝TAN  CLEARACS #▚/▖ CLEARACS #LEN LN [M]RND<>5<>RNDTAN  NEXT  CLEARACS  #: NEXT Y▘4▒ CLEARACS #LEN : PRINT Y▘# ( CLEAR▟W4 CLEAR▞"" CLEARACS ##C▝▞[K])4 5 4<>5:INKEY$ /▒)4 ▌ASN 1INKEY$ ;# GOSUB ###[:]"" GOSUB # E£RND) RUN ▙;Y2 GOSUB #Y PRINT ▘▛▝ CLEARACS ##CODE [P]▝LN [>]▝LN 4▝<>5<>RND#[8]▝ PRINT # RETURN,C▝INT / LET TAN  SCROLLLN #? FASTLN LN + LPRINT TAN  SCROLLLN #?#[B]:LN #INKEY$  PRINT LN #INKEY$ 7LN #INKEY$ # LET #TAN  SCROLL RETURN#C▀ RETURN;""6-RNDTAN  TO / PAUSE Y3[)]K▝INT (Y[Z][(]SQR INT 2LN #INKEY$ LN #INKEY$ / INPUT LN #INKEY$ /[H]LN #INKEY$ / SLOW5  6 RETURNZA4##<▘ COPY*Q  GOSUB [K]TAN A ##▞▌ACS 9ACS =( IF ,,▘ 4,,TAN LN [~~]INKEY$ ##ACS ZACS ZACS Z##STR$ LN [J]INKEY$  LET J NEW▛W#TAN LN [>]INKEY$ ##LN #INKEY$ VAL LN #INKEY$ AT LN [J]INKEY$ #TAN 2 COPY/▝2 STR$ LN [*]INKEY$ SGN  GOSUB # UNPLOT ZLN CODE INKEY$ ##?( CLEARACS .*PI▌4▝▞▒▛( CLEAR#TAN Y COPY/▘[J] CLEARACS #[:]MWRNDLN [*]INKEY$ # RETURN,4▛ GOSUB # UNPLOT ZLN [*]INKEY$ ## GOSUB # UNPLOT Z6 UNPLOT ZVAL #[)]-▘K▖ GOSUB #- COPY4▝-  FAST# CLEAR#Y LET [(]2▘K▖ GOSUB #2 COPY4▝2  CLEAR#X#[W]S▞##- /▝2  GOSUB #ZRND84▘96INKEY$ RND#[B]3#A 6#RNDAT VAL Y[Z][(] CLEAR#W CLEARACS ##4▌LN  IF INKEY$ /▀LN 7# CLEAR#INKEY$ ▞  CLEAR###,, CLEAR## GOSUB #ZRND CLEAR#PI GOSUB PIS▛ CLEAR## GOSUB #XRNDAT #▙##▄# CLEARO#UPIRND CLEAR[Y]#4[U]TAN LN #INKEY$ LN 4+ LOAD K LET $[M]H?▖O#[~~]+▞(## FOR 5  ACS TACS 3K▘; FOR D FOR ( POKE TAN Y COPY/▘[J]MWRND CLEARACS #[-]7LN [>]INKEY$ 5[+]▘6#RNDI 6#RND#6INKEY$ RND GOSUB # UNPLOT Z GOSUB ##RND FASTLN #INKEY$  LPRINT #6#RND6#RNDLN #INKEY$ CBLN #INKEY$ LN #INKEY$ M#RNDLN #INKEY$ C;LN #INKEY$ LN AT PI GOSUB ##RND TO LN #INKEY$ LN AT PI CLEARACS #CHR$  GOSUB ##RNDE#RND FASTEINKEY$ RND GOSUB ##RND▞▞ACS EACS .( IF  GOSUB #6INKEY$ RND FOR E#RND▞▞ACS EACS .( IF  GOSUB #6#RND GOSUB ##RNDLN PEEK PIU#RND##ACS +[£] PRINT ACS <[0]MRNDRNDEINKEY$ RND GOSUB ##RNDLN PEEK PIU#RND##ACS +[£]MZRND##ACS <[0]AT # CLEARACS ##C)E#RND#[P]C▞F6#RND/? CLEARACS #[-]Y[Z][(]S▞ CLEAR#WLN  IF INKEY$  LPRINT F#[P]4█TAN  CLEARQX▘LN #INKEY$ COS LN #INKEY$ MXRNDLN #INKEY$ COS LN [>]INKEY$ LN #INKEY$ [S]S▀#INKEY$ #LN ▜INKEY$ #INKEY$ LN ▜INKEY$ #PI GOSUB #YRND[)]W PRINT LN #INKEY$ [S]K▀#INKEY$ # GOSUB #RNDRND[(]W4▘XSGN # GOSUB #PIRND CLEAR#INKEY$  CLEAR#ZLN ▜INKEY$ LN CODE INKEY$ 6#RND CLEAR## CLEAR#RND CLEAR#ZLN ▜INKEY$ LN CODE INKEY$ 6#RND CLEAR##TAN  GOSUB ##RNDE#RND CLEAR##[J]R*( UNPLOT M#RND CLEAR##[J]▌C▖R*( UNPLOT J CLEAR##▌TAN #[A] FOR ##J[A][K]# FOR TAN #VAL ▘4 ##,,#LN ###AT ( LET [J][5]/ SLOWLN ACS #4*) 4544▘ STEP * GOSUB [K]▞4F#( UNPLOT  CLEARPX4 REM TAN LN R# FAST[B] GOSUB # LPRINT C: FASTVAL STR$ LN ##Y COPYSGN AT  LPRINT F/ FOR  CLEAR[A]#LN ## CLEARPX4<>TAN VAL 5  )4 ;( CLEAR FOR E#RND; FASTE#RND;SGN AT TAN #VAL ▘4 ##[B] GOSUB PI#LN ###AT ( LOAD [J]###LN ACS #4*) COPYR5 TO R▘ STEP * GOSUB [S]▞47#( UNPLOT  CLEARPX4 REM TAN LN R#LN [T]# FAST[B] GOSUB # LPRINT C: FASTVAL STR$ LN SQR #Y COPYSGN AT  LPRINT F/ FOR  CLEAR[A]#LN SQR # CLEARPX4 AND TAN LN ACS #4+5 COPYR▞4#[B]ACS -F( CLS[8]4 POKE  CLEARPX4 GOTO TAN LN R##▖U#RNDVAL  PRINT  FASTSTR$ INKEY$ # PRINT  FAST[B] GOSUB # LPRINT C+#[4]# LET #ACS * PRINT #J[A]# LET  PRINT [K]#▞ COPYF/ SLOW#[4]### LET #ACS *[4] PRINT #J[A]# LET [K]#SGN  LPRINT ▘4  FOR ,, FOR ,, LET AT ([Y] CLEARPX4[L]TAN LN ACS #4-5 4[B]▞4ACS 27( CLSYS[W]4 NEXT  CLEARPX4 FOR TAN LN R##▖U#RND FOR VAL  PRINT  FASTSTR$ # PRINT  FAST[B] GOSUB # LPRINT C+#[4]# LET #ACS 3 PRINT #J[A]# LET  PRINT [K]#▞ COPY7/ SLOW#[4]### LET #ACS 3[4] PRINT #J[A]# LET [K]#SGN  LPRINT ▘4  FOR ,, FOR ,, LET AT ([Z] CLEARPX4[L]TAN ###Y[Z][(]STR$ VAL  PRINT LN  IF INKEY$  LET AT SGN TAN 2 COPY/▝2 STR$ LN <>#SGN  CLEAR##UINKEY$ RND5ZRND PRINT  FASTLN  RETURN#+C▞WLN ▖#/ RUN  CLEAR#PI LPRINT  LET F FASTLN  RETURN#+C▞£LN ▖#/ RUN  CLEAR## LPRINT URNDRND PRINT  FASTLN  RETURN#+C▞XLN ▖#/ RUN  CLEAR#PI LPRINT  LET 7LN  RETURN#+COS $LN ▖#/ SAVE ##[A]##J##J[6][N]#)4 ;( LOAD TAN LN ACS #4+5 4▘ /#J#7YS[W]4 RUN  CLEARPX4 GOTO TAN LN R#▖J FAST[B] GOSUB # LPRINT C: FASTVAL STR$ LN ##Y COPYSGN AT  LPRINT F/ REM U#RNDJLN ## CLEARPX4 AND TAN A$( LN [J]INKEY$  FAST TO  FAST5[X]#6-RNDLN 0)AT  GOSUB #-RNDK▝INT 6777# RETURN▝4 PLOT 7#Y""[>]S LOAD 77#Y4[)]S SCROLL77 CLEAR#X▞ SGN TAN LN [>]INKEY$ ##Y4[)]MYRNDLN #INKEY$  SCROLLM[X]# SCROLL RETURN$4SIN ##INKEY$ VAL [J]# FOR  GOSUB PI FOR AT TAN LN  RAND # PRINT LN AT # LET ▞# FASTC0 RETURN,4[E] SCROLL RETURNA▞[A]C£ RETURNO▞[Q]C▞ RETURNX▞[I]4[*]LN #INKEY$ 4 CLS#M## LPRINT UYRNDINKEY$ :4VAL  PRINT STR$ YS[U]4▖SGN -4STR$ ,#>7< CLEARPYATN <#( REM  FOR  LPRINT ,, FOR  LET AT MYRND CLEARPX4 OR TAN Y /▝Y>M[4]#LN  RAND #4[S]LN AT #UYRNDINKEY$ :4VAL  PRINT STR$ YS[U]4▖SGN -4STR$ # PRINT ,# LET >7< CLEARPYATN <#( SCROLL FOR  LPRINT ,, FOR  LET AT MYRND CLEARPX4CHR$ TAN 7# RETURN0K▝INT 1 RETURNGK IF CHR$ 0TAN LN [U]##ACS 4ACS 4ACS 4ACS 4LN [U]#█#7# RETURN"#TAN  SCROLL RETURN"TAB 9#7#ACS #C▝CHR$ RND)  77 FAST▞▒## FOR ;( CLEAR FOR 5 S; FOR  LPRINT TAN LN  STEP #7LN TAN #>4▀## </ POKE ##[B]4## CLEAROY CLEARACS Y#4/7#[B]C LET ACS #4?▞ COPY[B]*S▖ACS // SAVE #J[5][Q]# FOR F CLEARPZ CLEARACS Z#""#[B]4▀#/ LIST ACS #""▞ COPY[B]ACS 3S▖ACS (/ RUN #J[5][Q]#TAN VAL #Y,,[(]#ACS )S▌( IF AT /[P]AT ##ACS ;S/( IF  CLEAR#WLN ## CLEAROY CLEARACS Y#""7 CLEAR#W##/[-] CLEARACS #CHR$ ##VAL ACS ;( UNPLOT AT ** CLEARACS #[-] CLEAR#WVAL Y,,[(]#[J]#ACS >ACS <ACS ▘W( RUN ACS >ACS <ACS ▘WK RUN ACS .ACS ,,XACS .ACS ;X4 RAND #AT Y,,#[(]ACS ;+( CLSACS ,,+K CLS#PIACS <ACS ▘( IF PIACS ;ACS .( IF #TAN LN [~~]INKEY$ VAL  PRINT LN 1+Y▒LN 1+LN R0LN LN +LN [B]:Y▛[)]# GOSUB ##RND LET AT #ACS UACS UACS U5YRND#7#7#LN CODE INKEY$  FASTVAL LN #INKEY$ MINKEY$ RNDLN #INKEY$ LN  STEP ##LN #INKEY$ TAB *# FOR ▘▛ ,,6#RND GOSUB ##RND GOSUB PI6PIRNDAT SGN  CLEARACS #[-] CLEAR##Y▒[)]#/▝:▒STR$ VAL EPIRND#F6PIRNDMWRND CLEARACS ##TAB [A]▝##LN =# CLEARPINKEY$ ASN [A]▝AT  LPRINT [B])4  GOSUB ## RETURN3COS URNDRNDMYRNDMZRND$ FOR 4COS E#RND6PIRND/[Y]LN #INKEY$ ##▘▘COS  CLEARACS V#""( RAND $4 PLOT .#[N]4 INPUT TAN  SCROLL RETURN#4,,LN ,,#LN 0#/K SCROLL RETURN,C> RETURN;CG RETURN#C# RETURNAT C# RETURNTAB C#/# GOSUB # RETURNZ# NEW LIST LEN ( RETURNRNDCODE  FAST#ATN  STEP #/CHR$ #LEN ▒#[J]# GOSUB # RETURNZTAN ▞ COPY SCROLL RETURN#COS  RETURN,4▖Y▖/" RETURN;4LEN ▖# RETURN▀ASN 9#M CLSZ/ SLOW GOSUB # RETURNZ/SGN LN #INKEY$ ## RETURN[T]ABS [▒]INKEY$ # RETURNRNDABS ▙INKEY$  GOSUB # RETURNZ TO /[)]LN #INKEY$  NEWZ GOSUB # RETURNZ[T]#K GOTO Y▒█#/ NEWLN #? CLEARACS ▘#CODE STR$ .LN  SAVE <#[L]C OR ,VAL STR$ LN ##SGN AT <"/ LIST  RETURN""4▖Y"/U PRINT  NEW# RETURNRNDK▛ LET  CLEARACS ▘LEN /G CLEARACS ▘#C~~[J] CLEARACS ▘▚LN [/]#/▖ CLEARACS ▘LEN  LET LN #,,~~ PRINT VAL  NEW#LN [/]#AT ▀ LET  RETURN█S LET  CLEARACS ▘▚[J] GOSUB # RETURNZ PRINT YZ[)]>= STEP #LN 0# LET VAL M#RND[B]*[B]**- ACS >#5 2; FASTACS TLN [J]INKEY$ SGN U CLSZ RETURN▖ASN ;# RETURN▝CPI RETURN▘CEY▒ PRINT STR$ , PRINT U CLSZ[B]4~~ CLEARACS ##C▖ LET J/▘ LET #)4 ;SGN  LET <X4 STEP AT ££ GOSUB # RETURNZTAN U#RND RETURNASINT  RETURN[A]KACS  FAST5 2; FOR  LPRINT /TAB U#RND▛ FAST5 0S LET A,/ GOSUB  CLEARACS ##Y[S]C▝Y[C][S]SQR ## NEW▛▙#VAL ) 45 5ACS SACS SACS S# GOSUB [K]F#( UNPLOT AT TAN ▘ ""LN 0## NEW# PRINT  SCROLLLN 0) AND #$ASN 9#7 FAST▞▌[J]#7( UNPLOT SGN  LET TAN LN AT INKEY$ #?( CLEARLN ##SQR Y▟>TAN LN AT INKEY$ ##LN 4+ FASTLN ## LPRINT LN  PLOT ;#[~~]+LN AT INKEY$ #▞ / REM <>#  PRINT LN  SCROLL▝2"" CLEARACS ##C▝2[K]5 4[J]PEEK  CLSLN #?ABS ▐▒<= CLS*K CLS-4▞▒#<= CLS3K CLS# NEW█PEEK  CLSACS )( PAUSE 7+4 FOR <= CLS3K CLS14PEEK Y▖PEEK  CLS LET  RETURN GOSUB ASN ▛▝#STR$ RNDLN #INKEY$ Y*C▀LN #INKEY$ )  WE RETURNZ FAST GOSUB # RETURNZ GOSUB #£RND< PRINT ▞4,VAL STR$ LN [/]#SGN AT <( PRINT  LET X4 GOSUB  LPRINT 6 RETURNZTAN LN #INKEY$ CATN LN #INKEY$ W PRINT #Y""CHR$ ▒( UNPLOT ## LET /LEN )[(]RNDLN #INKEY$ C>STR$ LN #INKEY$ #LN #INKEY$ ▖SGN ,LEN █><( RAND TAN ▞4[J]><( UNPLOT TAN LN #INKEY$  RETURN4) ▞K▞LN  NEXT ##▛#INT .▘4 ,,# RETURNS**#TAN LN #INKEY$  RETURN4K GOSUB LN #INKEY$ [B]***- #5 Y;6#RND##INKEY$ LN ## GOSUB # UNPLOT ZY[Z][(]K▝CHR$ RND##ACS WACS 1ACS WACS 1ACS WACS 1ACS  GOTO 6 DIM Z#J NEW▛WM#RND) FOR Z GOSUB ##RNDY▒ PRINT #>~~VAL #U#RND RETURN▌S)JLEN ,,[B]##: C:3ACS ;( CLS/▛#[J]ACS )*( CLS[Q]#7<#>#[Q]#FLN ##<AT ▀ LET X4SIN TAN LN #INKEY$ TAB *#E DIM Z) FOR Z▞▒VAL ,#7<,#LN ##F<AT ( LET TAN  CLEARACS #EXP LN ## TO  RETURN,4▞LN █#LN #INKEY$ E UNPLOT Z[B] GOSUB PICOS #FPIVAL LN #?ABS [▒]▒5ORND##[S]C UNPLOT  CLEAR[-] CONT M#RNDLN  LOAD #AT LN ▜#U#RND CLEAR[Y]O4 CLSTAN LN #INKEY$ Y C▀LN #INKEY$ M CONT ZTAN  GOSUB # UNPLOT Z# RETURN COPY4▖▞[Z]/▞ RETURN""4▝▞ Y[Z][(] GOSUB # UNPLOT ZTAN LN  IF INKEY$ )[4]▀.#[N]4 CLSTAN LN [~~]INKEY$  GOSUB # UNPLOT ZLN #INKEY$ M## CLEARACS #CHR$ LN ##VAL  PRINT LN CODE INKEY$ #2 COPY LET AT STR$ VAL  PRINT LN ## LET AT LN ##SGN #E9RND##GC THENLN [X]▛#:£)VAL ##M# CLEARACS #CHR$ /ATN  CLEARQW COPY CLEARACS #[-]/TAB  CLEARQW / POKE  CLEARO CLEAR CLEARP UNPLOT LN ## CLEAR#W CLEARACS ##4[E]LN  IF INKEY$ /[9] CLEARO CLEAR/ REM  CLEARO UNPLOT / PLOT  CLEARO UNPLOT / STEP  CLEARP CLEAR/ PLOT  CLEARP CLEAR/CHR$  CLEARP UNPLOT / PLOT  CLEARP UNPLOT /ATN    TO  RETURN;CM RETURN#C▝INT + LPRINT ▘  ##  TO  RETURN THENC▝INT ) FAST SCROLL);#STR$ :(),#▞  FOR  GOSUB [5]C▌77 REM P##7# FOR VAL TAN SGN ):#STR$ :?) FOR # SCROLL# SCROLL RETURN#CSQR  RETURN;4 RUN F#7 RETURN$C▘#/INT :▌)[.]#F#7/VAL :▖)[G]#/ POKE FF#77:▀)[U]#/[M]YX:  GOSUB [T]77#:▀)[(]#/[6]C GOTO PID=PIR>#9#D##E DIM #M▛#P##S##9#D NEW#LD#R[<]#U##9#G##P0#S##9#C[W]#DTAB #EATN #R##1ABS #2 INPUT #3 SAVE #4▝#5▛#6 CLEAR#7 DIM #8 NEXT #[:]#X█#A##B OR INKEY$ C CONT PID(PIF CONT #I##L▚#P##R:#S##T##U▖#W##$##9# LPRINT ## LLIST :# SCROLL## LOAD [L]# LIST >=# PAUSE [)]# PRINT [D]# PLOT  FOR INKEY$  RUN ACS RND SAVE =# RAND 8# CLS[0]INKEY$  UNPLOT  LOAD INKEY$  CLEARSGN RND RETURN[Z]RND COPY[:]#9#                   
REM  FAST SAVE  LOAD ##▞▛ACS 5>=[;]#USR [▒]#Y▀X4 CLEAR GOSUB #▌TAB ##ACS 5>=[;]#USR [▒]#TAN <= RETURNY,X4 CLEARPEEK  COPYY>X4 CLEAR#[H]##[0]#<= RETURNYDX4 CLEARPEEK  COPYY4X4 CLEARF7RTAN ▘ █VAL  LN ##AT ▌TAB [L]#▀ GOSUB #LN ##LN  GOSUB #$LN ## CLEAR FAST LET #:[E]LN ##LN  GOSUB ##LN ##LN  GOSUB ##LN ## CLEAR FAST LET ##LN ##7.#[N]4 PLOT   TAN LN  SCROLL▝76-RNDLN #? FASTLN  SAVE < LPRINT 7#[K]C: RETURN5K~~# RETURNSCOS  RETURNVCOS  RETURNPCOS INT 0LN  LIST # PRINT ##VAL ) ▝LN [-]#SGN LN [I]# LET E=RND RETURNS4▛5 4##/( RETURNP4▌),,RND/▖ GOSUB #(RND GOSUB # FOR LN [I]##▛▝<= RETURN*S CLS: £<= RETURN*K IF #LEN  SCROLLACS <TAN 2 ▞▒LN ##( CLSTAN - =PEEK  COPY# RETURNRNDK)2 LN ##LN #?ABS [▒]▒#[B]4 SCROLL/ SCROLL2 PEEK  COPYLN ###[B]C PRINT LN ##04CHR$ LN ### RETURN[E]4EXP LN ###LN ##STR$ PEEK  COPYLN ###SGN 7.#[N]4 PAUSE TAN  FASTLN  LIST # PRINT STR$ VAL 5WRND FASTLN ##AT [J] GOSUB PIAT  GOSUB PISGN C,,-▝LN [-]# LET  LPRINT / TO 5WRND,[Y]4 LIST 7<"#[L]4 PRINT  LET  LPRINT  RETURNS4,,5 4LN ###▛▝ RETURNV4>E(RNDLN ##FLN [1]=SGN  LPRINT LN ▛▝##▞5,,RND/ GOTO 
REM [6][4][-][C][O][L] PRINT ## LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST WWWW LIST  LIST  LIST  LIST #### LIST  LIST  LIST  LIST ???? LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST WWWWWWWWWWWW####WWWW????WWWW#[9]#[9]#[9]#[9] LIST  LIST  LIST  LIST #[9]#[9]#[9]#[9] LIST  LIST  LIST  LIST  ##RND RNDRNDRND [4]E##[:][E]  ##[▒]#▙## RND8  ▖   ##PI# #  6##CODE #PI4 ▜PIPI#PI#█ ▒▖#[8]▒   ▝▖▒▖▝  LIST  ##RND#RND#  #USR [Y]▜#   #4I44#  E# INPUT #E   ▙▙##CC  RND[8]RNDRND#▖▒ RND█  ▖▖▒     £# (-,,,,0(█▜[£]▜▜▜[:]█ LIST ▖~~▝▖▒:  LIST [:]▙▜▙[~~]▜█ LIST >-,2>>(█[:][▒][£]▙[~~]▜ LIST (=/0,,= LIST █[:]PIPI8C/((=E8##▜█ ▖[~~] IF [A][6][8]  RND[8][6] NEW[E][A]  COS [C]ATN [E][E]ATN   #▜[~~][▒][▒]#  TAB [6][A][E][E]LEN    STEP ▜ASN [:][▒] NEW   LLIST ▜EXP ▜▜▜  RND[8][~~][E][A]#£ [C][C] GOTO [E][E][E]   SLOWRND### SLOW  #4A6[6]#▖ [C][C]ASN ATN [E][E]  ▜▜▜▜▜ LLIST   [4] REM  INPUT [I][E][E]  ""[G][E][E][E][E]  RND[8][E][E][E]#  ""[G][E]ASN [£][▒]▒ RND[A][E][E][A]PI7 ""[G][E]COS [C][C]  #▚#86ATN    SLOW####PI  [4][E][E][E][E]#  [4][E][E][E]##  [4][E][E][E] INPUT [E]  [4][E]##[E][E]  [4][E]##PIPI▖  STEP IPI#[▒] INPUT   FAST5;N; FOR  LPRINT U#RND NEW█U RETURNZ?▞▒VAL  PRINT ,#CGS0 NEW LIST  PRINT # NEW?# LET [K]#<STR$ )4 ;SGN  LET AT ( STOPAT £ GOSUB # RETURNZTAN ACS ZACS ZACS ZACS Z PRINT # NEW LIST />=S~~ACS BACS BACS BACS B/ATN  NEW?/ REM 
REM [S][I][N][C][L][A][I][R]█[F][O][N][T] SHREBV3.0 
LET HR=VAL "20000"
LET T2=32
LET DEF=8000
LET PR=100
LET LF=300
LET LN=400
GOTO 7000
REM [P][R][I][N][T]█[C][O][N][T][E][N][T][S]█[O][F]█[T]$
REM  [A][T]█[P][L][O][T]█[C][O][O][R][D][S]█[X],[Y]
FOR I=1 TO LEN T$
LET N=CODE T$(I)
LET G=(N>=32)
IF NOT N THEN GOTO 150
IF (G AND NOT F) OR (NOT G AND F) THEN GOSUB DEF+T2*G
IF G THEN LET N=N-T2
LET W=CODE W$(G+1,N+1)
IF X+W>255 THEN GOSUB LF
IF N OR G THEN IF USR HR THEN LPRINT SP;N,X,Y
LET X=X+W
NEXT I
RETURN
LET X=0
LET Y=Y-10
IF Y<10 THEN LET Y=10
RETURN
REM [P][R][I][N][T]█[L][I][N][E]█[W][I][T][H]█[L][F]
GOSUB PR
GOTO LF
REM [T][Y][P][E][W][R][I][T][E][R]
IF INKEY$ <>"" THEN GOTO 1010
IF USR HR THEN PLOT X,Y
LET T$=INKEY$ 
IF USR HR THEN UNPLOT X,Y
IF T$="" THEN GOTO 1020
IF T$=CHR$ 121 THEN GOSUB LF
IF T$=CHR$ 118 THEN LET T$=" "
IF T$<"RND" AND T$>" " THEN GOSUB PR
IF T$=" " THEN LET X=X+5
IF X>253 THEN GOSUB LF
GOTO 1010
REM [P][R][I][N][T]█[C][H][A][R][A][C][T][E][R]█[S][E][T]
LET T$=""
FOR I=0 TO 63
LET T$=T$+CHR$ I
NEXT I
LET Y=110
LET X=0
LET X=0
LET Y=100
GOTO PR
REM [C][H][A][R]█[W][I][D][T][H]█[A][R][R][A][Y]
DIM W$(2,32)
LET W$(1)="▌,,,,,,,,,,,,,,,,,,,,▞▞~~▖,,▞▞▞▞,,,,,,,,,,▞▞▌~~~~~~~~"
LET W$(2)="~~~~~~~~~~~~,,,,,,,,,,▛,,,,▀▛,,▀,,,,,,,,,,,,,,▛,,,,,,,,,,,,"
GOSUB DEF
LET X=0
LET Y=190
IF USR HR THEN CLS
IF USR HR THEN RUN 
REM [S][A][M][P][L][E]█[U][S][A][G][E]
LET T$="* A PROPORTIONAL CHARACTER SET *"
GOSUB LN
LET T$="============================"
GOSUB LN
GOSUB LF
GOSUB 6000
LET T$="PROBLEM: GIVEN THE 8-LETTER WORD"
LET Y=160
LET X=0
GOSUB LN
LET T$=CHR$ 11+"SINCLAIR"+CHR$ 11+", DERIVE THE WHOLE SET OF CHARACTERS. HERE£S MY SOLUTION."
GOSUB LN
GOSUB LF
LET T$="GOING TO TYPEWRITER MODE...."
GOSUB LN
GOSUB LF
LET Y=50
LET T$="BY: "
GOSUB PR
GOTO 1000
LET F=NOT PI
IF USR HR THEN LPRINT SD;CODE " ","00,00,00,00,00,00,00,00,FF,F1,F1,F1,81,81,81,FF"
IF USR HR THEN LPRINT SD;CODE "▝","FF,8F,8F,8F,81,81,81,FF,FF,FF,FF,FF,81,81,81,FF"
IF USR HR THEN LPRINT SD;CODE "▖","FF,81,81,81,F1,F1,F1,FF,FF,F1,F1,F1,F1,F1,F1,FF"
IF USR HR THEN LPRINT SD;CODE "▞","FF,8F,8F,8F,F1,F1,F1,FF,FF,FF,FF,FF,F1,F1,F1,FF"
IF USR HR THEN LPRINT SD;CODE "▒","FF,D5,D5,D5,D5,D5,D5,FF,FF,81,81,81,FF,D5,D5,FF"
IF USR HR THEN LPRINT SD;CODE "~~","FF,D5,D5,FF,81,81,81,FF,00,F0,90,90,00,00,00,00"
IF USR HR THEN LPRINT SD;CODE "£","00,70,10,10,00,00,00,00,00,18,FF,80,FF,01,FF,18"
IF USR HR THEN LPRINT SD;CODE ":","00,00,60,00,00,60,00,00,FF,01,01,0F,08,08,00,08"
IF USR HR THEN LPRINT SD;CODE "(","78,40,40,40,40,40,40,78,78,08,08,08,08,08,08,78"
IF USR HR THEN LPRINT SD;CODE ">";"00,00,78,08,08,78,00,00,00,00,78,40,40,78,00,00"
IF USR HR THEN LPRINT SD;CODE "=","00,00,7F,00,00,7F,00,00,00,08,08,7F,08,08,08,00"
IF USR HR THEN LPRINT SD;CODE "-","00,00,00,7C,00,00,00,00,00,00,FF,24,3C,24,FF,00"
IF USR HR THEN LPRINT SD;CODE "/","00,00,18,00,FF,00,18,00,00,00,60,00,00,60,E0,00"
IF USR HR THEN LPRINT SD;CODE ",","00,00,00,00,00,60,E0,00,00,00,00,00,00,E0,E0,00"
IF USR HR THEN LPRINT SD;CODE "0","FF,81,81,81,81,81,FF,00,18,18,18,18,18,18,18,00"
IF USR HR THEN LPRINT SD;CODE "2","FF,01,01,FF,80,80,FF,00,FF,01,01,FF,01,01,FF,00"
RETURN
LET F=SGN PI
IF USR HR THEN LPRINT SD;CODE "4"-T2,"81,81,81,FF,01,01,01,00,FF,80,80,FF,01,01,FF,00"
IF USR HR THEN LPRINT SD;CODE "6"-T2,"80,80,80,FF,81,81,FF,00,FF,01,01,01,01,01,01,00"
IF USR HR THEN LPRINT SD;CODE "8"-T2,"FF,81,81,FF,81,81,FF,00,FF,81,81,FF,01,01,01,00"
IF USR HR THEN LPRINT SD;CODE "A"-T2,"00,00,FE,02,FE,82,FE,00,80,80,FE,82,82,82,FE,00"
IF USR HR THEN LPRINT SD;CODE "C"-T2,"00,00,FE,80,80,80,FE,00,02,02,FE,82,82,82,FE,00"
IF USR HR THEN LPRINT SD;CODE "E"-T2,"00,00,FE,82,FE,80,FE,00,78,40,F8,40,40,40,40,00"
IF USR HR THEN LPRINT SD;CODE "G"-T2,"00,00,FE,82,82,FE,02,FE,80,80,FE,82,82,82,82,00"
IF USR HR THEN LPRINT SD;CODE "I"-T2,"80,00,80,80,80,80,80,00,08,00,08,08,08,08,08,F8"
IF USR HR THEN LPRINT SD;CODE "K"-T2,"80,80,82,82,FE,82,82,00,80,80,80,80,80,80,80,00"
IF USR HR THEN LPRINT SD;CODE "M"-T2,"00,00,FF,91,91,91,91,00,00,00,FE,82,82,82,82,00"
IF USR HR THEN LPRINT SD;CODE "O"-T2,"00,00,FE,82,82,82,FE,00,00,00,FE,82,82,FE,80,80"
IF USR HR THEN LPRINT SD;CODE "Q"-T2,"00,00,FE,82,82,FE,02,02,00,00,FE,80,80,80,80,00"
IF USR HR THEN LPRINT SD;CODE "S"-T2,"00,00,FE,80,FE,02,FE,00,40,40,F8,40,40,40,40,00"
IF USR HR THEN LPRINT SD;CODE "U"-T2,"00,00,82,82,82,82,FE,00,00,00,C6,44,44,44,7C,00"
IF USR HR THEN LPRINT SD;CODE "W"-T2,"00,00,92,92,92,92,FE,00,00,00,E7,24,3C,24,E7,00"
IF USR HR THEN LPRINT SD;CODE "Y"-T2,"00,00,82,82,82,FE,02,FE,00,00,FE,02,FE,80,FE,00"
RETURN
STOP
SAVE "MOD-PRO[P]"
PRINT "ENABLE SRAM... WRITE PROTECT OFF"
PRINT ,,"ENTER RUN FOR DEMO"
STOP
 
REM ##5[(]RND) S▘ ▞ GOSUB [K]TAN          LIST  LIST  LIST  LIST     ????     COPY COPY COPY COPY         LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST ???? LIST  LIST  LIST  LIST  COPY COPY COPY COPY LIST  LIST  LIST  LIST [E]#[E]#[E]#[E]#    [E]#[E]#[E]#[E]#     QQ     //K      £ZWZ?Z£   /  / Y#▀▞£ £  ▞££££▞  K////K   /£▞£/   ▞£/£▞    Z Z    ££Z££     Z     2£Z£2   ▀▞£/K   /  //K     ££/     00 0Q###Q0 K/////£ Y#▀:/K# Y#▀:▀#Y £0W##££ Z##N▀#Y ▛0K###Y #▀▞£/K# Y##Y##Y Y##Z▞0#   Y###Z #######   W###W K/0Q##W   W###Y 0QKWKKK   W###Y▞####### £ 0£££2 £ 0£££W/####### KKKKKQ0   #####   #####   Y###Y   ######  Y###Y▞  #####   W#W▞# //#KKQ0   #Q##Y   #Q22£   #N##Z   #W/W#   #N.:#S  3Q£.Y  COPY COPY COPY COPY COPY COPY COPY COPY???? COPY COPY COPY COPY LIST  LIST  LIST  LIST  COPY COPY COPY COPY     COPY COPY COPY COPY COPY COPY COPY COPY???????????? LIST  LIST  LIST  LIST ????    ????#[E]#[E]#[E]#[E] COPY COPY COPY COPY#[E]#[E]#[E]#[E] COPY COPY COPY COPY 222222  ##£/R#  0Q0Z#Z  ▞▞▀    ///// /  ▞££0££▞ K//0//K  V#            COPY 2////2  Y####Y  W££££W  /K#K/   K/£▞▀   /W#/// KKK#          : ▘▘▘▘▘▘▘▘"""""""""""""""" COPY        COPY"""""""""""""" COPY▘▘▘▘▘▘▘"""""""""""""" COPY▘▘▘▘▘▘▘ COPY""#K/£▞▀▘▘▀▞£/K#""  ▘Z#2223N##### ####### 2N###N2 ####### ####### ####### 2N###N3 ####### W/////W W££££#S ####### ####### ####### ####### 0Q###Q0 ####### 0Q###Q3 ####### Y##Y▀#Y #////// #N####Z ##NN.2£ #N####Z #N2£2N# #N2££££ Z#▞£/L#  COPY COPY COPY COPY COPY COPY COPY COPY???? COPY COPY COPY COPY LIST  LIST  LIST  LIST  COPY COPY COPY COPY     COPY COPY COPY COPY COPY COPY COPY COPY???????????? LIST  LIST  LIST  LIST ????    ????#[E]#[E]#[E]#[E] COPY COPY COPY COPY#[E]#[E]#[E]#[E] COPY COPY COPY COPY ======  ##▒(A#  /8/E#U  ▖▖▝     (((( (  ▖▒▒/▒▒▖ 4((/((4  M#            COPY 0((((0  W###RNDW  S▒▒▒▒S  (4#4(   4(▒▖▝   (S#((( 444RND          £ ▘▘▘▘▘▘▘▘████████ COPY        COPY███████ COPY▘▘▘▘▘▘▘███████ COPY▘▘▘▘▘▘▘ COPY█RND4(▒▖▝▘▘▝▖▒(4RND█  ▘Y#===  S▖W#W  RNDRND####   S#RNDRNDS  ▖▖W##W   S##RNDS  04#444   S##W▖S RNDRND####  ( K((S  ▒ /▒▒#K 48CKC8  K((((S   #####   #####   S###S   ####RNDRND  W##W▖▞  GM444   WRNDW▝W  4#448/   ####W   ###C(   ####C   #C(C#   6662▝0  #▒(4#           
REM ##5 S)[(]RND▘ ▞ GOSUB [K]TAN    
PRINT A$;" FONT LOADED.",,,"1. DOWNLOAD ";A$;" FONT.",,,"2. STORE NEWFONT.",,,"3. SAVE CURRENT FONT.",,,"4. STOP",,,,"[E][N][T][E][R]█[N][U][M][B][E][R]"
INPUT A
CLS
IF A<PI/PI OR A>VAL "4" THEN GOTO VAL "10"
GOSUB VAL "1E3*A"
GOTO VAL "10"
RAND USR VAL "16516"
RETURN
RAND USR VAL "18082"
RETURN
PRINT "NAME OF FONT SET?",,,"START TAPE BEFORE HITTING ENTER."
INPUT A$
SAVE A$
CLS
GOTO VAL "10"
STOP
REM ##5[(]RND) S▘ ▞ GOSUB [K]TAN          LIST  LIST  LIST  LIST     ????     COPY COPY COPY COPY         LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST ???? LIST  LIST  LIST  LIST  COPY COPY COPY COPY LIST  LIST  LIST  LIST [E]#[E]#[E]#[E]#    [E]#[E]#[E]#[E]#     88     ((4      ▒YCY~~Y▒   (  ( WPI▝▖▒ ▒  ▖▒▒▒▒▖  4((((4   (▒▖▒(   ▖▒(▒▖    Y Y    ▒▒Y▒▒     Y     =▒Y▒=   ▝▖▒(4   (  ((4     ▒▒(     // /8###8/ 4(((((▒ WPI▝£(4# WPI▝£▝PIW ▒/C##▒▒ YRND#6▝PIW ▞/4#PIPIW #▝▖▒(4RND WPIPIWPIPIW WPIPIY▖/#   O###Q RNDRND#####   S#RND#S 4(/8##S   S##RNDW /84S444   S#RND#W▖RNDRND##### ▒ /▒▒▒0 ▒ /▒▒▒C(RNDRND##### 444448/   ###PI#   #####   WPIPIPIW   #####RND  O###O▖  #####   SRNDS▖# ((#448/   #8##O   #8==▒   #6##Q   #C(C#   PI6>£#K  28▒>W  COPY COPY COPY COPY COPY COPY COPY COPY???? COPY COPY COPY COPY LIST  LIST  LIST  LIST  COPY COPY COPY COPY     COPY COPY COPY COPY COPY COPY COPY COPY???????????? LIST  LIST  LIST  LIST ????    ????#[E]#[E]#[E]#[E] COPY COPY COPY COPY#[E]#[E]#[E]#[E] COPY COPY COPY COPY ======  ##▒(A#  /8/E#U  ▖▖▝    ((((( (  ▖▒▒/▒▒▖ 4((/((4  M#            COPY 0((((0  W###RNDW  S▒▒▒▒S  (4#4(   4(▒▖▝   (S#((( 444RND          £ ▘▘▘▘▘▘▘▘████████ COPY        COPY███████ COPY▘▘▘▘▘▘▘███████ COPY▘▘▘▘▘▘▘ COPY█RND4(▒▖▝▘▘▝▖▒(4RND█  ▘Y#===26PI#PIPIPI ##PI#PIPI# 06RNDRNDRND60 ##PIPIPI## ##RND#RNDRND# ##RND#RNDRNDRND 06RNDRND#62 PIPIPI#PIPIPI S(((((S S▒▒▒▒#K ######PI RNDRNDRNDRNDRNDPI# PI##PIPIPIPI PI####PIPI /8PIPIPI8/ ##PI#RNDRNDRND /8PIPIPI8, ##PI###PI WPIRNDW▝PIW #(((((( #6PIPIPI#U PIPI66>=▒ #6INKEY$ INKEY$ ##Q INKEY$ 6=▒=6INKEY$  INKEY$ 6=▒▒▒▒ ZPI▖▒(5#  COPY COPY COPY COPY COPY COPY COPY COPY???? COPY COPY COPY COPY LIST  LIST  LIST  LIST  COPY COPY COPY COPY     COPY COPY COPY COPY COPY COPY COPY COPY???????????? LIST  LIST  LIST  LIST ????    ????#[E]#[E]#[E]#[E] COPY COPY COPY COPY#[E]#[E]#[E]#[E] COPY COPY COPY COPY ======  ##▒(A#  /8/E#U  ▖▖▝     (((( (  ▖▒▒/▒▒▖ 4((/((4  M#            COPY 0((((0  W###RNDW  S▒▒▒▒S  (4#4(   4(▒▖▝   (S#((( 444RND          £ ▘▘▘▘▘▘▘▘████████ COPY        COPY███████ COPY▘▘▘▘▘▘▘███████ COPY▘▘▘▘▘▘▘ COPY█RND4(▒▖▝▘▘▝▖▒(4RND█  ▘Y#===  S▖W#W  RNDRND####   S#RNDRNDS  ▖▖W##W   S##RNDS  04#444   S##W▖S RNDRND####  ( K((S  ▒ /▒▒#K 48CKC8  K((((S   #####   #####   S###S   ####RNDRND  W##W▖▞  GM444   WRNDW▝W  4#448/   ####W   ###C(   ####C   #C(C#   6662▝0  #▒(4#           
REM ##5 S)[(]RND▘ ▞ GOSUB [K]TAN    
PRINT A$;" FONT LOADED.",,,"1. DOWNLOAD ";A$;" FONT.",,,"2. STORE NEWFONT.",,,"3. SAVE CURRENT FONT.",,,"4. STOP",,,,"[E][N][T][E][R]█[N][U][M][B][E][R]"
INPUT A
CLS
IF A<PI/PI OR A>VAL "4" THEN GOTO VAL "10"
GOSUB VAL "1E3*A"
GOTO VAL "10"
RAND USR VAL "16516"
RETURN
RAND USR VAL "18082"
RETURN
PRINT "NAME OF FONT SET?",,,"START TAPE BEFORE HITTING ENTER."
INPUT A$
SAVE A$
CLS
GOTO VAL "10"
STOP
 
REM [C][O][R][E]█[V][3][.][0][0]## GOSUB #                                <> DIM LN F? CLEAR#OUORND[S]C IF TAN LN [M]RNDY2 GOSUB #<>5▟▝TAN  CLEARACS #▚/▖ CLEARACS #LEN LN [M]RND<>5<>RNDTAN  NEXT  CLEARACS  #: NEXT Y▘4▒ CLEARACS #LEN : PRINT Y▘# ( CLEAR▟W4 CLEAR▞"" CLEARACS ##C▝▞[K])4 5 4<>5:INKEY$ /▒)4 ▌ASN 1INKEY$ ;# GOSUB ###[:]"" GOSUB # E£RND) RUN ▙;Y2 GOSUB #Y PRINT ▘▛▝ CLEARACS ##CODE [P]▝LN [>]▝LN 4▝<>5<>RND#[8]▝ PRINT # RETURN,C▝INT / LET TAN  SCROLLLN #? FASTLN LN + LPRINT TAN  SCROLLLN #?#[B]:LN #INKEY$  PRINT LN #INKEY$ 7LN #INKEY$ # LET #TAN  SCROLL RETURN#C▀ RETURN;""6-RNDTAN  TO / PAUSE Y3[)]K▝INT (Y[Z][(]SQR INT 2LN #INKEY$ LN #INKEY$ / INPUT LN #INKEY$ /[H]LN #INKEY$ / SLOW5  6 RETURNZA4##<▘ COPY*Q  GOSUB [K]TAN A ##▞▌ACS 9ACS =( IF ,,▘ 4,,TAN LN [~~]INKEY$ ##ACS ZACS ZACS Z##STR$ LN [J]INKEY$  LET J NEW▛W#TAN LN [>]INKEY$ ##LN #INKEY$ VAL LN #INKEY$ AT LN [J]INKEY$ #TAN 2 COPY/▝2 STR$ LN [*]INKEY$ SGN  GOSUB # UNPLOT ZLN CODE INKEY$ ##?( CLEARACS .*PI▌4▝▞▒▛( CLEAR#TAN Y COPY/▘[J] CLEARACS #[:]MWRNDLN [*]INKEY$ # RETURN,4▛ GOSUB # UNPLOT ZLN [*]INKEY$ ## GOSUB # UNPLOT Z6 UNPLOT ZVAL #[)]-▘K▖ GOSUB #- COPY4▝-  FAST# CLEAR#Y LET [(]2▘K▖ GOSUB #2 COPY4▝2  CLEAR#X#[W]S▞##- /▝2  GOSUB #ZRND84▘96INKEY$ RND#[B]3#A 6#RNDAT VAL Y[Z][(] CLEAR#W CLEARACS ##4▌LN  IF INKEY$ /▀LN 7# CLEAR#INKEY$ ▞  CLEAR###,, CLEAR## GOSUB #ZRND CLEAR#PI GOSUB PIS▛ CLEAR## GOSUB #XRNDAT #▙##▄# CLEARO#UPIRND CLEAR[Y]#4[U]TAN LN #INKEY$ LN 4+ LOAD K LET $[M]H?▖O#[~~]+▞(## FOR 5  ACS TACS 3K▘; FOR D FOR ( POKE TAN Y COPY/▘[J]MWRND CLEARACS #[-]7LN [>]INKEY$ 5[+]▘6#RNDI 6#RND#6INKEY$ RND GOSUB # UNPLOT Z GOSUB ##RND FASTLN #INKEY$  LPRINT #6#RND6#RNDLN #INKEY$ CBLN #INKEY$ LN #INKEY$ M#RNDLN #INKEY$ C;LN #INKEY$ LN AT PI GOSUB ##RND TO LN #INKEY$ LN AT PI CLEARACS #CHR$  GOSUB ##RNDE#RND FASTEINKEY$ RND GOSUB ##RND▞▞ACS EACS .( IF  GOSUB #6INKEY$ RND FOR E#RND▞▞ACS EACS .( IF  GOSUB #6#RND GOSUB ##RNDLN PEEK PIU#RND##ACS +[£] PRINT ACS <[0]MRNDRNDEINKEY$ RND GOSUB ##RNDLN PEEK PIU#RND##ACS +[£]MZRND##ACS <[0]AT # CLEARACS ##C)E#RND#[P]C▞F6#RND/? CLEARACS #[-]Y[Z][(]S▞ CLEAR#WLN  IF INKEY$  LPRINT F#[P]4█TAN  CLEARQX▘LN #INKEY$ COS LN #INKEY$ MXRNDLN #INKEY$ COS LN [>]INKEY$ LN #INKEY$ [S]S▀#INKEY$ #LN ▜INKEY$ #INKEY$ LN ▜INKEY$ #PI GOSUB #YRND[)]W PRINT LN #INKEY$ [S]K▀#INKEY$ # GOSUB #RNDRND[(]W4▘XSGN # GOSUB #PIRND CLEAR#INKEY$  CLEAR#ZLN ▜INKEY$ LN CODE INKEY$ 6#RND CLEAR## CLEAR#RND CLEAR#ZLN ▜INKEY$ LN CODE INKEY$ 6#RND CLEAR##TAN  GOSUB ##RNDE#RND CLEAR##[J]R*( UNPLOT M#RND CLEAR##[J]▌C▖R*( UNPLOT J CLEAR##▌TAN #[A] FOR ##J[A][K]# FOR TAN #VAL ▘4 ##,,#LN ###AT ( LET [J][5]/ SLOWLN ACS #4*) 4544▘ STEP * GOSUB [K]▞4F#( UNPLOT  CLEARPX4 REM TAN LN R# FAST[B] GOSUB # LPRINT C: FASTVAL STR$ LN ##Y COPYSGN AT  LPRINT F/ FOR  CLEAR[A]#LN ## CLEARPX4<>TAN VAL 5  )4 ;( CLEAR FOR E#RND; FASTE#RND;SGN AT TAN #VAL ▘4 ##[B] GOSUB PI#LN ###AT ( LOAD [J]###LN ACS #4*) COPYR5 TO R▘ STEP * GOSUB [S]▞47#( UNPLOT  CLEARPX4 REM TAN LN R#LN [T]# FAST[B] GOSUB # LPRINT C: FASTVAL STR$ LN SQR #Y COPYSGN AT  LPRINT F/ FOR  CLEAR[A]#LN SQR # CLEARPX4 AND TAN LN ACS #4+5 COPYR▞4#[B]ACS -F( CLS[8]4 POKE  CLEARPX4 GOTO TAN LN R##▖U#RNDVAL  PRINT  FASTSTR$ INKEY$ # PRINT  FAST[B] GOSUB # LPRINT C+#[4]# LET #ACS * PRINT #J[A]# LET  PRINT [K]#▞ COPYF/ SLOW#[4]### LET #ACS *[4] PRINT #J[A]# LET [K]#SGN  LPRINT ▘4  FOR ,, FOR ,, LET AT ([Y] CLEARPX4[L]TAN LN ACS #4-5 4[B]▞4ACS 27( CLSYS[W]4 NEXT  CLEARPX4 FOR TAN LN R##▖U#RND FOR VAL  PRINT  FASTSTR$ # PRINT  FAST[B] GOSUB # LPRINT C+#[4]# LET #ACS 3 PRINT #J[A]# LET  PRINT [K]#▞ COPY7/ SLOW#[4]### LET #ACS 3[4] PRINT #J[A]# LET [K]#SGN  LPRINT ▘4  FOR ,, FOR ,, LET AT ([Z] CLEARPX4[L]TAN ###Y[Z][(]STR$ VAL  PRINT LN  IF INKEY$  LET AT SGN TAN 2 COPY/▝2 STR$ LN <>#SGN  CLEAR##UINKEY$ RND5ZRND PRINT  FASTLN  RETURN#+C▞WLN ▖#/ RUN  CLEAR#PI LPRINT  LET F FASTLN  RETURN#+C▞£LN ▖#/ RUN  CLEAR## LPRINT URNDRND PRINT  FASTLN  RETURN#+C▞XLN ▖#/ RUN  CLEAR#PI LPRINT  LET 7LN  RETURN#+COS $LN ▖#/ SAVE ##[A]##J##J[6][N]#)4 ;( LOAD TAN LN ACS #4+5 4▘ /#J#7YS[W]4 RUN  CLEARPX4 GOTO TAN LN R#▖J FAST[B] GOSUB # LPRINT C: FASTVAL STR$ LN ##Y COPYSGN AT  LPRINT F/ REM U#RNDJLN ## CLEARPX4 AND TAN A$( LN [J]INKEY$  FAST TO  FAST5[X]#6-RNDLN 0)AT  GOSUB #-RNDK▝INT 6777# RETURN▝4 PLOT 7#Y""[>]S LOAD 77#Y4[)]S SCROLL77 CLEAR#X▞ SGN TAN LN [>]INKEY$ ##Y4[)]MYRNDLN #INKEY$  SCROLLM[X]# SCROLL RETURN$4SIN ##INKEY$ VAL [J]# FOR  GOSUB PI FOR AT TAN LN  RAND # PRINT LN AT # LET ▞# FASTC0 RETURN,4[E] SCROLL RETURNA▞[A]C£ RETURNO▞[Q]C▞ RETURNX▞[I]4[*]LN #INKEY$ 4 CLS#M## LPRINT UYRNDINKEY$ :4VAL  PRINT STR$ YS[U]4▖SGN -4STR$ ,#>7< CLEARPYATN <#( REM  FOR  LPRINT ,, FOR  LET AT MYRND CLEARPX4 OR TAN Y /▝Y>M[4]#LN  RAND #4[S]LN AT #UYRNDINKEY$ :4VAL  PRINT STR$ YS[U]4▖SGN -4STR$ # PRINT ,# LET >7< CLEARPYATN <#( SCROLL FOR  LPRINT ,, FOR  LET AT MYRND CLEARPX4CHR$ TAN 7# RETURN0K▝INT 1 RETURNGK IF CHR$ 0TAN LN [U]##ACS 4ACS 4ACS 4ACS 4LN [U]#█#7# RETURN"#TAN  SCROLL RETURN"TAB 9#7#ACS #C▝CHR$ RND)  77 FAST▞▒## FOR ;( CLEAR FOR 5 S; FOR  LPRINT TAN LN  STEP #7LN TAN #>4▀## </ POKE ##[B]4## CLEAROY CLEARACS Y#4/7#[B]C LET ACS #4?▞ COPY[B]*S▖ACS // SAVE #J[5][Q]# FOR F CLEARPZ CLEARACS Z#""#[B]4▀#/ LIST ACS #""▞ COPY[B]ACS 3S▖ACS (/ RUN #J[5][Q]#TAN VAL #Y,,[(]#ACS )S▌( IF AT /[P]AT ##ACS ;S/( IF  CLEAR#WLN ## CLEAROY CLEARACS Y#""7 CLEAR#W##/[-] CLEARACS #CHR$ ##VAL ACS ;( UNPLOT AT ** CLEARACS #[-] CLEAR#WVAL Y,,[(]#[J]#ACS >ACS <ACS ▘W( RUN ACS >ACS <ACS ▘WK RUN ACS .ACS ,,XACS .ACS ;X4 RAND #AT Y,,#[(]ACS ;+( CLSACS ,,+K CLS#PIACS <ACS ▘( IF PIACS ;ACS .( IF #TAN LN [~~]INKEY$ VAL  PRINT LN 1+Y▒LN 1+LN R0LN LN +LN [B]:Y▛[)]# GOSUB ##RND LET AT #ACS UACS UACS U5YRND#7#7#LN CODE INKEY$  FASTVAL LN #INKEY$ MINKEY$ RNDLN #INKEY$ LN  STEP ##LN #INKEY$ TAB *# FOR ▘▛ ,,6#RND GOSUB ##RND GOSUB PI6PIRNDAT SGN  CLEARACS #[-] CLEAR##Y▒[)]#/▝:▒STR$ VAL EPIRND#F6PIRNDMWRND CLEARACS ##TAB [A]▝##LN =# CLEARPINKEY$ ASN [A]▝AT  LPRINT [B])4  GOSUB ## RETURN3COS URNDRNDMYRNDMZRND$ FOR 4COS E#RND6PIRND/[Y]LN #INKEY$ ##▘▘COS  CLEARACS V#""( RAND $4 PLOT .#[N]4 INPUT TAN  SCROLL RETURN#4,,LN ,,#LN 0#/K SCROLL RETURN,C> RETURN;CG RETURN#C# RETURNAT C# RETURNTAB C#/# GOSUB # RETURNZ# NEW LIST LEN ( RETURNRNDCODE  FAST#ATN  STEP #/CHR$ #LEN ▒#[J]# GOSUB # RETURNZTAN ▞ COPY SCROLL RETURN#COS  RETURN,4▖Y▖/" RETURN;4LEN ▖# RETURN▀ASN 9#M CLSZ/ SLOW GOSUB # RETURNZ/SGN LN #INKEY$ ## RETURN[T]ABS [▒]INKEY$ # RETURNRNDABS ▙INKEY$  GOSUB # RETURNZ TO /[)]LN #INKEY$  NEWZ GOSUB # RETURNZ[T]#K GOTO Y▒█#/ NEWLN #? CLEARACS ▘#CODE STR$ .LN  SAVE <#[L]C OR ,VAL STR$ LN ##SGN AT <"/ LIST  RETURN""4▖Y"/U PRINT  NEW# RETURNRNDK▛ LET  CLEARACS ▘LEN /G CLEARACS ▘#C~~[J] CLEARACS ▘▚LN [/]#/▖ CLEARACS ▘LEN  LET LN #,,~~ PRINT VAL  NEW#LN [/]#AT ▀ LET  RETURN█S LET  CLEARACS ▘▚[J] GOSUB # RETURNZ PRINT YZ[)]>= STEP #LN 0# LET VAL M#RND[B]*[B]**- ACS >#5 2; FASTACS TLN [J]INKEY$ SGN U CLSZ RETURN▖ASN ;# RETURN▝CPI RETURN▘CEY▒ PRINT STR$ , PRINT U CLSZ[B]4~~ CLEARACS ##C▖ LET J/▘ LET #)4 ;SGN  LET <X4 STEP AT ££ GOSUB # RETURNZTAN U#RND RETURNASINT  RETURN[A]KACS  FAST5 2; FOR  LPRINT /TAB U#RND▛ FAST5 0S LET A,/ GOSUB  CLEARACS ##Y[S]C▝Y[C][S]SQR ## NEW▛▙#VAL ) 45 5ACS SACS SACS S# GOSUB [K]F#( UNPLOT AT TAN ▘ ""LN 0## NEW# PRINT  SCROLLLN 0) AND #$ASN 9#7 FAST▞▌[J]#7( UNPLOT SGN  LET TAN LN AT INKEY$ #?( CLEARLN ##SQR Y▟>TAN LN AT INKEY$ ##LN 4+ FASTLN ## LPRINT LN  PLOT ;#[~~]+LN AT INKEY$ #▞ / REM <>#  PRINT LN  SCROLL▝2"" CLEARACS ##C▝2[K]5 4[J]PEEK  CLSLN #?ABS ▐▒<= CLS*K CLS-4▞▒#<= CLS3K CLS# NEW█PEEK  CLSACS )( PAUSE 7+4 FOR <= CLS3K CLS14PEEK Y▖PEEK  CLS LET  RETURN GOSUB ASN ▛▝#STR$ RNDLN #INKEY$ Y*C▀LN #INKEY$ )  WE RETURNZ FAST GOSUB # RETURNZ GOSUB #£RND< PRINT ▞4,VAL STR$ LN [/]#SGN AT <( PRINT  LET X4 GOSUB  LPRINT 6 RETURNZTAN LN #INKEY$ CATN LN #INKEY$ W PRINT #Y""CHR$ ▒( UNPLOT ## LET /LEN )[(]RNDLN #INKEY$ C>STR$ LN #INKEY$ #LN #INKEY$ ▖SGN ,LEN █><( RAND TAN ▞4[J]><( UNPLOT TAN LN #INKEY$  RETURN4) ▞K▞LN  NEXT ##▛#INT .▘4 ,,# RETURNS**#TAN LN #INKEY$  RETURN4K GOSUB LN #INKEY$ [B]***- #5 Y;6#RND##INKEY$ LN ## GOSUB # UNPLOT ZY[Z][(]K▝CHR$ RND##ACS WACS 1ACS WACS 1ACS WACS 1ACS  GOTO 6 DIM Z#J NEW▛WM#RND) FOR Z GOSUB ##RNDY▒ PRINT #>~~VAL #U#RND RETURN▌S)JLEN ,,[B]##: C:3ACS ;( CLS/▛#[J]ACS )*( CLS[Q]#7<#>#[Q]#FLN ##<AT ▀ LET X4SIN TAN LN #INKEY$ TAB *#E DIM Z) FOR Z▞▒VAL ,#7<,#LN ##F<AT ( LET TAN  CLEARACS #EXP LN ## TO  RETURN,4▞LN █#LN #INKEY$ E UNPLOT Z[B] GOSUB PICOS #FPIVAL LN #?ABS [▒]▒5ORND##[S]C UNPLOT  CLEAR[-] CONT M#RNDLN  LOAD #AT LN ▜#U#RND CLEAR[Y]O4 CLSTAN LN #INKEY$ Y C▀LN #INKEY$ M CONT ZTAN  GOSUB # UNPLOT Z# RETURN COPY4▖▞[Z]/▞ RETURN""4▝▞ Y[Z][(] GOSUB # UNPLOT ZTAN LN  IF INKEY$ )[4] .#[N]4 CLSTAN LN [~~]INKEY$  GOSUB # UNPLOT ZLN #INKEY$ M## CLEARACS #CHR$ LN ##VAL  PRINT LN CODE INKEY$ #2 COPY LET AT STR$ VAL  PRINT LN ## LET AT LN ##SGN #E9RND##GC THENLN [X]▛#:£)VAL ##M# CLEARACS #CHR$ /ATN  CLEARQW COPY CLEARACS #[-]/TAB  CLEARQW / POKE  CLEARO CLEAR CLEARP UNPLOT LN ## CLEAR#W CLEARACS ##4[E]LN  IF INKEY$ /[9] CLEARO CLEAR/ REM  CLEARO UNPLOT / PLOT  CLEARO UNPLOT / STEP  CLEARP CLEAR/ PLOT  CLEARP CLEAR/CHR$  CLEARP UNPLOT / PLOT  CLEARP UNPLOT /ATN    TO  RETURN;CM RETURN#C▝INT + LPRINT ▘  ##  TO  RETURN THENC▝INT ) FAST SCROLL);#STR$ :(),#▞  FOR  GOSUB [5]C▌77 REM P##7# FOR VAL TAN SGN ):#STR$ :?) FOR # SCROLL# SCROLL RETURN#CSQR  RETURN;4 RUN F#7 RETURN$C▘#/INT :▌)[.]#F#7/VAL :▖)[G]#/ POKE FF#77:▀)[U]#/[M]YX:  GOSUB [T]77#:▀)[(]#/[6]C GOTO PID=PIR>#9#D##E DIM #M▛#P##S##9#D NEW#LD#R[<]#U##9#G##P0#S##9#C[W]#DTAB #EATN #R##1ABS #2 INPUT #3 SAVE #4▝#5▛#6 CLEAR#7 DIM #8 NEXT #[:]#X█#A##B OR INKEY$ C CONT PID(PIF CONT #I##L▚#P##R:#S##T##U▖#W##$##9# LPRINT ## LLIST :# SCROLL## LOAD [L]# LIST >=# PAUSE [)]# PRINT [D]# PLOT  FOR INKEY$  RUN ACS RND SAVE =# RAND 8# CLS[0]INKEY$  UNPLOT  LOAD INKEY$  CLEARSGN RND RETURN[Z]RND COPY[:]#9#                   
REM  FAST SAVE  LOAD ##▞▛ACS 5>=[;]#USR [▒]#Y▀X4 CLEAR GOSUB #▌TAB ##ACS 5>=[;]#USR [▒]#TAN <= RETURNY,X4 CLEARPEEK  COPYY>X4 CLEAR#[H]##[0]#<= RETURNYDX4 CLEARPEEK  COPYY4X4 CLEARF7RTAN ▘ █VAL  LN ##AT ▌TAB [L]#▀ GOSUB #LN ##LN  GOSUB #$LN ## CLEAR FAST LET #:[E]LN ##LN  GOSUB ##LN ##LN  GOSUB ##LN ## CLEAR FAST LET ##LN ##7.#[N]4 PLOT   TAN LN  SCROLL▝76-RNDLN #? FASTLN  SAVE < LPRINT 7#[K]C: RETURN5K~~# RETURNSCOS  RETURNVCOS  RETURNPCOS INT 0LN  LIST # PRINT ##VAL ) ▝LN [-]#SGN LN [I]# LET E=RND RETURNS4▛5 4##/( RETURNP4▌),,RND/▖ GOSUB #(RND GOSUB # FOR LN [I]##▛▝<= RETURN*S CLS: £<= RETURN*K IF #LEN  SCROLLACS <TAN 2 ▞▒LN ##( CLSTAN - =PEEK  COPY# RETURNRNDK)2 LN ##LN #?ABS [▒]▒#[B]4 SCROLL/ SCROLL2 PEEK  COPYLN ###[B]C PRINT LN ##04CHR$ LN ### RETURN[E]4EXP LN ###LN ##STR$ PEEK  COPYLN ###SGN 7.#[N]4 PAUSE TAN  FASTLN  LIST # PRINT STR$ VAL 5WRND FASTLN ##AT [J] GOSUB PIAT  GOSUB PISGN C,,-▝LN [-]# LET  LPRINT / TO 5WRND,[Y]4 LIST 7<"#[L]4 PRINT  LET  LPRINT  RETURNS4,,5 4LN ###▛▝ RETURNV4>E(RNDLN ##FLN [1]=SGN  LPRINT LN ▛▝##▞5,,RND/ GOTO 
REM [6][4][-][C][O][L] PRINT ## LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST WWWW LIST  LIST  LIST  LIST #### LIST  LIST  LIST  LIST ???? LIST  LIST  LIST  LIST  LIST  LIST  LIST  LIST WWWWWWWWWWWW####WWWW????WWWW#[9]#[9]#[9]#[9] LIST  LIST  LIST  LIST #[9]#[9]#[9]#[9] LIST  LIST  LIST  LIST  ##RND RNDRNDRND [4]E##[:][E]  ##[▒]#▙## RND8  ▖   ##PI# #  6##CODE #PI4 ▜PIPI#PI#█ ▒▖#[8]▒   ▝▖▒▖▝  LIST  ##RND#RND#  #USR [Y]▜#   #4I44#  E# INPUT #E   ▙▙##CC  RND[8]RNDRND#▖▒ RND█  ▖▖▒     £# (-,,,,0(█▜[£]▜▜▜[:]█ LIST ▖~~▝▖▒:  LIST [:]▙▜▙[~~]▜█ LIST >-,2>>(█[:][▒][£]▙[~~]▜ LIST (=/0,,= LIST █[:]PIPI8C/((=E8##▜█ ▖[~~] IF [A][6][8]  RND[8][6] NEW[E][A]  COS [C]ATN [E][E]ATN   #▜[~~][▒][▒]#  TAB [6][A][E][E]LEN    STEP ▜ASN [:][▒] NEW   LLIST ▜EXP ▜▜▜  RND[8][~~][E][A]#£ [C][C] GOTO [E][E][E]   SLOWRND### SLOW  #4A6[6]#▖ [C][C]ASN ATN [E][E]  ▜▜▜▜▜ LLIST   [4] REM  INPUT [I][E][E]  ""[G][E][E][E][E]  RND[8][E][E][E]#  ""[G][E]ASN [£][▒]▒ RND[A][E][E][A]PI7 ""[G][E]COS [C][C]  #▚#86ATN    SLOW####PI  [4][E][E][E][E]#  [4][E][E][E]##  [4][E][E][E] INPUT [E]  [4][E]##[E][E]  [4][E]##PIPI▖  STEP IPI#[▒] INPUT   FAST5;N; FOR  LPRINT U#RND NEW█U RETURNZ?▞▒VAL  PRINT ,#CGS0 NEW LIST  PRINT # NEW?# LET [K]#<STR$ )4 ;SGN  LET AT ( STOPAT £ GOSUB # RETURNZTAN ACS ZACS ZACS ZACS Z PRINT # NEW LIST />=S~~ACS BACS BACS BACS B/ATN  NEW?/ REM 
SAVE "SANSBOL[D]"
REM [B][O][L][D]█[A][S]█[B][R][A][Z][X][.][.][.]
REM FOR SHR-EB V3
REM 
LET HR=20000
REM 
REM (FOR V2 OF SHR-EB)          LET HR=19400
CLS
SLOW
PRINT "PRESS H TO VIEW HI-RES,","PRESS L TO VIEW ""NORMAL""",,,"""ENTER"" TO  STOP"
IF USR HR THEN CLS
GOSUB 9000
FAST
CLS
POKE 16418,0
IF USR HR THEN PRINT ;;;;
PRINT 
PRINT "~~";CHR$ 11;"£$:?()><=+-*/;,."
PRINT 
PRINT "0 1 2 3 4 5 6 7 8 9"
PRINT 
PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
PRINT 
PRINT "["][£][$][:][?][(][)][>][<][=][+][-][*][/][;][,][.]"
PRINT 
PRINT "[0][1][2][3][4][5][6][7][8][9]"
PRINT 
PRINT "[A][B][C][D][E][F][G][H][I][J][K][L][M][N][O][P][Q][R][S][T][U][V][W][X][Y][Z]"
PRINT "[<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<]"
PRINT 
PRINT "~~T[H][E] [Q][U][I][C][K] [B][R][O][W][N] [F][O][X][E][S] [J][U][M][P][E][D]","[O][V][E][R] [T][H][E] [L][A][Z][Y] [D][O][G].";CHR$ 11
PRINT 
PRINT "[:]THE QUICK BROWN FOXES JUMPED","OVER THE LAZY DOG.[,]"
PRINT 
PRINT "E=[M]*[C][2] 2[;]16=65536  2H O [*]2H + O "
PRINT "                     [2]     [2]   [2]"
PRINT "V [>] [=] SIN([T]) * EXP(-[K]/[T]) + V [-]";TAB 28;"[0]"
IF USR HR THEN LIST 
SLOW
IF INKEY$ ="H" THEN IF USR HR THEN RUN 
IF INKEY$ ="L" THEN IF USR HR THEN RETURN
IF INKEY$ <>CHR$ 118 THEN GOTO 270
IF USR HR THEN RETURN
STOP
REM [S][A][N][S][-][S][E][R][I][F]█[B][O][L][D]
IF USR HR THEN LPRINT UDG;" ","00,00,00,00,00,00,00,00"
IF USR HR THEN LPRINT UDG;"~~","6C,6C,48,24,00,00,00,00""36,36,12,24,00,00,00,00"
IF USR HR THEN LPRINT UDG;"£","6C,6C,FE,6C,6C,FE,6C,6C,00"
IF USR HR THEN LPRINT UDG;"$","10,7C,D0,7C,16,7C,10,00"
IF USR HR THEN LPRINT UDG;":","00,00,18,18,00,18,18,00"
IF USR HR THEN LPRINT UDG;"?","7C,CE,CC,18,18,00,18,00"
IF USR HR THEN LPRINT UDG;"(","0C,18,30,30,30,18,0C,00"
IF USR HR THEN LPRINT UDG;")";"30,18,0C,0C,0C,18,30,00"
IF USR HR THEN LPRINT UDG;">";"60,30,18,0C,18,30,60,00"
IF USR HR THEN LPRINT UDG;"<";"0C,18,30,60,30,18,0C,00"
IF USR HR THEN LPRINT UDG;"=";"00,7C,7C,00,7C,7C,00,00"
IF USR HR THEN LPRINT UDG;"+";"00,18,18,7E,7E,18,18,00"
IF USR HR THEN LPRINT UDG;"-";"00,00,00,7C,7C,00,00,00"
IF USR HR THEN LPRINT UDG;"*","00,6C,38,FE,38,6C,00,00"
IF USR HR THEN LPRINT UDG;"/","02,06,0C,18,30,60,C0,00"
IF USR HR THEN LPRINT UDG;";","00,18,18,00,18,18,08,10"
IF USR HR THEN LPRINT UDG;",","00,00,00,00,18,18,08,10"
IF USR HR THEN LPRINT UDG;".","00,00,00,10,38,38,10,00"
IF USR HR THEN LPRINT UDG;"0","7C,C6,CE,D6,E6,C6,7C,00"
IF USR HR THEN LPRINT UDG;"1","18,38,78,18,18,18,7E,00"
IF USR HR THEN LPRINT UDG;"2","7C,C6,06,0C,38,60,FE,00"
IF USR HR THEN LPRINT UDG;"3","7C,C6,06,1C,06,C6,7C,00"
IF USR HR THEN LPRINT UDG;"4","0C,1C,3C,6C,FE,0C,0C,00"
IF USR HR THEN LPRINT UDG;"5","FE,C0,FC,06,06,C6,7C,00"
IF USR HR THEN LPRINT UDG;"6","1C,30,60,7C,C6,C6,7C,00"
IF USR HR THEN LPRINT UDG;"7","FE,06,0C,18,30,30,30,00"
IF USR HR THEN LPRINT UDG;"8","7C,C6,C6,7C,C6,C6,7C,00"
IF USR HR THEN LPRINT UDG;"9","7C,C6,C6,7C,0C,18,70,00"
IF USR HR THEN LPRINT UDG;"A","38,6C,C6,FE,C6,C6,C6,00"
IF USR HR THEN LPRINT UDG;"B","FC,C6,C6,FC,C6,C6,FC,00"
IF USR HR THEN LPRINT UDG;"C","3C,66,C0,C0,C0,66,3C,00"
IF USR HR THEN LPRINT UDG;"D","F8,CC,C6,C6,C6,CC,F8,00"
IF USR HR THEN LPRINT UDG;"E","FE,C0,C0,F8,C0,C0,FE,00"
IF USR HR THEN LPRINT UDG;"F","FE,C0,C0,FC,C0,C0,C0,00"
IF USR HR THEN LPRINT UDG;"G","3C,66,C0,CE,C6,66,3C,00"
IF USR HR THEN LPRINT UDG;"H","C6,C6,C6,FE,C6,C6,C6,00"
IF USR HR THEN LPRINT UDG;"I","3C,18,18,18,18,18,3C,00"
IF USR HR THEN LPRINT UDG;"J","3E,0C,0C,0C,8C,CC,78,00"
IF USR HR THEN LPRINT UDG;"K","C6,CC,D8,F0,D8,CC,C6,00"
IF USR HR THEN LPRINT UDG;"L","C0,C0,C0,C0,C0,C0,FE,00"
IF USR HR THEN LPRINT UDG;"M","82,C6,FE,D6,C6,C6,C6,00"
IF USR HR THEN LPRINT UDG;"N","86,C6,E6,F6,DE,CE,C6,00"
IF USR HR THEN LPRINT UDG;"O","38,6C,C6,C6,C6,6C,38,00"
IF USR HR THEN LPRINT UDG;"P","FC,C6,C6,FC,C0,C0,C0,00"
IF USR HR THEN LPRINT UDG;"Q","38,6C,C6,C6,D6,6C,3E,00"
IF USR HR THEN LPRINT UDG;"R","FC,C6,C6,FC,D8,CC,C6,00"
IF USR HR THEN LPRINT UDG;"S","7C,C6,C0,7C,06,C6,7C,00"
IF USR HR THEN LPRINT UDG;"T","FE,18,18,18,18,18,18,00"
IF USR HR THEN LPRINT UDG;"U","C6,C6,C6,C6,C6,6E,3A,00"
IF USR HR THEN LPRINT UDG;"V","C6,C6,C6,C6,6C,38,10,00"
IF USR HR THEN LPRINT UDG;"W","C6,C6,C6,D6,D6,FE,44,00"
IF USR HR THEN LPRINT UDG;"X","42,66,3C,18,3C,66,42,00"
IF USR HR THEN LPRINT UDG;"Y","42,42,66,3C,18,18,18,00"
IF USR HR THEN LPRINT UDG;"Z","FE,06,0C,38,60,C0,FE,00"
IF USR HR THEN LPRINT UDG;"["]","18,18,18,00,18,18,18,00"
IF USR HR THEN LPRINT UDG;"[£]","E6,AC,F8,38,3E,6A,CE,00"
IF USR HR THEN LPRINT UDG;"[$]","38,6C,38,7A,CC,CE,7A,00"
IF USR HR THEN LPRINT UDG;"[:]","18,18,10,08,00,00,00,00"
IF USR HR THEN LPRINT UDG;"[?]","10,38,38,38,10,00,10,10"
IF USR HR THEN LPRINT UDG;"[(]","1C,30,18,70,18,30,1C,00"
IF USR HR THEN LPRINT UDG;"[)]","70,18,30,1C,30,18,70,00"
IF USR HR THEN LPRINT UDG;"[>]","00,00,71,DB,8E,00,00,00"
IF USR HR THEN LPRINT UDG;"[<]","00,00,00,00,00,00,FE,FE"
IF USR HR THEN LPRINT UDG;"[=]","1E,18,18,18,18,18,1E,00"
IF USR HR THEN LPRINT UDG;"[+]","78,CC,DC,DC,DA,C6,7C,00"
IF USR HR THEN LPRINT UDG;"[-]","78,18,18,18,18,18,78,00"
IF USR HR THEN LPRINT UDG;"[*]","18,30,60,FE,60,30,18,00"
IF USR HR THEN LPRINT UDG;"[/]","80,C0,60,30,18,0C,06,00"
IF USR HR THEN LPRINT UDG;"[;]","10,38,7C,D6,10,10,10,00"
IF USR HR THEN LPRINT UDG;"[,]","18,18,08,10,00,00,00,00"
IF USR HR THEN LPRINT UDG;"[.]","10,38,6C,C6,6C,38,10,00"
IF USR HR THEN LPRINT UDG;"[0]","1C,2C,24,34,38,00,00,00"
IF USR HR THEN LPRINT UDG;"[1]","08,18,08,08,1C,00,00,00"
IF USR HR THEN LPRINT UDG;"[2]","3C,24,08,10,3C,00,00,00"
IF USR HR THEN LPRINT UDG;"[3]","3C,0C,18,0C,3C,00,00,00"
IF USR HR THEN LPRINT UDG;"[4]","20,28,3C,08,08,00,00,00"
IF USR HR THEN LPRINT UDG;"[5]","3C,20,38,0C,38,00,00,00"
IF USR HR THEN LPRINT UDG;"[6]","1C,20,3C,36,1C,00,00,00"
IF USR HR THEN LPRINT UDG;"[7]","3C,0C,18,10,10,00,00,00"
IF USR HR THEN LPRINT UDG;"[8]","1C,36,1C,36,1C,00,00,00"
IF USR HR THEN LPRINT UDG;"[9]","1C,36,1E,06,1C,00,00,00"
IF USR HR THEN LPRINT UDG;"[A]","00,00,7A,CE,CE,CE,7A,00"
IF USR HR THEN LPRINT UDG;"[B]","C0,C0,FC,C6,C6,C6,FC,00"
IF USR HR THEN LPRINT UDG;"[C]","00,00,7C,C6,C0,C6,7C,00"
IF USR HR THEN LPRINT UDG;"[D]","06,06,7E,C6,C6,C6,7E,00"
IF USR HR THEN LPRINT UDG;"[E]","00,00,7C,CE,F8,E2,7C,00"
IF USR HR THEN LPRINT UDG;"[F]","1C,36,30,7C,30,30,30,00"
IF USR HR THEN LPRINT UDG;"[G]","00,00,7E,C6,C6,7E,06,7C"
IF USR HR THEN LPRINT UDG;"[H]","C0,C0,C0,FC,CE,C6,C6,00"
IF USR HR THEN LPRINT UDG;"[I]","18,18,00,18,18,18,18,00"
IF USR HR THEN LPRINT UDG;"[J]","0C,0C,00,0C,0C,0C,6C,38"
IF USR HR THEN LPRINT UDG;"[K]","C0,CC,D8,F0,F8,CC,C6,00"
IF USR HR THEN LPRINT UDG;"[L]","38,18,18,18,18,18,3C,00"
IF USR HR THEN LPRINT UDG;"[M]","00,00,EC,FE,D6,D6,C6,00"
IF USR HR THEN LPRINT UDG;"[N]","00,00,DC,FE,E6,C6,C6,00"
IF USR HR THEN LPRINT UDG;"[O]","00,00,7C,C6,C6,C6,7C,00"
IF USR HR THEN LPRINT UDG;"[P]","00,00,FC,C6,C6,FC,C0,C0"
IF USR HR THEN LPRINT UDG;"[Q]","00,00,7E,C6,C6,7E,06,06,06"
IF USR HR THEN LPRINT UDG;"[R]","00,00,DC,F6,E0,C0,C0,00"
IF USR HR THEN LPRINT UDG;"[S]","00,00,7C,E0,7C,0E,7C,00"
IF USR HR THEN LPRINT UDG;"[T]","30,30,FE,30,30,36,1C,00"
IF USR HR THEN LPRINT UDG;"[U]","00,00,C6,C6,CE,FE,76,00"
IF USR HR THEN LPRINT UDG;"[V]","00,00,C6,C6,6C,38,10,00"
IF USR HR THEN LPRINT UDG;"[W]","00,00,C6,D6,D6,FE,44,00"
IF USR HR THEN LPRINT UDG;"[X]","00,00,66,3C,18,3C,66,00"
IF USR HR THEN LPRINT UDG;"[Y]","00,00,C6,C6,C6,7E,06,7C"
IF USR HR THEN LPRINT UDG;"[Z]";"00,00,FE,0C,38,60,FE,00"
RETURN
SAVE "A:BOLDFONT,P"
LIST 8999
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.