--- title: "Fontkit for WRX16" id: 51426 type: "computer_media" slug: "fontkit-for-wrx16" url: "http://localhost/computer_media/fontkit-for-wrx16/" markdown_url: "http://localhost/computer_media/fontkit-for-wrx16.md" published_at: "2023-07-31T12:10:09+00:00" modified_at: "2026-04-04T20:18:06+00:00" author: "David Anderson" featured_image: url: "http://localhost/wp-content/uploads/2019/02/20230809-041332.jpg" excerpt: "A multi-font toolkit delivering bold, gothic, fancy, and even proportional high-resolution typefaces, all loaded via BASIC." category: - name: "Archived Media" slug: "archived-media" taxonomy: "category" url: "http://localhost/category/archived-media/" post_tag: - name: "Downloadable" slug: "downloadable" taxonomy: "post_tag" url: "http://localhost/tag/downloadable/" - name: "TS 1000" slug: "ts1000" taxonomy: "post_tag" url: "http://localhost/tag/ts1000/" model: - name: "Timex/Sinclair 1000" slug: "ts-1000" taxonomy: "model" url: "http://localhost/model/ts-1000/" indiv: - name: "Fred Nachbaur" slug: "fred-nachbaur" taxonomy: "indiv" url: "http://localhost/indiv/fred-nachbaur/" - name: "Gregory Harder" slug: "gregory-harder" taxonomy: "indiv" url: "http://localhost/indiv/gregory-harder/" genre: - name: "Font" slug: "font" taxonomy: "genre" url: "http://localhost/type/font/" media_type: "Cassette" programmers: - name: "Fred Nachbaur" slug: "fred-nachbaur" taxonomy: "indiv" url: "http://localhost/indiv/fred-nachbaur/" - name: "Gregory Harder" slug: "gregory-harder" taxonomy: "indiv" url: "http://localhost/indiv/gregory-harder/" download_url: "https://archive.org/download/timex-sinclair-software-archive/Hi-res%20Font%20Kit%20%281986%29%28Harder%2C%20Greg%20and%20Nachbaur%2C%20Fred%29%28US%29%28TS1000%29%28Fonts%29.zip" mediadate: "1986" images: - url: "http://localhost/wp-content/uploads/2023/07/SCR-20260404-dryg.png" article_media: - id: 44883 title: "The “Sincfont”" type: "article" url: "http://localhost/article/the-sincfont/" related_products: - id: 50674 title: "Fonts for WRX16" type: "product" url: "http://localhost/product/fonts/" media_type_tags: "Font" --- Fontkit for WRX16 is a collection of high-resolution custom font sets designed for use with the WRX16 software and [SHREB](http://localhost/computer_media/sram-hi-res-extended-basic/). 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$(…)`. ## Source Code ``` 0 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# 1 REM ##5 S)[(]RND▘ ▞ GOSUB [K]TAN 10 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]" 20 INPUT A 30 CLS 40 IF AVAL "4" THEN GOTO VAL "10" 50 GOSUB VAL "1E3*A" 60 GOTO VAL "10" 1000 RAND USR VAL "16516" 1010 RETURN 2000 RAND USR VAL "18082" 2010 RETURN 3000 PRINT "NAME OF FONT SET?",,,"START TAPE BEFORE HITTING ENTER." 3010 INPUT A$ 3020 SAVE A$ 3030 CLS 3040 GOTO VAL "10" 4000 STOP 0 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▀## ACS ACS 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 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 ###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# 1 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 E(RNDLN ##FLN [1]=SGN LPRINT LN ▛▝##▞5,,RND/ GOTO 2 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]#=S~~ACS BACS BACS BACS B/ATN NEW?/ REM 10 REM [A]█[T][O][U][C][H]█[O][F]█[C][L][A][Z][X][.][.][.] 11 REM FOR SHR-EB V3 14 REM 15 LET HR=20000 16 REM 17 REM (FOR V2 OF SHR-EB) LET HR=19400 20 CLS 21 SLOW 22 PRINT "PRESS H TO VIEW HI-RES,","PRESS L TO VIEW ""NORMAL""",,,"""ENTER"" TO STOP" 30 IF USR HR THEN CLS 100 GOSUB 8000 102 FAST 105 CLS 107 POKE 16418,0 110 IF USR HR THEN PRINT ;;;; 115 PRINT 120 PRINT "~~";CHR$ 11;"£$:?()><=+-*/;,." 125 PRINT 130 PRINT "0 1 2 3 4 5 6 7 8 9" 135 PRINT 140 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 150 PRINT 160 PRINT "["][£][$][:][?][(][)][>][<][=][+][-][*][/][;][,][.]" 165 PRINT 170 PRINT "[0][1][2][3][4][5][6][7][8][9]" 175 PRINT 180 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]" 183 PRINT "[<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<]" 185 PRINT 190 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 195 PRINT 200 PRINT "[:]THE QUICK BROWN FOXES JUMPED","OVER THE LAZY DOG.[,]" 205 PRINT 210 PRINT "E=[M]*[C][2] 2[;]16=65536 2H O [*]2H + O " 220 PRINT " [2] [2] [2]" 230 PRINT "V [>] [=] SIN([T]) * EXP(-[K]/[T]) + V [-]";TAB 28;"[0]" 250 IF USR HR THEN LIST 260 SLOW 270 IF INKEY$ ="H" THEN IF USR HR THEN RUN 280 IF INKEY$ ="L" THEN IF USR HR THEN RETURN 290 IF INKEY$ <>CHR$ 118 THEN GOTO 270 295 IF USR HR THEN RETURN 300 STOP 7999 REM [E][L][I][T][E]█[G][O][T][H][I][C] 8000 IF USR HR THEN LPRINT UDG;" ","00,00,00,00,00,00,00,00" 8010 IF USR HR THEN LPRINT UDG;"~~","00,6C,48,24,00,00,00,00""00,36,12,24,00,00,00,00" 8012 IF USR HR THEN LPRINT UDG;"£","00,24,7E,24,24,7E,24,00" 8013 IF USR HR THEN LPRINT UDG;"$","00,10,38,50,38,14,38,10" 8014 IF USR HR THEN LPRINT UDG;":","00,00,00,18,00,00,18,00" 8015 IF USR HR THEN LPRINT UDG;"?","00,3C,42,04,18,00,18,00" 8016 IF USR HR THEN LPRINT UDG;"(","00,04,08,08,08,08,04,00" 8017 IF USR HR THEN LPRINT UDG;")","00,20,10,10,10,10,20,00" 8018 IF USR HR THEN LPRINT UDG;">","00,00,10,08,04,08,10,00" 8019 IF USR HR THEN LPRINT UDG;"<";"00,00,04,08,10,08,04,00" 8020 IF USR HR THEN LPRINT UDG;"=";"00,00,00,3E,00,3E,00,00" 8021 IF USR HR THEN LPRINT UDG;"+","00,00,10,10,7C,10,10,00" 8022 IF USR HR THEN LPRINT UDG;"-","00,00,00,00,3E,00,00,00" 8023 IF USR HR THEN LPRINT UDG;"*","00,00,28,10,7C,10,28,00" 8024 IF USR HR THEN LPRINT UDG;"/","00,02,04,08,10,20,40,00" 8025 IF USR HR THEN LPRINT UDG;";","00,00,00,18,00,18,08,10" 8026 IF USR HR THEN LPRINT UDG;",","00,00,00,00,00,18,08,10" 8027 IF USR HR THEN LPRINT UDG;".","00,00,00,00,00,18,18,00" 8028 IF USR HR THEN LPRINT UDG;"0","00,3C,46,4A,52,62,3C,00" 8029 IF USR HR THEN LPRINT UDG;"1","00,10,30,50,10,10,7C,00" 8030 IF USR HR THEN LPRINT UDG;"2","00,38,64,04,18,22,7E,00" 8031 IF USR HR THEN LPRINT UDG;"3","00,3C,62,0C,02,62,3C,00" 8032 IF USR HR THEN LPRINT UDG;"4","00,08,18,28,4A,FE,08,00" 8033 IF USR HR THEN LPRINT UDG;"5","00,7E,40,7C,02,62,3C,00" 8034 IF USR HR THEN LPRINT UDG;"6","00,18,10,20,7C,42,3C,00" 8035 IF USR HR THEN LPRINT UDG;"7","00,7E,44,08,10,10,38,00" 8036 IF USR HR THEN LPRINT UDG;"8","00,3C,42,3C,42,42,3C,00" 8037 IF USR HR THEN LPRINT UDG;"9","00,3C,42,3E,04,08,18,00" 8038 IF USR HR THEN LPRINT UDG;"A","00,18,24,42,7E,42,E7,00" 8039 IF USR HR THEN LPRINT UDG;"B","00,7C,22,3C,22,22,7C,00" 8040 IF USR HR THEN LPRINT UDG;"C","00,3C,46,40,40,46,3C,00" 8041 IF USR HR THEN LPRINT UDG;"D","00,F8,44,42,42,44,F8,00" 8042 IF USR HR THEN LPRINT UDG;"E","00,FE,42,78,40,42,FE,00" 8043 IF USR HR THEN LPRINT UDG;"F","00,FE,42,70,40,40,E0,00" 8044 IF USR HR THEN LPRINT UDG;"G","00,7C,86,80,9E,84,7C,00" 8045 IF USR HR THEN LPRINT UDG;"H","00,EE,44,7C,44,44,EE,00" 8046 IF USR HR THEN LPRINT UDG;"I","00,7C,10,10,10,10,7C,00" 8047 IF USR HR THEN LPRINT UDG;"J","00,3E,04,04,C4,44,38,00" 8048 IF USR HR THEN LPRINT UDG;"K","00,E6,48,70,50,48,E6,00" 8049 IF USR HR THEN LPRINT UDG;"L","00,70,20,20,20,22,7E,00" 8050 IF USR HR THEN LPRINT UDG;"M","00,C6,6C,54,44,44,EE,00" 8051 IF USR HR THEN LPRINT UDG;"N","00,CE,64,54,4C,44,E6,00" 8052 IF USR HR THEN LPRINT UDG;"O","00,7C,42,42,42,42,3E,00" 8053 IF USR HR THEN LPRINT UDG;"P","00,FC,42,42,7C,40,F0,00" 8054 IF USR HR THEN LPRINT UDG;"Q","00,7C,42,42,4A,46,3E,00" 8055 IF USR HR THEN LPRINT UDG;"R","00,FC,42,7C,48,44,E7,00" 8056 IF USR HR THEN LPRINT UDG;"S","00,3C,40,3C,02,62,3C,00" 8057 IF USR HR THEN LPRINT UDG;"T","00,FE,92,10,10,10,38,00" 8058 IF USR HR THEN LPRINT UDG;"U","00,EE,44,44,44,44,38,00" 8059 IF USR HR THEN LPRINT UDG;"V","00,EE,44,44,44,28,10,00" 8060 IF USR HR THEN LPRINT UDG;"W","00,EE,44,54,54,6C,44,00" 8061 IF USR HR THEN LPRINT UDG;"X","00,EE,28,10,10,28,EE,00" 8062 IF USR HR THEN LPRINT UDG;"Y","00,EE,44,28,10,10,38,00" 8063 IF USR HR THEN LPRINT UDG;"Z","00,7E,44,08,12,22,7E,00" 8139 IF USR HR THEN LPRINT UDG;"["]","00,10,10,10,00,10,10,10" 8140 IF USR HR THEN LPRINT UDG;"[£]","00,40,A4,48,10,24,4A,04" 8141 IF USR HR THEN LPRINT UDG;"[$]","00,10,28,10,2A,44,3A,00" 8142 IF USR HR THEN LPRINT UDG;"[:]","00,18,10,08,00,00,00,00" 8143 IF USR HR THEN LPRINT UDG;"[?]","00,10,10,10,10,00,10,00" 8144 IF USR HR THEN LPRINT UDG;"[(]","00,0E,10,08,30,08,10,0E" 8145 IF USR HR THEN LPRINT UDG;"[)]","00,70,08,10,0C,10,08,70" 8146 IF USR HR THEN LPRINT UDG;"[>]","00,00,00,60,92,0C,00,00" 8147 IF USR HR THEN LPRINT UDG;"[<]","00,00,00,00,00,00,00,FE" 8148 IF USR HR THEN LPRINT UDG;"[=]","00,0E,08,08,08,08,0E,00" 8149 IF USR HR THEN LPRINT UDG;"[+]","00,38,44,58,5A,42,3C,00" 8150 IF USR HR THEN LPRINT UDG;"[-]","00,70,10,10,10,10,70,00" 8151 IF USR HR THEN LPRINT UDG;"[*]","00,10,20,40,FE,40,20,10" 8152 IF USR HR THEN LPRINT UDG;"[/]","00,C0,60,30,18,0C,06,00" 8153 IF USR HR THEN LPRINT UDG;"[;]","00,10,38,54,10,10,10,00" 8154 IF USR HR THEN LPRINT UDG;"[,]","00,18,08,10,00,00,00,00" 8155 IF USR HR THEN LPRINT UDG;"[.]","00,10,28,44,82,44,28,10" 8156 IF USR HR THEN LPRINT UDG;"[0]","1C,2C,24,34,38,00,00,00" 8157 IF USR HR THEN LPRINT UDG;"[1]","08,18,08,08,1C,00,00,00" 8158 IF USR HR THEN LPRINT UDG;"[2]","18,24,08,10,3C,00,00,00" 8159 IF USR HR THEN LPRINT UDG;"[3]","38,04,18,04,38,00,00,00" 8160 IF USR HR THEN LPRINT UDG;"[4]","20,28,3C,08,08,00,00,00" 8161 IF USR HR THEN LPRINT UDG;"[5]","3C,20,38,04,38,00,00,00" 8162 IF USR HR THEN LPRINT UDG;"[6]","18,20,38,24,18,00,00,00" 8163 IF USR HR THEN LPRINT UDG;"[7]","3C,24,08,10,10,00,00,00" 8164 IF USR HR THEN LPRINT UDG;"[8]","18,24,18,24,18,00,00,00" 8165 IF USR HR THEN LPRINT UDG;"[9]","18,24,1C,04,18,00,00,00" 8166 IF USR HR THEN LPRINT UDG;"[A]","00,00,00,3E,42,42,3F,00" 8167 IF USR HR THEN LPRINT UDG;"[B]","00,60,20,3C,22,22,7C,00" 8168 IF USR HR THEN LPRINT UDG;"[C]","00,00,00,3C,46,40,3C,00" 8169 IF USR HR THEN LPRINT UDG;"[D]","00,0E,04,3C,44,44,3E,00" 8170 IF USR HR THEN LPRINT UDG;"[E]","00,00,00,24,7E,40,3C,00" 8171 IF USR HR THEN LPRINT UDG;"[F]","00,1C,26,20,78,20,70,00" 8172 IF USR HR THEN LPRINT UDG;"[G]","00,00,00,3E,44,3C,84,78" 8173 IF USR HR THEN LPRINT UDG;"[H]","00,C0,40,78,44,44,EE,00" 8174 IF USR HR THEN LPRINT UDG;"[I]","00,18,00,38,08,08,3E,00" 8175 IF USR HR THEN LPRINT UDG;"[J]","00,18,00,38,08,08,48,30" 8176 IF USR HR THEN LPRINT UDG;"[K]","00,C0,48,50,70,48,E6,00" 8177 IF USR HR THEN LPRINT UDG;"[L]","00,70,10,10,10,10,7C,00" 8178 IF USR HR THEN LPRINT UDG;"[M]","00,00,00,F8,54,54,56,00" 8179 IF USR HR THEN LPRINT UDG;"[N]","00,00,00,F8,44,44,E6,00" 8180 IF USR HR THEN LPRINT UDG;"[O]","00,00,00,38,44,44,38,00" 8181 IF USR HR THEN LPRINT UDG;"[P]","00,00,00,FC,42,7C,40,E0" 8182 IF USR HR THEN LPRINT UDG;"[Q]","00,00,00,3E,44,3C,04,03" 8183 IF USR HR THEN LPRINT UDG;"[R]","00,00,00,6C,36,20,70,00" 8184 IF USR HR THEN LPRINT UDG;"[S]","00,00,00,3C,30,0C,3C,00" 8185 IF USR HR THEN LPRINT UDG;"[T]","00,20,20,F8,20,26,1C,00" 8186 IF USR HR THEN LPRINT UDG;"[U]","00,00,00,CE,44,44,3E,00" 8187 IF USR HR THEN LPRINT UDG;"[V]","00,00,00,E6,44,28,10,00" 8188 IF USR HR THEN LPRINT UDG;"[W]","00,00,00,C6,54,7C,44,00" 8189 IF USR HR THEN LPRINT UDG;"[X]","00,00,00,66,18,18,66,00" 8190 IF USR HR THEN LPRINT UDG;"[Y]","00,00,00,CE,44,3C,04,38" 8191 IF USR HR THEN LPRINT UDG;"[Z]","00,00,00,7E,48,12,7E,00" 8200 RETURN 9998 SAVE "ELIT[E]" 9999 LIST 8999 0 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 =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 =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 ##=Z) STOPZ▞▒VAL ,#7<,#LN ##F#<( 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 # 1 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 #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 2 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]#=S~~ACS BACS BACS BACS B/ATN NEW?/ REM 10 LET M1=19400 35 REM ██[N][U][M][E][R][A][L][S]██ 40 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" 50 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" 60 IF USR M1 THEN LPRINT U;"8";"3C,42,42,3C,42,42,3C,00[9]3C,42,42,3E,04,18,60,00" 65 REM ██[S][Y][M][B][O][L][S]██ 70 IF USR M1 THEN LPRINT U;"?";"3C,42,02,04,08,00,08,00[A]10,10,10,10,10,00,10,00" 80 IF USR M1 THEN LPRINT U;"[?]";"10,10,10,10,10,00,10,00" 85 REM ██[U][P][P][E][R]█[C][A][S][E]██ 90 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" 100 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" 110 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" 120 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" 125 REM ██[L][O][W][E][R]█[C][A][S][E]██ 130 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" 140 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" 150 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" 7000 STOP 8000 SAVE "FANC[Y]" 8002 PRINT "[F][A][N][C][Y]█[F][O][N][T] LOADED.",,," FOR USE WITH SRAM BOARD + SHR-EBIN MODE 2.",,,," RUN TO LOAD CHRS." 8010 SLOW 8020 STOP 8999 REM [D][E][C]█[T][O]█[H][E][X]█[C][O][N][V][E][R][T][E][R] 9000 INPUT D 9010 LET HI=INT (D/16) 9020 LET LO=D-HI*16 9030 LET H$=CHR$ (HI+28)+CHR$ (LO+28)+"," 9040 PRINT H$; 9050 GOTO 9000 0 REM ##E(RND)▞ ;) W▘ ▝ GOSUB [K]TAN 1 REM A$(512)=LC CHR$ 2 REM GOTO 2 TO BACKUP 3 PRINT " SAVE NAME?" 4 INPUT N$ 5 SAVE N$ 6 RAND USR 16516 7 PRINT AT 0,0;" LOAD " 8 INPUT N$ 9 LOAD N$ 0 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▀## ACS ACS 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 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 ###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# 1 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 E(RNDLN ##FLN [1]=SGN LPRINT LN ▛▝##▞5,,RND/ GOTO 2 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]#=S~~ACS BACS BACS BACS B/ATN NEW?/ REM 10 REM [S][I][N][C][L][A][I][R]█[F][O][N][T] SHREBV3.0 15 LET HR=VAL "20000" 16 LET T2=32 17 LET DEF=8000 18 LET PR=100 19 LET LF=300 20 LET LN=400 30 GOTO 7000 98 REM [P][R][I][N][T]█[C][O][N][T][E][N][T][S]█[O][F]█[T]$ 99 REM [A][T]█[P][L][O][T]█[C][O][O][R][D][S]█[X],[Y] 100 FOR I=1 TO LEN T$ 105 LET N=CODE T$(I) 110 LET G=(N>=32) 115 IF NOT N THEN GOTO 150 120 IF (G AND NOT F) OR (NOT G AND F) THEN GOSUB DEF+T2*G 130 IF G THEN LET N=N-T2 150 LET W=CODE W$(G+1,N+1) 160 IF X+W>255 THEN GOSUB LF 200 IF N OR G THEN IF USR HR THEN LPRINT SP;N,X,Y 210 LET X=X+W 250 NEXT I 260 RETURN 300 LET X=0 310 LET Y=Y-10 320 IF Y<10 THEN LET Y=10 330 RETURN 399 REM [P][R][I][N][T]█[L][I][N][E]█[W][I][T][H]█[L][F] 400 GOSUB PR 410 GOTO LF 1000 REM [T][Y][P][E][W][R][I][T][E][R] 1010 IF INKEY$ <>"" THEN GOTO 1010 1020 IF USR HR THEN PLOT X,Y 1021 LET T$=INKEY$ 1022 IF USR HR THEN UNPLOT X,Y 1030 IF T$="" THEN GOTO 1020 1040 IF T$=CHR$ 121 THEN GOSUB LF 1050 IF T$=CHR$ 118 THEN LET T$=" " 1060 IF T$<"RND" AND T$>" " THEN GOSUB PR 1065 IF T$=" " THEN LET X=X+5 1067 IF X>253 THEN GOSUB LF 1070 GOTO 1010 5099 REM [P][R][I][N][T]█[C][H][A][R][A][C][T][E][R]█[S][E][T] 6000 LET T$="" 6010 FOR I=0 TO 63 6020 LET T$=T$+CHR$ I 6030 NEXT I 6040 LET Y=110 6050 LET X=0 6055 LET X=0 6057 LET Y=100 6060 GOTO PR 7000 REM [C][H][A][R]█[W][I][D][T][H]█[A][R][R][A][Y] 7010 DIM W$(2,32) 7020 LET W$(1)="▌,,,,,,,,,,,,,,,,,,,,▞▞~~▖,,▞▞▞▞,,,,,,,,,,▞▞▌~~~~~~~~" 7030 LET W$(2)="~~~~~~~~~~~~,,,,,,,,,,▛,,,,▀▛,,▀,,,,,,,,,,,,,,▛,,,,,,,,,,,," 7040 GOSUB DEF 7045 LET X=0 7047 LET Y=190 7050 IF USR HR THEN CLS 7060 IF USR HR THEN RUN 7065 REM [S][A][M][P][L][E]█[U][S][A][G][E] 7070 LET T$="* A PROPORTIONAL CHARACTER SET *" 7090 GOSUB LN 7092 LET T$="============================" 7095 GOSUB LN 7097 GOSUB LF 7098 GOSUB 6000 7100 LET T$="PROBLEM: GIVEN THE 8-LETTER WORD" 7105 LET Y=160 7107 LET X=0 7110 GOSUB LN 7120 LET T$=CHR$ 11+"SINCLAIR"+CHR$ 11+", DERIVE THE WHOLE SET OF CHARACTERS. HERE£S MY SOLUTION." 7125 GOSUB LN 7130 GOSUB LF 7140 LET T$="GOING TO TYPEWRITER MODE...." 7145 GOSUB LN 7150 GOSUB LF 7160 LET Y=50 7170 LET T$="BY: " 7175 GOSUB PR 7199 GOTO 1000 8000 LET F=NOT PI 8001 IF USR HR THEN LPRINT SD;CODE " ","00,00,00,00,00,00,00,00,FF,F1,F1,F1,81,81,81,FF" 8002 IF USR HR THEN LPRINT SD;CODE "▝","FF,8F,8F,8F,81,81,81,FF,FF,FF,FF,FF,81,81,81,FF" 8004 IF USR HR THEN LPRINT SD;CODE "▖","FF,81,81,81,F1,F1,F1,FF,FF,F1,F1,F1,F1,F1,F1,FF" 8006 IF USR HR THEN LPRINT SD;CODE "▞","FF,8F,8F,8F,F1,F1,F1,FF,FF,FF,FF,FF,F1,F1,F1,FF" 8008 IF USR HR THEN LPRINT SD;CODE "▒","FF,D5,D5,D5,D5,D5,D5,FF,FF,81,81,81,FF,D5,D5,FF" 8010 IF USR HR THEN LPRINT SD;CODE "~~","FF,D5,D5,FF,81,81,81,FF,00,F0,90,90,00,00,00,00" 8012 IF USR HR THEN LPRINT SD;CODE "£","00,70,10,10,00,00,00,00,00,18,FF,80,FF,01,FF,18" 8014 IF USR HR THEN LPRINT SD;CODE ":","00,00,60,00,00,60,00,00,FF,01,01,0F,08,08,00,08" 8016 IF USR HR THEN LPRINT SD;CODE "(","78,40,40,40,40,40,40,78,78,08,08,08,08,08,08,78" 8018 IF USR HR THEN LPRINT SD;CODE ">";"00,00,78,08,08,78,00,00,00,00,78,40,40,78,00,00" 8020 IF USR HR THEN LPRINT SD;CODE "=","00,00,7F,00,00,7F,00,00,00,08,08,7F,08,08,08,00" 8022 IF USR HR THEN LPRINT SD;CODE "-","00,00,00,7C,00,00,00,00,00,00,FF,24,3C,24,FF,00" 8024 IF USR HR THEN LPRINT SD;CODE "/","00,00,18,00,FF,00,18,00,00,00,60,00,00,60,E0,00" 8026 IF USR HR THEN LPRINT SD;CODE ",","00,00,00,00,00,60,E0,00,00,00,00,00,00,E0,E0,00" 8028 IF USR HR THEN LPRINT SD;CODE "0","FF,81,81,81,81,81,FF,00,18,18,18,18,18,18,18,00" 8030 IF USR HR THEN LPRINT SD;CODE "2","FF,01,01,FF,80,80,FF,00,FF,01,01,FF,01,01,FF,00" 8031 RETURN 8032 LET F=SGN PI 8033 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" 8034 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" 8036 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" 8038 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" 8040 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" 8042 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" 8044 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" 8046 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" 8048 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" 8050 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" 8052 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" 8054 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" 8056 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" 8058 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" 8060 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" 8062 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" 8063 RETURN 8999 STOP 9000 SAVE "MOD-PRO[P]" 9001 PRINT "ENABLE SRAM... WRITE PROTECT OFF" 9002 PRINT ,,"ENTER RUN FOR DEMO" 9003 STOP 0 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# 1 REM ##5 S)[(]RND▘ ▞ GOSUB [K]TAN 10 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]" 20 INPUT A 30 CLS 40 IF AVAL "4" THEN GOTO VAL "10" 50 GOSUB VAL "1E3*A" 60 GOTO VAL "10" 1000 RAND USR VAL "16516" 1010 RETURN 2000 RAND USR VAL "18082" 2010 RETURN 3000 PRINT "NAME OF FONT SET?",,,"START TAPE BEFORE HITTING ENTER." 3010 INPUT A$ 3020 SAVE A$ 3030 CLS 3040 GOTO VAL "10" 4000 STOP 0 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# 1 REM ##5 S)[(]RND▘ ▞ GOSUB [K]TAN 10 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]" 20 INPUT A 30 CLS 40 IF AVAL "4" THEN GOTO VAL "10" 50 GOSUB VAL "1E3*A" 60 GOTO VAL "10" 1000 RAND USR VAL "16516" 1010 RETURN 2000 RAND USR VAL "18082" 2010 RETURN 3000 PRINT "NAME OF FONT SET?",,,"START TAPE BEFORE HITTING ENTER." 3010 INPUT A$ 3020 SAVE A$ 3030 CLS 3040 GOTO VAL "10" 4000 STOP 0 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▀## ACS ACS 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 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 ###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# 1 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 E(RNDLN ##FLN [1]=SGN LPRINT LN ▛▝##▞5,,RND/ GOTO 2 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]#=S~~ACS BACS BACS BACS B/ATN NEW?/ REM 9 SAVE "SANSBOL[D]" 10 REM [B][O][L][D]█[A][S]█[B][R][A][Z][X][.][.][.] 11 REM FOR SHR-EB V3 14 REM 15 LET HR=20000 16 REM 17 REM (FOR V2 OF SHR-EB) LET HR=19400 20 CLS 21 SLOW 22 PRINT "PRESS H TO VIEW HI-RES,","PRESS L TO VIEW ""NORMAL""",,,"""ENTER"" TO STOP" 30 IF USR HR THEN CLS 100 GOSUB 9000 102 FAST 105 CLS 107 POKE 16418,0 110 IF USR HR THEN PRINT ;;;; 115 PRINT 120 PRINT "~~";CHR$ 11;"£$:?()><=+-*/;,." 125 PRINT 130 PRINT "0 1 2 3 4 5 6 7 8 9" 135 PRINT 140 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 150 PRINT 160 PRINT "["][£][$][:][?][(][)][>][<][=][+][-][*][/][;][,][.]" 165 PRINT 170 PRINT "[0][1][2][3][4][5][6][7][8][9]" 175 PRINT 180 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]" 183 PRINT "[<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<][<]" 185 PRINT 190 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 195 PRINT 200 PRINT "[:]THE QUICK BROWN FOXES JUMPED","OVER THE LAZY DOG.[,]" 205 PRINT 210 PRINT "E=[M]*[C][2] 2[;]16=65536 2H O [*]2H + O " 220 PRINT " [2] [2] [2]" 230 PRINT "V [>] [=] SIN([T]) * EXP(-[K]/[T]) + V [-]";TAB 28;"[0]" 250 IF USR HR THEN LIST 260 SLOW 270 IF INKEY$ ="H" THEN IF USR HR THEN RUN 280 IF INKEY$ ="L" THEN IF USR HR THEN RETURN 290 IF INKEY$ <>CHR$ 118 THEN GOTO 270 295 IF USR HR THEN RETURN 300 STOP 8999 REM [S][A][N][S][-][S][E][R][I][F]█[B][O][L][D] 9000 IF USR HR THEN LPRINT UDG;" ","00,00,00,00,00,00,00,00" 9010 IF USR HR THEN LPRINT UDG;"~~","6C,6C,48,24,00,00,00,00""36,36,12,24,00,00,00,00" 9012 IF USR HR THEN LPRINT UDG;"£","6C,6C,FE,6C,6C,FE,6C,6C,00" 9013 IF USR HR THEN LPRINT UDG;"$","10,7C,D0,7C,16,7C,10,00" 9014 IF USR HR THEN LPRINT UDG;":","00,00,18,18,00,18,18,00" 9015 IF USR HR THEN LPRINT UDG;"?","7C,CE,CC,18,18,00,18,00" 9016 IF USR HR THEN LPRINT UDG;"(","0C,18,30,30,30,18,0C,00" 9017 IF USR HR THEN LPRINT UDG;")";"30,18,0C,0C,0C,18,30,00" 9018 IF USR HR THEN LPRINT UDG;">";"60,30,18,0C,18,30,60,00" 9019 IF USR HR THEN LPRINT UDG;"<";"0C,18,30,60,30,18,0C,00" 9020 IF USR HR THEN LPRINT UDG;"=";"00,7C,7C,00,7C,7C,00,00" 9021 IF USR HR THEN LPRINT UDG;"+";"00,18,18,7E,7E,18,18,00" 9022 IF USR HR THEN LPRINT UDG;"-";"00,00,00,7C,7C,00,00,00" 9023 IF USR HR THEN LPRINT UDG;"*","00,6C,38,FE,38,6C,00,00" 9024 IF USR HR THEN LPRINT UDG;"/","02,06,0C,18,30,60,C0,00" 9025 IF USR HR THEN LPRINT UDG;";","00,18,18,00,18,18,08,10" 9026 IF USR HR THEN LPRINT UDG;",","00,00,00,00,18,18,08,10" 9027 IF USR HR THEN LPRINT UDG;".","00,00,00,10,38,38,10,00" 9028 IF USR HR THEN LPRINT UDG;"0","7C,C6,CE,D6,E6,C6,7C,00" 9029 IF USR HR THEN LPRINT UDG;"1","18,38,78,18,18,18,7E,00" 9030 IF USR HR THEN LPRINT UDG;"2","7C,C6,06,0C,38,60,FE,00" 9031 IF USR HR THEN LPRINT UDG;"3","7C,C6,06,1C,06,C6,7C,00" 9032 IF USR HR THEN LPRINT UDG;"4","0C,1C,3C,6C,FE,0C,0C,00" 9033 IF USR HR THEN LPRINT UDG;"5","FE,C0,FC,06,06,C6,7C,00" 9034 IF USR HR THEN LPRINT UDG;"6","1C,30,60,7C,C6,C6,7C,00" 9035 IF USR HR THEN LPRINT UDG;"7","FE,06,0C,18,30,30,30,00" 9036 IF USR HR THEN LPRINT UDG;"8","7C,C6,C6,7C,C6,C6,7C,00" 9037 IF USR HR THEN LPRINT UDG;"9","7C,C6,C6,7C,0C,18,70,00" 9038 IF USR HR THEN LPRINT UDG;"A","38,6C,C6,FE,C6,C6,C6,00" 9039 IF USR HR THEN LPRINT UDG;"B","FC,C6,C6,FC,C6,C6,FC,00" 9040 IF USR HR THEN LPRINT UDG;"C","3C,66,C0,C0,C0,66,3C,00" 9041 IF USR HR THEN LPRINT UDG;"D","F8,CC,C6,C6,C6,CC,F8,00" 9042 IF USR HR THEN LPRINT UDG;"E","FE,C0,C0,F8,C0,C0,FE,00" 9043 IF USR HR THEN LPRINT UDG;"F","FE,C0,C0,FC,C0,C0,C0,00" 9044 IF USR HR THEN LPRINT UDG;"G","3C,66,C0,CE,C6,66,3C,00" 9045 IF USR HR THEN LPRINT UDG;"H","C6,C6,C6,FE,C6,C6,C6,00" 9046 IF USR HR THEN LPRINT UDG;"I","3C,18,18,18,18,18,3C,00" 9047 IF USR HR THEN LPRINT UDG;"J","3E,0C,0C,0C,8C,CC,78,00" 9048 IF USR HR THEN LPRINT UDG;"K","C6,CC,D8,F0,D8,CC,C6,00" 9049 IF USR HR THEN LPRINT UDG;"L","C0,C0,C0,C0,C0,C0,FE,00" 9050 IF USR HR THEN LPRINT UDG;"M","82,C6,FE,D6,C6,C6,C6,00" 9051 IF USR HR THEN LPRINT UDG;"N","86,C6,E6,F6,DE,CE,C6,00" 9052 IF USR HR THEN LPRINT UDG;"O","38,6C,C6,C6,C6,6C,38,00" 9053 IF USR HR THEN LPRINT UDG;"P","FC,C6,C6,FC,C0,C0,C0,00" 9054 IF USR HR THEN LPRINT UDG;"Q","38,6C,C6,C6,D6,6C,3E,00" 9055 IF USR HR THEN LPRINT UDG;"R","FC,C6,C6,FC,D8,CC,C6,00" 9056 IF USR HR THEN LPRINT UDG;"S","7C,C6,C0,7C,06,C6,7C,00" 9057 IF USR HR THEN LPRINT UDG;"T","FE,18,18,18,18,18,18,00" 9058 IF USR HR THEN LPRINT UDG;"U","C6,C6,C6,C6,C6,6E,3A,00" 9059 IF USR HR THEN LPRINT UDG;"V","C6,C6,C6,C6,6C,38,10,00" 9060 IF USR HR THEN LPRINT UDG;"W","C6,C6,C6,D6,D6,FE,44,00" 9061 IF USR HR THEN LPRINT UDG;"X","42,66,3C,18,3C,66,42,00" 9062 IF USR HR THEN LPRINT UDG;"Y","42,42,66,3C,18,18,18,00" 9063 IF USR HR THEN LPRINT UDG;"Z","FE,06,0C,38,60,C0,FE,00" 9139 IF USR HR THEN LPRINT UDG;"["]","18,18,18,00,18,18,18,00" 9140 IF USR HR THEN LPRINT UDG;"[£]","E6,AC,F8,38,3E,6A,CE,00" 9141 IF USR HR THEN LPRINT UDG;"[$]","38,6C,38,7A,CC,CE,7A,00" 9142 IF USR HR THEN LPRINT UDG;"[:]","18,18,10,08,00,00,00,00" 9143 IF USR HR THEN LPRINT UDG;"[?]","10,38,38,38,10,00,10,10" 9144 IF USR HR THEN LPRINT UDG;"[(]","1C,30,18,70,18,30,1C,00" 9145 IF USR HR THEN LPRINT UDG;"[)]","70,18,30,1C,30,18,70,00" 9146 IF USR HR THEN LPRINT UDG;"[>]","00,00,71,DB,8E,00,00,00" 9147 IF USR HR THEN LPRINT UDG;"[<]","00,00,00,00,00,00,FE,FE" 9148 IF USR HR THEN LPRINT UDG;"[=]","1E,18,18,18,18,18,1E,00" 9149 IF USR HR THEN LPRINT UDG;"[+]","78,CC,DC,DC,DA,C6,7C,00" 9150 IF USR HR THEN LPRINT UDG;"[-]","78,18,18,18,18,18,78,00" 9151 IF USR HR THEN LPRINT UDG;"[*]","18,30,60,FE,60,30,18,00" 9152 IF USR HR THEN LPRINT UDG;"[/]","80,C0,60,30,18,0C,06,00" 9153 IF USR HR THEN LPRINT UDG;"[;]","10,38,7C,D6,10,10,10,00" 9154 IF USR HR THEN LPRINT UDG;"[,]","18,18,08,10,00,00,00,00" 9155 IF USR HR THEN LPRINT UDG;"[.]","10,38,6C,C6,6C,38,10,00" 9156 IF USR HR THEN LPRINT UDG;"[0]","1C,2C,24,34,38,00,00,00" 9157 IF USR HR THEN LPRINT UDG;"[1]","08,18,08,08,1C,00,00,00" 9158 IF USR HR THEN LPRINT UDG;"[2]","3C,24,08,10,3C,00,00,00" 9159 IF USR HR THEN LPRINT UDG;"[3]","3C,0C,18,0C,3C,00,00,00" 9160 IF USR HR THEN LPRINT UDG;"[4]","20,28,3C,08,08,00,00,00" 9161 IF USR HR THEN LPRINT UDG;"[5]","3C,20,38,0C,38,00,00,00" 9162 IF USR HR THEN LPRINT UDG;"[6]","1C,20,3C,36,1C,00,00,00" 9163 IF USR HR THEN LPRINT UDG;"[7]","3C,0C,18,10,10,00,00,00" 9164 IF USR HR THEN LPRINT UDG;"[8]","1C,36,1C,36,1C,00,00,00" 9165 IF USR HR THEN LPRINT UDG;"[9]","1C,36,1E,06,1C,00,00,00" 9166 IF USR HR THEN LPRINT UDG;"[A]","00,00,7A,CE,CE,CE,7A,00" 9167 IF USR HR THEN LPRINT UDG;"[B]","C0,C0,FC,C6,C6,C6,FC,00" 9168 IF USR HR THEN LPRINT UDG;"[C]","00,00,7C,C6,C0,C6,7C,00" 9169 IF USR HR THEN LPRINT UDG;"[D]","06,06,7E,C6,C6,C6,7E,00" 9170 IF USR HR THEN LPRINT UDG;"[E]","00,00,7C,CE,F8,E2,7C,00" 9171 IF USR HR THEN LPRINT UDG;"[F]","1C,36,30,7C,30,30,30,00" 9172 IF USR HR THEN LPRINT UDG;"[G]","00,00,7E,C6,C6,7E,06,7C" 9173 IF USR HR THEN LPRINT UDG;"[H]","C0,C0,C0,FC,CE,C6,C6,00" 9174 IF USR HR THEN LPRINT UDG;"[I]","18,18,00,18,18,18,18,00" 9175 IF USR HR THEN LPRINT UDG;"[J]","0C,0C,00,0C,0C,0C,6C,38" 9176 IF USR HR THEN LPRINT UDG;"[K]","C0,CC,D8,F0,F8,CC,C6,00" 9177 IF USR HR THEN LPRINT UDG;"[L]","38,18,18,18,18,18,3C,00" 9178 IF USR HR THEN LPRINT UDG;"[M]","00,00,EC,FE,D6,D6,C6,00" 9179 IF USR HR THEN LPRINT UDG;"[N]","00,00,DC,FE,E6,C6,C6,00" 9180 IF USR HR THEN LPRINT UDG;"[O]","00,00,7C,C6,C6,C6,7C,00" 9181 IF USR HR THEN LPRINT UDG;"[P]","00,00,FC,C6,C6,FC,C0,C0" 9182 IF USR HR THEN LPRINT UDG;"[Q]","00,00,7E,C6,C6,7E,06,06,06" 9183 IF USR HR THEN LPRINT UDG;"[R]","00,00,DC,F6,E0,C0,C0,00" 9184 IF USR HR THEN LPRINT UDG;"[S]","00,00,7C,E0,7C,0E,7C,00" 9185 IF USR HR THEN LPRINT UDG;"[T]","30,30,FE,30,30,36,1C,00" 9186 IF USR HR THEN LPRINT UDG;"[U]","00,00,C6,C6,CE,FE,76,00" 9187 IF USR HR THEN LPRINT UDG;"[V]","00,00,C6,C6,6C,38,10,00" 9188 IF USR HR THEN LPRINT UDG;"[W]","00,00,C6,D6,D6,FE,44,00" 9189 IF USR HR THEN LPRINT UDG;"[X]","00,00,66,3C,18,3C,66,00" 9190 IF USR HR THEN LPRINT UDG;"[Y]","00,00,C6,C6,C6,7E,06,7C" 9191 IF USR HR THEN LPRINT UDG;"[Z]";"00,00,FE,0C,38,60,FE,00" 9990 RETURN 9998 SAVE "A:BOLDFONT,P" 9999 LIST 8999 ```