6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-06-14 16:29:26 +00:00
Code Issues Projects Releases Wiki Activity
352036bb6e
VolksForth/6502/UltraForth/CLV/DSK-GRF.txt
Carsten Strotmann 352036bb6e Old Ultraforth cleanup
2020-07-15 09:27:49 +02:00

5178 lines
174 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

clv06jan87
\ Directory forth11.4.87 clv22feb88
search numbers 02-03
Stacksicherheit 04
thrubf/thruba 05-07
dir / files 08-09
frei 10
search words 11
backup restore 12-14
frei 12-19
laufzeit 20-27
frei 28
c16grafik 29-31
Hardcopy 32-33
Basic-Space 34-84
Basic-Space 119-169
\ search numbers.. clv13oct87
Defer action ' noop Is action
Defer .st ' noop Is .st
: search
BEGIN >in @ r# !
name dup c@ WHILE
action REPEAT ;
: sload ( blk --)
blk push blk !
>in push >in off
.st search ;
: sdisk BEGIN scr @ sload
1 scr +! REPEAT ;
-->
$1 $2 $3 4. 3, %0110
HEX hex deCImal DEciMAL
1 3 5 7 ab c, $ffff ffff -1 -$1
\ ..search numbers clv13oct87
: $= ( st st--f)
dup c@ 1+ bounds
DO count I c@ -
IF drop false leave THEN LOOP ;
: warn ." !!!" key drop ;
: noprefix? ( string--flag)
1+ c@ dup Ascii $ = over Ascii % = or
swap Ascii & = or not ;
: s# ( string--)
dup " HEX" $=
over " DECIMAL" $= or
IF count type warn r
ELSE dup number? dup
0= IF drop drop drop exit THEN
0> IF 2drop count type space
." double" warn r
ELSE over count type space &9 u>
IF noprefix? IF r THEN
ELSE drop THEN THEN THEN ;
' s# Is action
\\ : N: Create Does> 2- >name .name ;
N: (16 N: (64 N: C)
\ Test-Kontrolle clv04may87)
\needs Tcontrol Vocabulary tcontrol
tcontrol also definitions
: LOOP compile ?stack [compile] LOOP ;
immediate restrict
: +LOOP compile ?stack [compile] +LOOP ;
immediate restrict
: UNTIL compile ?stack [compile] UNTIL ;
immediate restrict
: REPEAT compile ?stack [compile] REPEAT
; immediate restrict
\ : : : compile ?stack ;
: tc; cr ." --"R> 2- >name .name .s ;
: : : cr last @ .name
Does> dup >R ['] tc; 2+ >R >R
cr R@ 2- >name .name .s
;
\ s#>s+t x,x clv06jan87
base @ hex
165 | Constant 1.t
1EA | Constant 2.t
256 | Constant 3.t
| : (s#>s+t ( sector# -- sect track)
dup 1.t u< IF 15 /mod exit THEN
3 + dup 2.t u< IF 1.t - 13 /mod 11 +
exit THEN
dup 3.t u< IF 2.t - 12 /mod 18 +
exit THEN
3.t - 11 /mod 1E + ;
| : s#>t+s ( sector# -- track sect )
(s#>s+t 1+ swap ;
| : x,x ( sect track -- adr count)
base push decimal
0 <# #s drop Ascii , hold #s #> ;
-->
\ clv10oct87
\ Variable (drv 0 (drv !
: disk ( --dev#) (drv @ 8 + ;
-->
\ thrubf thruba clv06jan87
: diskdo ( tra# sec# string-- flag)
disk 0f busout
count 2dup type bustype
x,x 2dup type cr bustype busoff pause
derror? abort" diskerror" ;
: bamallot ( blk -- flag)
diskopen abort" disopenerror"
." blk:" dup . cr 2* 2* 4 bounds
DO I s#>t+s " b-a:0," diskdo LOOP
diskclose ;
: bamfree ( blk -- flag)
diskopen abort" disopenerror"
." blk:" dup . cr 2* 2* 4 bounds
DO I s#>t+s " b-f:0," diskdo LOOP
diskclose ;
: x ( [from to] -- last+1 first)
2dup > IF swap THEN 1+ swap ;
: thrubf x ?do ?stack I bamfree loop ;
: thruba x ?do ?stack I bamallot loop ;
base !
\ Directory Test clv26sep87
: readdir cr
." Directory wird nach blk $8888 gelesen
"
diskopen
$8888 buffer $400 0 fill
$8888 block &18 0 readsector
$8888 block $100 + &18 1 readsector
$8888 block $200 + &18 2 readsector
$8888 block $300 + &18 3 readsector
cr ." und kann bei Adresse"
$8888 block u.
." bearbeitet werden"
diskclose
;
\ readdir funktioniert
\ files clv06jan88
| : skp bus@ drop bus@ drop ;
| : wrd bus@ bus@ $100 * + . ;
| : str
BEGIN bus@ ?dup WHILE emit REPEAT ;
: files \ Filename kann folgen
(drv @ 8 +
dup 0 busopen
" $0:" count bustype
bl parse bustype
" *" count bustype
busoff derror? ?exit
dup 0 busin
skp skp \ Sector,Zeilenlink
BEGIN cr wrd str skp $90 c@ UNTIL
dup 0 busclose derror? ?exit ;
\ search words clv24oct87
' words 26 + Constant cccc \ schweinkram
Variable ssss
: nnnn ( adr--)
dup 1+ c@ ssss @ =
IF .name ELSE drop THEN ;
: gggg
cccc push ['] nnnn cccc !
cccc 2+ push ['] noop cccc 2+ !
$100 0
DO cr ." Char: " I dup . space emit cr
I ssss ! words LOOP ;
\ backuptape.. clv22feb88
\ restore macht DISK ID MISMATCH
$165 | Constant 1.t
$1EA | Constant 2.t
$256 | Constant 3.t
| : (s#>s+t ( sector# -- sect track)
dup 1.t u< IF $15 /mod exit THEN
( 3+) dup 2.t u< IF 1.t - $13 /mod $11 +
exit THEN
dup 3.t u< IF 2.t - $12 /mod $18 +
exit THEN
3.t - $11 /mod $1E +
;
| : s#>t+s ( sector# -- track sect )
(s#>s+t 1+ swap ;
-->
\ debug sec>tape backup
\ ..backuptape clv22feb88
$100 Constant seclen
&7 Constant tapeDev
Create baknam $11 allot
: up $91 con! ; : dev8 0 (drv ! ;
| : ?e ( flag--)
?dup IF diskclose
abort" disk error" THEN ;
| : ?t ( flag--) abort" tape error" ;
: sec>tape ( adr--)
dup 2+ over @ s#>t+s
dev8 readsector ?e
seclen 2+ over + baknam count tapeDev
csave ?t ;
: tape>sec ( adr--)
dup @ swap
dup 0.0 tapeDev cload ?t \ Ladefehler
seclen - 2- over - ?t \ Laenge falsch
swap over @ - ?t \ falscher Sektor
dup @ s#>t+s dev8 writesector ?e ;
-->
\ backup restore clv22feb88
Defer copywhat
: copyall ( cfa--) Is copywhat
pad dup $110 + sp@ u> abort" no room"
cr ." enter Disk & Tape" key drop cr
cr ." **BackupName:***" cr
baknam 1+ $10 expect span @ baknam c!
dev8 diskopen ?e
base push decimal 0 &682
DO I . I s#>t+s . . cr up
I over !
dup copywhat -1 +LOOP drop ;
: backup ['] sec>tape copyall ;
: restore ['] tape>sec copyall ;
\\
: t 0 &682
DO I . I s#>t+s . . cr
stop? IF leave THEN -1 +LOOP ;
clv08dec87
clv06jan87
clv06jan87
clv29jan88
\ Laufzeit clv29jan88
\ aus VD 2/87
\needs Code .( ??! CODE !??) quit
$a4 Constant timer \ High,Low !!!
Code gettimer
sp 2dec timer lda sp )y sta
timer 1+ lda sp x) sta
next jmp end-code
: tinit ;
&60 Constant ticks/sec
&13 Constant maxbar
&40 Constant cols
1 6 +thru
\ 7 +load \ Beispiel
\ Laufzeit clv29jan88
\ aus VD 2/87
\needs Code .( ??! CODE !??) quit
$a4 Constant timer \ High,Low !!!
Code gettimer
sp 2dec timer lda sp )y sta
timer 1+ lda sp x) sta
next jmp end-code
: tinit ;
&60 Constant ticks/sec
&13 Constant maxbar
&40 Constant cols
1 6 +thru
\ 7 +load \ Beispiel
\ new #uses #ticks names clv29jan88
: Array Create 2* allot
does> swap 2* + ;
$7f Constant #words
Variable #entries #entries off
#words Array #uses
#words Array #ticks
#words Array names
: new #words 2* 0 #uses over erase
0 #ticks swap erase tinit ;
new
\ msec getmaxtimme drawbar clv29jan88
: u*/-d ( u1 u2 u3--udqout)
>r um* r> ud/mod rot drop ;
: msec ( u--ud) &1000 ticks/sec u*/-d ;
: .msec ( ud n --)
-rot <# # # # Ascii . hold #s #>
rot over max over - spaces type ;
: getmaxtime ( --u)
0 #entries @ 0
?DO I #ticks @ umax LOOP ;
: drawbar ( umax u --)
maxbar rot u*/-d drop
0 ?DO Ascii # emit LOOP ;
\ .table clv29jan88
: tab ( n--)
col - dup 0< IF cols + THEN spaces ;
: .header cr cr
." volksFORTH83 statistic analysis"
cr ." ==============================="
cr ." Name" &10 tab ." #uses"
&16 tab ." sum [sec]"
&26 tab ." Bar diag" cr ;
: .entry ( max n --)
dup #uses @ 0= IF 2drop exit THEN
cr base push decimal
dup names @ .name
&10 tab dup #uses @ 5 u.r
&16 tab dup #ticks @ msec 7 .msec
&26 tab #ticks @ drawbar ;
: .table .header getmaxtime #entries @ 0
?DO dup I .entry stop? IF leave THEN
LOOP drop cr ;
\ l, start ende clv29jan88
: l, ( adr--) , ;
\\
: start gettimer
1 r> dup 2+ >r @ +!
negate r> dup 2+ >r @ +! ;
: ende gettimer r> dup 2+ >r @ +! ;
\ start ende fuer 6502 clv29jan88
Code start sei \ No timer interrupt
N IP 2dup x) lda sta )y lda 1+ sta
clc
N x) lda 1 # adc N x) sta
N )y lda 0 # adc N )y sta
IP 2inc
N IP 2dup x) lda sta )y lda 1+ sta
sec
N x) lda timer 1+ sbc N x) sta
N )y lda timer sbc N )y sta
IP 2inc cli next jmp
Code ende sei \ No timer interrupt
N IP 2dup x) lda sta )y lda 1+ sta
clc
N x) lda timer 1+ adc N x) sta
N )y lda timer adc N )y sta
IP 2inc cli next jmp
\ compiler-changes clv29jan88
: newentry last @ #entries @ names !
1 #entries +! #entries @ #words =
abort" table full" ;
: old: : ;
: ;old [compile] ; ; immediate restrict
old: : : compile start
#entries @ dup #uses l, #ticks l,
;old
old: exit compile ende
#entries @ #ticks l,
compile exit
;old immediate restrict
old: ?exit [compile] IF
[compile] exit [compile] THEN
;old immediate restrict
old: ; compile ende
#entries @ #ticks l, newentry
[compile] ; ; immediate restrict
\ Laufzeit Test clv29jan88
: 2* 2* ;
: dup+ dup + ;
: two* 2 * ;
: t2* &234 &1000 0
DO dup 2* drop
dup dup+ drop
dup two* drop LOOP drop ;
: tt2* &10 0 DO t2* LOOP ;
new tt2* .table
clv06jan87
\ c16grafik-1 clv06jan88
\ farbe.. unten=>kein flimmern im rom
\ =>text faerbt grafik
: gr ( mode--) \ t=0,hr=20,mc=a0
dup 83 c! \ splitscreen: +40
IF
08 7fb c! \ anfadr text
ff06 c@ 20 or ff06 c! \ bitsp.frei
ff07 c@ ef and \ multicolor
83 c@ 80 > IF 10 or THEN ff07 c!
ff12 c@ c3 and 30 or ff12 c! \ bitmap
ff14 c@ 7 and 08 or ff14 c!
ELSE
08 7fb c! \ anfadr text
ff06 c@ df and ff06 c! \ bitsp
ff07 c@ ef and ff07 c! \ multicolor
ff12 c@ c2 and 4 or ff12 c!
ff14 c@ 7 and 08 or ff14 c!
THEN ;
: e 0800 400 f1 fill 0c00 400 01 fill
c000 2000 0 fill ;
: t c000 2000 bounds
DO 01 I ! 10 +LOOP ;
: test 20 gr e t 6000 0 DO LOOP e
0 gr ; test
\ c16grafik-2 clv06jan88
hex
: gr ( mode--) \ t=0,hr=20,mc=a0
dup 83 c! \ splitscreen: +40
IF
e0 7fb c! \ anfadr text
ff06 c@ 20 or ff06 c! \ bitsp.frei
ff07 c@ ef and \ multicolor
83 c@ 80 > IF 10 or THEN ff07 c!
ff12 c@ c3 and 30 or ff12 c! \ bitmap
ff14 c@ 7 and e0 or ff14 c!
ELSE
08 7fb c! \ anfadr text
ff06 c@ df and ff06 c! \ bitsp
ff07 c@ ef and ff07 c! \ multicolor
ff12 c@ c2 and 4 or ff12 c!
ff14 c@ 7 and 08 or ff14 c!
THEN ;
-->
\ ..c16grafik-2 clv06jan88
: .. BEGIN ." laber " stop? abort" .."
REPEAT ;
Code sei sei next jmp end-code
Code cli cli next jmp end-code
: e e000 400 f1 fill e400 400 01 fill
c000 2000 0 fill ;
: t c000 2000 bounds
DO 01 I ! 10 +LOOP ;
.( ohne ROM-Routinen) key drop
: test limit $c000 u> abort" no room"
sei 60 gr e t
6000 0 DO LOOP e
cli 0 gr ; test
.( mit ROM-Routinen) key drop
: test2 limit $c000 u> abort" no room"
sei 60 gr e t
100 0 DO ." hallo " LOOP
e cli 0 gr ; test2
\ Hardcopy clv11.4.87)
\needs scr>cbm .( ??! scr>cbm ??!) quit
| 0c00 Constant screen
| &1000 Constant b/s
| &40 Constant b/l
: hc ( --) \ Hardcopy des Bildschirms
screen b/s bounds printer
DO stop? abort" user break"
I c@ scr>cbm emit
LOOP cr display ;
\ Hardcopy to Ctrl+P clv11.4.87)
\ Installieren von HC auf Ctrl+P
input @ 4 + @
| Alias olddecode
| : pdecode ( key#--key#)
dup 10 = IF hc THEN \ ctrl+p - hc
olddecode ; \ zu altem decode
| create hcinput 8 allot
input @ here 8 - 8 cmove
' pdecode ' hcinput >body 4 + !
: hcin hcinput input ! ;
hcin .( Hardcopy now on CTRL+P)
 <0C><12><13><12>k<EFBFBD><12>$ +Oa2bO<12>k1bOO
 <1B><><EFBFBD>$s<00>k<EFBFBD>(RESTORE" +3$sb<00>X'O<12>k
<EFBFBD><11>$h$s<00>kHRESTORE" +<2B> Ek$$y+<ij
C64FKEYS +<2B>k<EFBFBD>]R<12>$a<00>kDEVICEZ)a
<EFBFBD>l COMMODORE +<2B>#l$a)lFLOPPY +R#l
$balSETNAME +R<17><>R<17>$ +RR<17><><13>
<EFBFBD><17>l$ +#l
PUSHAy+P{<00>jPUSH0Ay+Z{<00>j
PUSHy+<2B>{<00>jRPy+{<00>jUPy+{<00>jSPy+
{FjIPy+{QjNy+${|jPUTAy+{<00>jWy
+{<00>jSETUPy+<2B>{<00>jNEXTy+ { kXYNEXT
y+ca{kPOPTWOy+<2B>{'kPOPy+}p<00>jc\IF +
V#<23>.<2E>b<00>$h$@bkTAPE<50>,"s"s<>jZ)OO
$r\k<>STORE +Os<08>
<EFBFBD>R<17><>$cwlBLOAD
+<2B>lR<17>R<17>|i<>l$c<00>lBSAVE +<2B>lR<17>R
<EFBFBD><08>i<EFBFBD>l$c<00>lBLOAD: +<2B><17>#<23>l<EFBFBD>lEkbuh$cL
lBSAVE: +<2B><17>#<23>l<EFBFBD>lEkbuh$d<00>l SUPERTAPE
+R#l<08>#m_$%m<>><3E> ;m<>?<3F><><00>l l}ml)o<>
5<EFBFBD>.<03>m<EFBFBD>/<03>8<EFBFBD>0<03>m<EFBFBD>1<03><00>]mH R<>IP<>`
*** s
upertape clv 2/10 ***
<00><><EFBFBD><00><><0E><>I<07>lp<6C>
<EFBFBD><EFBFBD>Z <1B><>Hإ<48>h<EFBFBD><00><> `<60> <20><> Op <20><> <20>p<EFBFBD><70><EFBFBD>H<07>* xn
<EFBFBD><EFBFBD> J<><4A><00>2 R<>H<EFBFBD>P<><50><EFBFBD>HD<48><44><1E>?<3F><><EFBFBD><EFBFBD>><3E>Y2<03><>I?<3F>
<EFBFBD><EFBFBD>b)Pq <20><>l<EFBFBD>mȅ<6D> <20>񥴅_<F1A5B485><5F><EFBFBD>`<60><><EFBFBD>
<EFBFBD>c<03>_<EFBFBD>d<03>
`<18>e<03>_<EFBFBD><5F><EFBFBD>f<03>`<60>©o<C2A9>H<07>b0<05><><EFBFBD>H<07>?<3F><>E xnl1
n<EFBFBD>,<2C>,<2C>,<2C>,<2C>,<2C><1E>><3E>h <20><> <20><><EFBFBD>ZȚ<5A>_<EFBFBD>`Ix`<60>
y<EFBFBD> <20>nIP<><50> <0B> <20>n<EFBFBD>P<EFBFBD>IP<>JP<4A><50> <20>n<EFBFBD>P<EFBFBD>I<16><>E
y<>IE<49>Tl4n<34><00>]<5D>^<5E> <20>n<EFBFBD>P<EFBFBD><50><EFBFBD><EFBFBD>]<5D>å^<5E><> <20>n <20>
n<EFBFBD><EFBFBD>P<04><><EFBFBD>_ <20>n <20>n<EFBFBD><6E>Q_<51><01> <20>n <20>n<EFBFBD>_P<02>` <20>n <20>n<EFBFBD>
<EFBFBD><EFBFBD>`E<>PC<50>_E<5F>P<EFBFBD><50><EFBFBD>E<EFBFBD>P<13> <20>n<EFBFBD>P<EFBFBD>E<EFBFBD>P<07><00>l:nl4n
`<60>, <09><><EFBFBD><EFBFBD>)Ex<45><18>x<EFBFBD>w<EFBFBD>w<06>]P<02>^<5E>)Ex<45><78><EFBFBD>x
Zp<5A>w`<60><>I<07> 8)Pl<><6C><EFBFBD><EFBFBD>Z Po <19><><EFBFBD><EFBFBD> <20><> <20><>
Op<EFBFBD><EFBFBD><EFBFBD>b<03><><EFBFBD>c<03><><EFBFBD>d8<><38>岍e<03><>峍f<03><00>g<03>h<03>
i<03>j<03><03><>2<10>_<EFBFBD><03>`<60>©k<C2A9><6B><EFBFBD><EFBFBD><EFBFBD>Y<EFBFBD>؅X<D885><02><><10> <09><>
* >p Op$<24> <0B>؅Y<D885>4<EFBFBD>X<EFBFBD><02><><EFBFBD><EFBFBD>_<EFBFBD><5F><EFBFBD>`<60><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>©E<C2A9>
?<3F> >p Opl1n<31><00> <20>2H<><10><><EFBFBD><00><><EFBFBD><EFBFBD>D<EFBFBD><44>.<2E><><EFBFBD>?<3F><><EFBFBD><EFBFBD>
><3E>I.P!<21>
<EFBFBD>"$<24>0F<><46> <0C>2H<><48><EFBFBD><10>
<EFBFBD>䫰<05><>l<EFBFBD>o`<60><>
lp<><00>*pH R<>IP<>l=n? filename invalid
h<>
@<40> <20>p <20>pJP<4A><50> <20>p <20>p<EFBFBD><00>]<5D>^<5E>_ <20>p<EFBFBD>_P<02>` <20>p<EFBFBD>_
E<EFBFBD>P<EFBFBD><EFBFBD>`E<>P<EFBFBD><50>^<5E>] <20>p <20>p<11> <20>p <20>pl<70>p<EFBFBD>w<EFBFBD>fw<66><05>
Y<EFBFBD>H<07>, <09><><EFBFBD> Zp<5A>i<02><01><08>, <09><><EFBFBD> Zp<5A>i<02><01>PR
`<60>]<5D><00>]<5D>^<5E><00>^<5E>X<EFBFBD>H<07>P<EFBFBD>`<60><00>JP<4A><50>P<EFBFBD>`<60>H<07><02><>
<EFBFBD><03><><10> <09>`<60>2<EFBFBD>_<EFBFBD><03>`<60>©k<C2A9><6B>`*** ende st ** 1
?<3F>p RF?`p<>!<21><13>p<EFBFBD><16>$ +<2B>pZ)<29>tapeFORTH8
3.4th <20><00><> <20><> <20><><EFBFBD>2<EFBFBD>_<EFBFBD><03>`<60>©k<C2A9><6B>l<EFBFBD><05>y<EFBFBD> <20>
IP<><50> <0B> <20><05>P<EFBFBD>IP<>JP<4A><50> <20><05>P<EFBFBD>I<16><>Ey<45> G
<EFBFBD><EFBFBD>l~<7E><><00>]<5D>^<5E> <20><05>P<EFBFBD><50><EFBFBD><EFBFBD>]<5D>å^<5E><> <20><05><><EFBFBD>_ <20>
<EFBFBD><05>_P<02>` <20><05><><EFBFBD>`E<>PZ<50>_E<5F>PT<50><54>E<EFBFBD>P<EFBFBD><50> <20><05>P<EFBFBD>E<EFBFBD>
P<EFBFBD>`*** fn-ende *Z)<29>mO
g348
<20><05>, <09><><EFBFBD><EFBFBD>)Ex<45><18>x<EFBFBD>w<EFBFBD>w<06>]P<02>^<5E>)Ex<45>
<EFBFBD><EFBFBD>x <20><05>w`<60><><EFBFBD><02><><00><03><><10> <09>`<60>* <20><03>c<03>_<EFBFBD>d<03>`
<EFBFBD>e<03>_<EFBFBD><5F><EFBFBD>f<03>`<60>©E <20> G<>l<EFBFBD><6C>**p2-ende***

em
SAVEBOOTER +#lk5l'q*
<20>l<EFBFBD>q* <20>]s<08><1F>]<05><08>q<EFBFBD><13><15>l lEkbooter$
f<00>rMSGON +R@R<17><>$f<00>rMSGOFF +RR
<EFBFBD><EFBFBD>$f sMSGALL +R<17>R<17><>$ <00>kRAMDISK<53>
,<2C>x<EFBFBD>x<EFBFBD>kv9sCMB>7BIT +<2B>R<17>Jb$<13>RAR
<17><><18>R|1|b R`1 R<17>1R<>$v
ms7BIT>CBM +<2B>R<17>#b$<13>R<17>R{<7B><18>R
<EFBFBD>1|bR`<60>$ +<2B><08><13>$ +<2B>C3<43> <20>$w<00>
sEXPAND +<2B><08><12>s<08><>)<29>$<00><><EFBFBD><13>R<>b
R
1Ws <00>sMs<4D><73><EFBFBD><EFBFBD>O1$ +<2B>b'R<17><><1E><12>b
 R<>MsO<12>:<3A> R<17>Ms<4D><73><EFBFBD><EFBFBD>$x<00>sCOMPRES
S +<2B><08><12>s<08><><EFBFBD>")<29>$<24><00><><EFBFBD>C31b<00> 
&t<><74><EFBFBD>xsMs<4D><17><><EFBFBD><EFBFBD>&tO1$ RDy+!<00>tR
DFIRSTZ)!<00>tRDLIMITy+<00> +<2B>t<EFBFBD>$ +Kt1K
tm$!<00>tRD? +Kt<4B>q$!<00>t?RD +<2B>tqEk
noRamdisk $ +Kt<4B>m<17><13>$ +<2B><08><13>  $
+ <17>$ +  $!<00>t BLOCKLOOP +<2B>Kt<4B>u1
b<00>$<13>_<13>b$u <1B>X%]<5D><>\
^CPY%]<5D><><00>^LDX%]<5D><><00>^LDY%]<5D><> <00>^
STY%]<5D><><00>^JSR%]<08><00>^JMP%]@<40><><00>^BI
T%] <20><04>+<2B>=<3D>
[<19>3
out of range \ <00>^[
[<5B>+X \ <00>^?]<5D>+!X #<17>B^!\ <00>^?[<5B>+!
X <20>!\ _?[[<5B>+
_<EFBFBD>\ _]?<3F>+X <20>J<13>
<00>;<08><00>#<17>B^<5E><08>\ (_][<5B>+X #<17><17>
P<17><19><08><13>S<><53>q<EFBFBD>m"<08><16>><3E>1<16><08><00><18>
s<><08>s<><08><1B><><EFBFBD>\<13>+?$
@<40>\.*<1F>
<EFBFBD> <0C><><EFBFBD><EFBFBD><EFBFBD><1E><><EFBFBD><EFBFBD><11><><13><> <0F>.*ss'sis
iu<EFBFBD>p>o>o<>r<EFBFBD>r<EFBFBD>r<EFBFBD>r<EFBFBD>o<EFBFBD>o<EFBFBD>p<EFBFBD>p;qr<>oppo&o|n<>
n<EFBFBD>n<EFBFBD>n<EFBFBD>n<EFBFBD>n<EFBFBD>n<EFBFBD>n<EFBFBD>opo^o<>p<EFBFBD>p<EFBFBD>n0v<30> S<16>$<24>H<EFBFBD><48>uI<75>
<EFBFBD>E&P<><50>
<EFBFBD><EFBFBD><EFBFBD>uh<EFBFBD><EFBFBD>ul<1C>+4m<34><13>6
<18><><17><>J<><4A><EFBFBD>\
<13>+4m2<>q#<17>]\.*.*P<>.*F<>.*<2A><>.*<2A><>.*<2A>
<EFBFBD>.*<2A><>.*<2A><12> <20><15>B<12><12>D\1CPUSH<53>+<2B>z
<EFBFBD>P<12><12>#<17><16>Bn {<7B>PP\<13>+
r<> {bTc<54>1<EFBFBD>4
<EFBFBD>!<21>//<18><><EFBFBD> 9\1<00><>RANGE<47>+<2B><><EFBFBD><17><08><>;#<17>"
/\<13><19><1B><>n<17><>;\é<><C3A9><EFBFBD><EFBFBD>¡<02><0E><02><0F><18>
<02><02><02><03><>…<1C><>…l.*<04>\<13><18><02><0E><02><0F><><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>P<1B>M<>¥<0F><>V<C290>j<>bjy
<1B>b
k<>b

<EFBFBD>bjy<EFBFBD><08>\-zy EDIDECODE<44>+
<18>@<1C>
m<>?
d<13>a@<1C><m<><17>y<EFBFBD>Q!"[<19><00>Q!"<08><><EFBFBD><EFBFBD><00>
<15>%JFl<46><08>#J<><4A><EFBFBD><EFBFBD>Q!;d<13>m<>
.v<><13>
v<EFBFBD>\-<00>y EDIEXPECT<43>+<2B>wQ!;<08><17>Q!"<19>
<EFBFBD>?I?<3F><1B><><EFBFBD><15>4\-zEDIBOARD<52>?La[a<>y z\<13>+
Uj/<18>6<EFBFBD>2;<08>d2<>d<EFBFBD><17>e\<13>!y
S<00>\<13>+}<12>#
<17>"<08><15><16>
<15><08><1B><><EFBFBD>;\
s<>RELOCATE<54>
+<2B><08><11><15><15>%7<>a;[<19>3buffers?<3F><08> /<01>
<19>3stack?<3F>0"
@<40><19>3rstack?@:$><3E>
<EFBFBD><15>

<EFBFBD>;<08>s<>}#"<08>#;
<06><16>
<14>;
a\
<00><>
BYTES.MORE<52>+}<12><11><16>B"}<12><16><>\
<04>BUFFERS<52>+%7$a;B"<08><16><08><11>\\5
[<5B>J<13>!=["
1<16>=["
1
U<18>
!<21> !<21>[\]ADC%]`<60><00>]AND%] <20>
<EFBFBD>]CMP%]<5D><><00>]EOR%]@<40><00>]LDA%]<5D><>M]
ORA%]<00>Z]SBC%]<5D><><00>]STA%]<5D><><00>]A
SL%]
^DEC%]A ^INC%]<5D> ^LSR
%]a
(^ROL%]!
5^ROR%]<5D>
b^STX%]
<EFBFBD>o^CPd?m"P<17>5<EFBFBD>d?X #PFsW?Q!"<08>
<08>X <20><15>_'<27>m;d?m"P<17>5{b<>d? ma"
<EFBFBD>l<EFBFBD><17>?<3F>W?Q!"<08><08> m;d? mlt<>d?&ma"
<08>l<EFBFBD><17>?<3F>W?Q!"<08><08>&m;d?&mlt<>pIqd?\
<EFBFBD>+<2B>r<EFBFBD> ml<>3"<08>3"<08>9<EFBFBD><15>c<EFBFBD>3"<08>3k<33><18><00><17>

<00>3"<08>9<EFBFBD><16>3;<08>r\<13>+<2B>r<EFBFBD>#t
u<EFBFBD>3"<08>'<00>?<3F>
r<><19>Rs<52><08><00>d<<3C>CODE<44>+A)X <20><08>;
2<>\ \<5C>>LABEL<45>+X <20>)A)<29>'<27> !Zi(<28>(<28>1i
(X Z<17><16>(ZD<1F>(~'"<08>
1<16>;L;<08>(l<>("
1$"<08>^\ <00><>LABEL<45>+X ~<7E>2<EFBFBD>\
<EFBFBD>ROM<4F>
+X
 <09>/<00>[<19>3not here/><3E><>]\<00><>RAM
<EFBFBD>+/?<3F><>]\ <0C>SYS<59>+<2B><><EFBFBD>^<12>\/N<>TOOLSv-6
<EFBFBD>6<EFBFBD><EFBFBD>l0<1E>WCMP<4D>+<2B>S]<5D><08>]<5D>#S]F1<16><18>
<00>$not <20>$changed<65>Z1<16><00>9<EFBFBD>
1

<EFBFBD><19> <00>$, saved
1<16><1B><00>$ , loading?<3F>3
"<08>3"<08>w\,<xL<>+<2B>3<EFBFBD>cx\,TxR<>+<2B>3"cx\
,<00>x+L<>+<2B>3"<08>Xx\,<00>xV<>+;/<2F>*<2A><08>Z<17>
"\,yVIEW<45>+ y<><08>Xx<58><00>$
from key
board\<13>+,m"0mJ<13>\,<00>vCURLIN<49>+
<1B>b
a<>TRACE'<27>+;/<2F>'ŗ<13>\<13>+<2B>><3E>Z<17>5<EFBFBD>$:\
<EFBFBD>+<2B>"
<06>5\<13>+<2B>JP<17>5\<13>+
$<24>?<3F><16><17><19>4\
6<1E>S<>+<2B>ő4<C591><34>Z<17>4<EFBFBD><08> #?<3F>J<13>#<17><>\6<00><>
N<>+<2B><><EFBFBD><EFBFBD>F<17>4<EFBFBD>"<08>*+a<17><>\6J<>K<>+<2B><><EFBFBD><EFBFBD>a<17>
<EFBFBD>\7<00><>D<>+<2B><15><08><>P<17>4<EFBFBD><08><17><>
<00><>#J<><4A><EFBFBD>Z<17>4
z#?<3F><>\7<00><>C<>+<2B><17><>\7(<28>B<>+<2B><><EFBFBD>Ÿ"<08><08>

<06>5a<17><>NOP<4F>[<5B><00>\PHA<48>[h<00>\PHP<48>[
<00>\PLA<4C>[<5B><00>\PLP<4C>[(<00>\RTI<54>[@<00>\RTS
<EFBFBD>[`<00>\SEC<45>[8<00>\SED<45>[<5B><00>\SEI<45>[<5B>F\
TAX<EFBFBD>[<5B>Q\TAY<41>[<5B>|\TSX<53>[<5B><00>\TXA<58>[<5B>
<EFBFBD>\TXS<58>[<5B><00>\TYA<59>[<5B>]M/CPU<50>+A)! !<21>(l
<EFBFBD>(<28>#"
<18>1<16>
=[[<08>/<00>1<16>[<5B>[<5B><00>
[<5B><17>3invalidJ=["<06><00><08>.?<3F>d<13>a@
<1C>
<00>Q!;d<13>"<22><08>%<25><00>P<12><15><13><08><13>
?
#d<13>\"<00>sDIGITS<54>?La[a<>slb\<13>+ m"<08><17><>
<00>a<EFBFBD>bJ<62><4A><EFBFBD><EFBFBD>&m"<08><17><>
<00>nJ<><4A><EFBFBD><EFBFBD><08>&ml+n<>
<08>m<EFBFBD>r<EFBFBD>\<13>+#?
<
?<3F>l<EFBFBD><17>?<3F><16>4\<13>+2<>l<EFBFBD>qo
?Ip<49><17>d?<3F>$replace with: o?&mlt<><17>d?<3F>
$> search: o? mlt<>F<17>`BCS<43>+<2B>_
<EFBFBD>^\
\`BVS<56>+<2B>_<EFBFBD>^\ <00>`2INC<4E>+<2B>S]\F<17>[
<EFBFBD>]<5D><08>]<5D>_
_<EFBFBD>#!^-_\ <00>`2DEC<45>+<2B>S]<5D>\F<17>[
<EFBFBD>]<5D><08>]<5D>_
_<EFBFBD>#^-_\ <00>`WINC<4E>+<2B>!^<5E>_
_<EFBFBD>
#!^-_\ N`WDEC<45>+<2B>S]<5D>_
_<EFBFBD>#^-_^\
<EFBFBD>`;C:<3A>+<2B><11>^[<5B>0<EFBFBD>~';<08>\ <00>z ASSEMBLER<45>
+?j<>[\ &<26>e;CODE<44>+)/<18><><EFBFBD> <20>+/<18><><EFBFBD> 2<>\
<08>r<EFBFBD><17>d?<3F>1<EFBFBD>r<EFBFBD>a<EFBFBD>\*<00>s(LOAD<41>+<2B>!2<>!;
<EFBFBD><08><18>D!2D!;<08>1<EFBFBD>/\*<00>wSHOWLOAD<41>+<2B>32<>3
<EFBFBD><17>32/>w*w;<08>w.w\<13>+i<><15>J4m<34><13>#J<
m<EFBFBD>aJ8m<38>\<13>+ZSw
<18><>b<EFBFBD>r<EFBFBD> m<><17>?<3F>m<><13>
.v<><13>v<EFBFBD><08><1B><><EFBFBD><17>d?<3F>o<EFBFBD> m<><17>Sw<53>/<18><07>\
+<00>wEDIT<49>+Ki<4B>3;<08>q<EFBFBD>w<EFBFBD>w
<18>d?<3F>q<EFBFBD>$Scr <20>5
<EFBFBD>$Drv <20>5<EFBFBD> "<08>"/<2F>d/#?"@<1C> +J<13>
"<08>"/<2F>d/8"@<1C>
+"/<2F>d"/l<><6C><19>
"P<17>d<13>*+<2B>$can't be DEBUGged33\5X
<EFBFBD>NEST<53>+<2B><>""/Ā<08><><EFBFBD>\5C<>UNNEST<53>+<2B><><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD>\55<00><>ENDLOOP<4F>+<2B><>"Z<17><15><>;\5<00><>%U
NBUG<EFBFBD>5<12>(DEBUG<55>+/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><17><><EFBFBD><17><><EFBFBD>8<><1E>\
50<>DEBUG<55>+;/'<27>\5
`[#s[s[<00>[,
Xs[<00>[,Ys[<00>[X)s[<00>[)Ys[<00>[)s
[<0F>+<2B>=["
=[;<08>=["
1<16><08><00><17>
<EFBFBD>
<00><08>J<><4A><EFBFBD><EFBFBD>#"1<16>\<00>[CPU<50>+A)!<21>(l<>
(J!<21>[\<00>[BRK<52>[\CLC<4C>[ \CLD<4C>[
X\CLI<4C>[x!\CLV<4C>[<5B>,\DEX<45>[J7\DE
Y<EFBFBD>[<5B>b\INX<4E>[<5B>m\INY<4E>[Hx\ <15><>2i<32>@<05>
<EFBFBD><EFBFBD>@<05><13> <04><13> nixlca<63>_i(BSAVE<56>i<EFBFBD>ꩲ<EFBFBD><EAA9B2><EFBFBD><EFBFBD><EFBFBD>
><3E> X<><58>?<3F><><05>lP<1B><>lP<1B><00>i(BLOAD<41>i<EFBFBD><69><EFBFBD><00><><EFBFBD><EFBFBD>
<EFBFBD>><3E> U<><55>?<3F>lEi<45>><3E><><07><07>h<>h<><68>h<><00>l<><6C><EFBFBD>?
<EFBFBD>@8<>><3E> <20><><EFBFBD>;<3B>;<3B><1E><>i<EFBFBD><07><10><><07><><EFBFBD><EFBFBD><00><><EFBFBD><EFBFBD>?<3F>`<60>
Sia) +$<13>9jd(C16 +$<13>cjd(C64 +<2B>$$<13>pj
FORTH-83 +${_j ASSEMBLER<45>,!<21>!<21>-{
 ^<5E>X <20>#<17>B^<5E><08>\ q_]]<5D>+<2B>^\ <00>_]]
?<3F>+<2B>^-_\
<00>_CS<43>+<2B>
<00>_CC<43>+<2B>
<00>_0=<3D>+P
<00>_0<><3E>+<2B>
<00>_0<<3C>+
<00>_0>=<3D>+0
I_
VS<EFBFBD>+p
U_VC<56>+<2B>
<00>_NOT<4F>+
 n\
<00>_BE
Q<EFBFBD>+<2B>_<EFBFBD>^\
<00>_BMI<4D>+O_<4F>^\
`BNE<4E>+<2B>_<EFBFBD>^\
`BPL<50>+C_<43>^\
,`BCC<43>+<2B>_<EFBFBD>^\
<`BVC<56>
+Z_<5A>^\
l
v<EFBFBD>qv<71>qv<71>qv\<13>+<2B><08><17><19><00>v
<EFBFBD>\(wq(PAD.*<00>+<2B> <20><08>v;<08>l3<1E><15> ma;
<EFBFBD>l<EFBFBD><15>&ma;<08>l<EFBFBD><15>m;<08>l3<1E><15>m;ma<17><17>ma
<17>/<18>p<EFBFBD> P ma"D<1F> m;/q<>
1P&
ma"D<1F>&m;\<13>+<2B> <20>v"<08><19><13>v\<13>+#$<24>+/
d*w;<08>p<EFBFBD>a\<13>+D!"<08><08><18>.wd<13>!"<08><17>3;<08>
p<EFBFBD>aIp<EFBFBD>3"<08><08><16><00>3;M<>¥<0F><>°Jl<4A>Î<EFBFBD>Ž<EFBFBD><C28E>
<EFBFBD><EFBFBD>¥<1C><>¥<1D><><EFBFBD> <20><11><>"<08>"<00><><EFBFBD><17><12><>2<><32>2<><08>
<17><><EFBFBD><EFBFBD>2<><17><>[P.<2E>P2<>2<><17><08><>;?<3F><>
"<08>4<EFBFBD>Z<17>5"<08>
<05>5<EFBFBD>4<EFBFBD>*+
<10>?<3F><16><17><19>4W51
$2D!2<>!2/(32/<18>/2o!2<>!o!"<08><>B2<>
B;/<18><><EFBFBD>0(333\ ĩÅ<15>4<EFBFBD><08>l<EFBFBD>l <00>+<2B>"/
<EFBFBD>+"@<1C> +d/<18>?"@<1C> +JAVESYSTEM
<EFBFBD>+<2B>32<><17>3;<08>32<>3<EFBFBD>'q<>2<><17>v<EFBFBD>2<>e>

F<17>e<EFBFBD><17>#<23>e<EFBFBD>$,p,w<> <20>e<EFBFBD>d
Fze<7A>
<17><16>/
<01><1F><08>e<EFBFBD>eX <20><08>iz<69>d
F<17>e<EFBFBD>d;yf<79>3
sav
e-error\<00>jEND-CODE<44>+D,<2C>"D,;\<00>z
INDEX.* <11> <09>
<19><><EFBFBD><EFBFBD><08><><EFBFBD><EFBFBD><EFBFBD> <1C><>,.*
[MODE:<3A>+A)!<21>(l<>(J=[;\c[.As[
<11><13> <04><13><>?<3F>x`<60>+iC64INIT<49>i `ilha
<01><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><00>iC64FKEYSMi<4D>J0 <09><>i<EFBFBD>]lOi
lha{<00>ic(64<36>+$<24> <20><18>3
C) missing"/C)<29><19>
<1B><>\{<00>ibC)<29>+\{ jc(16<31>+\{jFORTH-83
<EFBFBD>+\<13>"j ASSEMBLERv-b<>b€-<2D>PUSHA<48>+<1C>
ijPUSH0A<30>+<1C>wjPUSH<53>+<1C><00>jRP<52>+<00><00>
jUP<55>+<00> 
3<EFBFBD>0(3<>d<EFBFBD>@/.";/<18><11>0<EFBFBD>3
<EFBFBD>3\<13><1B>9<11><00><10><18> <10><06><04>!<10><00><05><14><04>H<><04>
<EFBFBD>
<EFBFBD><04>H<><04><03><00><01><><02>`<60><00>@COLDa `i<18> <10>
<EFBFBD>$<24>!<10><00>%<25><00><10>$HP<48> <20>@ <20>9i<39>@\<13><00>@RESTA
RT9a `i <20>@ <20>9i<39>@\<13><00>l <00>-aC64KEY?]a<>
<EFBFBD>
]<05><02><>hl<1C>qaGETKEY<45>a<EFBFBD>><3E> <20><><EFBFBD>?<3F>I<EFBFBD>P<02> l
<1C><00>aCURON<4F>a<EFBFBD>J<18>H<EFBFBD> 
<EFBFBD> <0B>P<EFBFBD>l<EFBFBD>l<EFBFBD>m<EFBFBD> S<16>&<26>
><05>'<27><19><00>& <20>l<EFBFBD>$H<>(<28><>J<EFBFBD>
<EFBFBD> <20>$ @ml<6D>ml<6D>l<EFBFBD>m<EFBFBD>
S<16>D$Pl<>l<EFBFBD>( <20>l<EFBFBD>&HP<48>Um<55> S<16>&<26>><05>'<27><19>'<27>$ <20>
lQ&<26><05><>l<1C><10> @mJP<4A><50>l<17>+;<12>l3<1E>\n<>h<EFBFBD>
>ln<>JI(<28><><02>'<27>Hh<48>I<EFBFBD>l-n<18>J<EFBFBD>Hh<48>I<EFBFBD>l
<EFBFBD>+ n/<18><03><15>lq4<71><15> m"\<13>++n n<>l<EFBFBD><15><17>
m"<08>1\<13>+mJ<13>b<EFBFBD>\<13>+tn<74><08><13> FF<46>d<EFBFBD>><3E> L
<EFBFBD><EFBFBD>?<3F><><01> <20><11>d<EFBFBD>6\<13><00> <20><11>d7<>6<EFBFBD><17>3 no dev
ice\<13><><EFBFBD><EFBFBD><EFBFBD>><3E> <20><><EFBFBD>?<3F><>`<60>><3E> <20><><EFBFBD>?<3F><>><3E> <20><><EFBFBD>?<3F><><EFBFBD><EFBFBD>
<05><>l<EFBFBD>d`<60>d<EFBFBD> Ld<4C><18><02><07><02>l<>d<EFBFBD><00>d?DEVICE<43>
+<2B>d<EFBFBD>6<EFBFBD>d\$e<><65><EFBFBD> S<16>& Ld<4C>&<26>><3E> <20><><EFBFBD>?<3F><>$ `<60>><3E>
<20><><EFBFBD>?<3F><>&<26><>lha<68>eBUSOUT<55>+<2B>d<EFBFBD>6"e\<13>qeBU
SOPEN<EFBFBD>+
<18>ze\<13><00>eBUSCLOSE<53>+
<18>ze<7A>d
mp: Ip
<10>4z?
 d?'qa
W?<3F>pQ!"'q#<17>
\<13>+'qJ<13><13>q\<13>+ n<> <20>l3D n<>l3
<18><> \<13>+
<EFBFBD> n<>l3D\<13>+<2B>9<EFBFBD>"\<13>+<2B>a<EFBFBD>6<EFBFBD>?<3F><1B><><EFBFBD>a\<13>+<2B>
3"Z"<08>d<><1F>\<13>+o?<3F>qIp<49><17>d?<3F>q<EFBFBD>$Scr #
<20>5<EFBFBD>$Drv <20>5<EFBFBD>3"Wq<57><18> <00>$not <20>$updated
<EFBFBD><17>d?/<18>p<EFBFBD> #?F<17>4/q<>
1#?<3F>pd?<3F>qIq<49>
\<13>+o?<3F><08>l INDEX<45>+#<17><08><>!?%F<17>5%<1B>9#
%#?<3F>><3E><00>J<><4A><EFBFBD>\<13><00>hFINDEX<45>+Cg<43><00>d
#<17><08><>1?%F<17>5<EFBFBD> <20>%33<1E>f&gP#
%#?<3F>
<12>><16><00>J<><4A><EFBFBD><EFBFBD>g\<13><00>hINK-POT.*<2A><><00><>
<EFBFBD><EFBFBD><00>i INIT-SYSTEM;i<><69><EFBFBD>lha<68>><3E><>vi<76>xi<78>ih<69>
\h<><68>h<><05>l<><6C><EFBFBD>?<3F>@؍><3E><>i<EFBFBD><69><EFBFBD><EFBFBD>a<EFBFBD><61><EFBFBD> <20><> <20><><EFBFBD>i
<EFBFBD><19><>i<><15><>i<>@<05><><EFBFBD>@ <01>(;\<13><00>?KEY~?
<EFBFBD><00>?KEY?~?<02><00>?DECODE~?<04><00>?EXPECT~?<06>
SEAL<41>+<2B>/<18>- +;\<13>|?$ONLY<4C>-<2D><00>?%FOR
TH<EFBFBD>-<2D><00>?%WORDS .<2E>
@$ALSO<53>,<2C>@+DEFINITIO
NS<EFBFBD>-<2D>+%"<08><08>"<08>Z<17>;"<08><08><18><1B><>\<13>+<2B>
7;;#;;H;\<13>N?'COLDI0<49><11>+1@q@<40>-<2D>@:?
<EFBFBD> #??<3F>@\<13><00>@'RESTARTI0<49><11>+/ <02> @`<60>*)
I <20>
I@<40>)$* @`<60>.`[lCBM>SCR<43>l<EFBFBD> <20>l<EFBFBD>
l <00>lSCR>CBMHl<48> <20>l<EFBFBD>l <00>lEDITORv-2
z2zej<EFBFBD>+(<00>+<00>+<2B>SHADOW.*u.*.*.
*.*<2A><>.*.*-<2D>.*}<7D>.*<00><>.*ȿ+H<00>+
J<00>+<19><>+;<05>+<15><>$<18>)<29>$<24><02>%<25>&<18>(<28>&<26><02>'`ym<79>
S<16>&<26>><05>'<27><19>'<27>$ <20>l<EFBFBD>&<26><10> @mJP<4A><50>;<05><14> <09>
<00>cC64TYPE<50>c<EFBFBD> S<16>D$<24><16>& <20>b<EFBFBD><02>.<2E>><3E> l<>
<EFBFBD>?<3F>Hl<48>cl<63>b<EFBFBD><00>cDISPLAY<41>><3E>bc<>cc5chc<68>c\<13>
c<EFBFBD>><3E>lr<6C><72>JcB/BLK<4C>+<04><00>cBLK/DRV<52>+<2B><00><00>c
(DRV.*<00>+d"
<14>\<13>dDRIVE<56>+d$Z;
\<13>(d>DRIVE<56>+d$<1E>Z"<08>\<13>>dDRV?<3F>+
Z"<08>dh\<13>ydDRVINIT<49>+<2B>\<13><00>dI/O.*
<00><00>dBUSO <04><16>ma[<08>ml<>n<>lD\<13>+<2B>ma"
<08><18><08><13>o<EFBFBD><08><13>p\<13>+m<><17>\<13>+m<><17>\Tl
RVSON<4F>+
<12>b\ApRVSOFF<46>+
<18><>b\Tp*
**ULTRAFORTH83*** <00>prFORTH-GESELLSCHAF
T<EFBFBD>+%\<00>lSTAMP$.*clv18nov87<00>+'
q#<17> n<>l<EFBFBD><15><08><16><08>m<EFBFBD>\qGETSTAMP<4D>+
2{b'q<>?<3F>$ your sta g<>e<EFBFBD>dd
ze<7A>$u2:1
3,0,<2C> <20>e<EFBFBD>f<EFBFBD>e<EFBFBD>d<EFBFBD>6yf\<13>]gDISKOPEN<45>+d

<EFBFBD>
e
#<23>e<EFBFBD>dyf\<13><00>g DISKCLOSE<53>+d

<EFBFBD>e<EFBFBD>d\<13>
Yg1541R/W<>+<2B><08>3no filezd6<1F>d;P[<19>
<1B><00>5<EFBFBD>$beyond capacity<74>dCg<43><00><08>d<13>
<EFBFBD>33Z<17><><EFBFBD><EFBFBD>.<00><08>%<15>
<00>f&g<><00>f<EFBFBD>gP
g<EFBFBD><15><12><08><00>J<><4A><EFBFBD>z<15><15>g\<13><00>g <06>+<2B>?<3F><00>
><3E>><3E>\<13><00>>?CR<43>+<2B>?6

<EFBFBD>[<19>?\<13>+A)<29>
!a<17>(l<>(J<13>"<08><15>\<13><00>>OUTPUT:<3A>+r+<2B>(l
<EFBFBD>(<28>;\<13><00>>EMITZ><00>?CRZ><02>?TYPEZ>
<04>?DELZ><06>(?PAGEZ><14>3?ATZ>
<EFBFBD>??AT
?Z> <0C>i?ROW<4F>+o?<3F>\<13>t?COL<4F>+o?<3F>\<13>+A)<29>
!a<17>(l<>(J"<08><15>\<13><00>?INPUT:<3A>+r+<2B>(l
(<28>()P<><50><18><04><07><02><14><03>'<27><07>&<26><><07>l<EFBFBD><18>$%P
<EFBFBD><18><06><07><02><14>l<><18>&A*<2A><><EFBFBD><07><07>$<00><10><>$PF%F$<24>
&P<02>'l?k)k2!<21>k<EFBFBD> S<16><03><07>$<24><10><>l<><00>k2
@l<><07>$<24><07>%<25>8<><02><07>F<14><03>$<24><07><10>lha<00>k 2V
ARIABLE<EFBFBD>+A)Z<17> \$l 2CONSTANT<4E>+A) ! !<21>(
l<EFBFBD>(l\<lUNLINK<4E>+<2B><17>/<18><07>k\<13><00>l <00>*
)?*$* <09> <14><>?<3F><><18><02><07><02><14>K<EFBFBD>O<EFBFBD> <20><11>6\I
<EFBFBD><EFBFBD>I `I<><49>I<>``<60><00>b
PRINTABLE?Vb<56> <20>b<EFBFBD>J<>
l<1C>GbC64EMIT<49>b<EFBFBD> <20>b<EFBFBD><02>.l<>b<EFBFBD><00>bC64CR<43>+
<EFBFBD>a<EFBFBD>b\<13><00>bC64DEL<45>+
<18><>b<EFBFBD>4
<18><>b\<13>cC64
PAGE<EFBFBD>+
<18><>b\<13>+cC64ATjc<6A> S<16>&<26>$<18>><3E> <20><>
<EFBFBD>?<3F>lha<68>@cC64AT?<3F>c<EFBFBD>8<><02><07>F<14><>8<>><3E> <20><><EFBFBD>
?<3F><>(<28><><02>(h<><68><00><07>l<1C> <18><03><15>P<12><08>D<1F><12>l
?4<> <20>\<13>+:n<><16><08>n<><08>l<EFBFBD> n<>l<EFBFBD><15><08><16>po\
<13>+|n<><08>
<08>b\<13>+ml<>#<17>m"nK[<19><08>+
nJml<><15><13>ma[\<13>+Ko<4B><08>|n\<13>+Ko<4B><08>
<EFBFBD>o\<13>+ma"<08><18><08><13>n<EFBFBD><08><13>ma[ml<>J+
n<EFBFBD>\<13>+<2B>ml<>n[<19><08>n<>ml<><15>lD<1F>l<EFBFBD>ma[
\<13>+;p<><08><13>n\<13>+;p<><08><13>o\<13>+<2B>l
v<02>+<2B><08>f
<19>
6dP<17><15><08>f<19><00>f<EFBFBD>
6
<11>d
<13><08>f<19><00>f<EFBFBD>
6
<18>d<13>f<EFBFBD>
6
<1E>
\<13>+<2B>f#<17>\<13>+<2B>2t%<25>|4e5<65>
,E4e5<65>4\<13>+
<01>of
READSECTOR<EFBFBD>+d
ze<7A>$u1:13,0,<2C> <20>e
<EFBFBD>f<EFBFBD>e<EFBFBD>d<EFBFBD>6yf<EFBFBD>d

Neg7f<37>d<EFBFBD>\<13>g WRITESE
CTOR<EFBFBD>+d
ze<7A>$b-p:13,0<> <20>e<EFBFBD>dd

ze
 #$<1E><15>3;\<13>+<2B>3"<08><08>l#x<1F>l<EFBFBD><19><16>c<EFBFBD>K<19>
l#6<1F>d?\<13>+<2B>l
<01>r\<13>+<2B>r<EFBFBD>3"<08>9Sm<53>;q<>
<08>3"<08>9<EFBFBD>mJ9
\<13>+<2B>r
\<13>+<2B>r
\<13>
+<2B>3"<08>9wmm<><17>l<EFBFBD>r<EFBFBD>\<13>+<2B>r<EFBFBD><08><17>3[<08>r\<13>+<2B>r
<EFBFBD><08><17>3[<08>r\<13>+<2B>r<EFBFBD><08>l"<08><08>q<EFBFBD>[<19><16><00><16>3[
<08>r\<13>+<2B>r<EFBFBD>m"<08>3"m;<08>3;<08>r\"q DIGDE
CODE<EFBFBD>+<2B>a@ ~jSP<53>+<00><00>jIP<49>+<00><00>jN<>+$
<00><00>jPUTA<54>+<00><00>jW<>+<00><00>jSETUP<55>+S<16><00>
jNEXT<58>+ <00>NjXYNEXT<58>+ha<68><00>jPOPTWO<57>+<2B>
<EFBFBD><00>jPOP<4F>+<2B>.3j.BLK<4C>+D!"<08><08><00>$ Blk
H5<EFBFBD>>\k(SEARCH5k<35><07><07>$<00><10><>()<29>ɥ$%<25>
á&A*<2A><11>$PF%F$<24>&P<02>'lek<65><07>$<00><07><10><>&P<02>'<27>
*P<02>+<2B>$PF%F$<24>(PF)F
<EFBFBD><EFBFBD>I<EFBFBD><00> <0B> <0C>l <00><00>a
CUROFF<EFBFBD>a<EFBFBD><EFBFBD><EFBFBD> <0C><>
<EFBFBD>l <00><00>aC64KEY<45>+<2B>a<EFBFBD>6[a<><1B>
<EFBFBD><EFBFBD>a<EFBFBD>a\<13>Ca#BS<42>+<00><00>a#CR<43>+
<00><00>a C64DE
CODE<EFBFBD>+<2B>a@<1C><00><08>.?<3F>d<13>a@<1C>
<00>Q!;d
P<12><15><13><08><13>
?#\<13><00>a C64EXPECT<43>+Q!;
<EFBFBD><17>Q!"<19>
<00>?I?<3F><1B><><EFBFBD><15>4\<13>@bKEYBOARD
<EFBFBD>?La[ablb\<13><00>bCON!<21>b<EFBFBD><07>><3E> l n<>l<EFBFBD><15>
J?4<><19>1:n<>1<16><08>
<18><>b\<13>+tn<74><08>m"<08>
<00>n<EFBFBD><08><13>n\<13>+ m"<08>z?<3F>l<EFBFBD>[1<16><08>
<11>b\
<EFBFBD>+tn<74><08>
<1D>b\<13>+ n<>lq4<71><15>l<EFBFBD>K<19>l6<1F>d?<3F>
\<13>+<2B>

<EFBFBD><17><><00>|n<><08><00>J<><4A><EFBFBD>\<13>+
<05><17>
<EFBFBD>
<18><>bJ<62><4A><EFBFBD><EFBFBD>\<13>+z?<3F>d?<3F>lm<><17>n\<13>+n<>l?
4<EFBFBD> <20>\<13>++n<>l<EFBFBD>?<3F>?4<> <20>\<13>+n<><08>l<EFBFBD><15> n/
\<13>e<EFBFBD><65><EFBFBD> S<16>& Ld<4C>&<26>><3E> <20><><EFBFBD>?<3F><>$ `<60><><EFBFBD>><3E> <20><>
<EFBFBD>?<3F><>&<26><>lha<68>}eBUSIN<49>+<2B>d<EFBFBD>6<EFBFBD>e\<13>FeBUS!<21>e
<EFBFBD><07>><3E> <20><><EFBFBD>?<3F>l<EFBFBD><12>ZeBUSTYPE<50>+<2B><><EFBFBD><EFBFBD> %J<13>eJ
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>6\<13><00>eBUS@f<>><3E> <20><><EFBFBD>?<3F>l<1C>fBUSINP
UT<EFBFBD>+<2B><><EFBFBD><EFBFBD> f%<1B>J<><4A><EFBFBD><EFBFBD>6\<13>,fDERROR?<3F>+d
Nef<>
0<><16>
?f<><08>a<EFBFBD><19><1B><><EFBFBD>?<3F><18>d\
<EFBFBD>+<2B><01>+<2B><01>+
"<08>a<17>\]<00>2DEPTH<54>+;<12>"
<08><08>\<13>+1$"<08><00>$
compilingd<13>$ ok\
^G2(QUIT<49>+<2B>1?<3F>!<21>/<2F>2<EFBFBD><1B><>\^3'QUITI0
3^3QUIT<49>+B"B0&3\^,3 STANDARDI/O
<EFBFBD>+/*<10>ZD\^c3'ABORTI0<49>^<00>3ABORT<52>+
,(<28><11>3q333\_<00>3SCR.*_<00>3R#.*_<00>3(
ERROR<EFBFBD>+q3<71>4X +<2B> #?<3F>
<12>,"" !$J<13><08>

<EFBFBD><18><16>3 invalid nameX ~';#<17> <20>)^)"<08><00>
^)[<08>) !<21>(
 Z')L;<08>&)<29><08>'<27> !<21>(l<>
(3*<2A><07>(<28><07>)<29><18><02><07><02><14><07>&<26><07>'&Pl<><18>&<26>
<EFBFBD>%<25>&<26><07>$%Pl <00>$<18><02>$<24><02>%<25>$h8)<1F>$<24>$<24><02>%<25>
) <20>
<EFBFBD>$h<>$<24>$ȅ%<25>$E(P<><50>%E)P<>lcn<00>)>NAME<4D>+
%"<08><08><00>Z<17><16>1*<2A><08>z<15>
;\<13><00>6
UNLOCK<EFBFBD>+<2B><08>6<EFBFBD>\<13>8<EFBFBD><05><04><><00><05>l<EFBFBD><04><06><04>H<><04>
<14><01><07><02><07><03><18><02><07><02><14>l<><12><00>6FILE<,<1C>
7PREV.*<2A><>.*<00> 7B/BUF<55>+<04><02>(Y"PH<>
P<EFBFBD>`:7<><03><07>$<00><10><><18><04>&<26>&H<><04>'<27>'<27>7<>(<28>7<>)
)7P<1D><18><02><07><02><14><01><18>(<28><07>)<29><00>lf<13>(<28>*<2A>)<29>
+<2B>*<2A>(<28><01>*<2A>)(Pl )7P<37><50>(<28>*<2A><01>(<28>*<2A>7<>(<28>
"<08>,;\<13>+"<08><17>*+\s<00>-ORDER<45>+R,<2C><>%
K-/<18><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>F<17>4<EFBFBD>,K-\sY-WORDS<44>+D,""<08>
<EFBFBD>><3E>1<16><00>><3E>a+<2B>4<EFBFBD><1B><><EFBFBD>\t.(FIND;.<2E>
<03><07>$<00><10><>&)<1F>(<28><00>$<24>H<EFBFBD>$<24>%<25>$$P<07><01>l<>H<>$
)E(P<><18><02>$<24>)<29><00>%<25>*<2A>(<28>&Q)PK<50>P<EFBFBD><50><03>*<2A><07><>)<29>
<EFBFBD><EFBFBD>l<><18>.<2E><07>$<24><07>%<25>$<24>&)8<>$<24>$<24><02>%<25>&) P <09>$<24>
<EFBFBD>%lB.<2E>$<24><07>
<16>h:J<><4A><EFBFBD><EFBFBD><00><12><17><><00>h:<3A><17>
<EFBFBD>J<><4A><EFBFBD><EFBFBD>9<EFBFBD>\<13>8:COPY<50>+<2B><17>:\<13>T:CONVEY<45>
+<2B>#F<17><15><16><<19><16>3nein<69>:\<13><00>:LIMIT<49>+
<EFBFBD><EFBFBD>
;FIRST.*<00><>; ALLOTBUFFER<45>+#;"B"
<EFBFBD>%7a<19>%7<>#;[#;"<08>{87"<08>;7;\<13>
);
FREEBUFFER<EFBFBD>+#;";%7<><19>.#;"!87<>
"#;"<08><16>"<08><1B><>#
<14>EH<><04><14><01>l <20>
<11><17>3 stack empty\\<00>1.STATUSI0
k.*<2A><12>
;\\<00>1<EFBFBD>PUSH<53>+<2B><12><08>P"P<12>1PP\\<00>1L
OAD<EFBFBD>+<2B><08><18>D!2D!;<08>!2<>!<21><17>1<EFBFBD>/\]2+LO
AD<EFBFBD>+D!"<08>#2\]c2THRU<52>+#<17><08><>
%#2J<32><4A><EFBFBD>
\]y2+THRU<52>+#<17><08><>
%k2J<32><4A><EFBFBD>\]<00>2c--><3E>
+<2B>D![<08>!<21><17>1\]<00>2RDEPTH<54>+B
;""<08>;
%7#;[\<13><00>; ALL-BUFFERS<52>+#;"7;#;"<08><19><1B>
<EFBFBD>\<13>+J
 1\<13>+<2B>*<2A>#<19><08>(\<13>+<2B>(%"P
<12>"<08><08>^<00>PZ<17>P<12>"P<12><08><17><19>
a<17>*1<16>.<13>(<28>Z<>a|;<3B><00>a<17>;<3B>
aS*a<17><19><1B><>9<13><1B><>\<13><<3C><05><07>$<00><10><><18><04>
<06>*H<><04><00>+<2B><01>$<24>,<2C>$<24>-,<2C>5<EFBFBD>,E*<2A>-<2D>+<2B> <0B>,E&<26>-
<02><00>5.<2E>+<18><>5\<13><00>5U.<2E>+<2B><17>5\<13>C5.S<>+;
<12>"<08><08>
 <03><><EFBFBD><EFBFBD><EFBFBD>%"H5F<17><><EFBFBD><EFBFBD>\<13>R5C/
L<EFBFBD>+)<00><00>5L/S<>+<00>
6LIST<53>+<2B>3;<08>$Scr <20>3
"<08>dxH5<48>$Dr `d<>56<><17><>.<00>><3E><00>?%F
<17>5<EFBFBD>4<EFBFBD>3"<08>9%6$<1E>6<>q4#?J<><4A><EFBFBD>?\<13>6P
AUSE <00><00>6LOCK<43>+<2B>"}<12><19><00>d<13>"<08>
<EFBFBD>6<EFBFBD><1B><>}<12>
+<2B>,<2C>"<08>a\<13>+<2B>,aD,\q<00>,A
LSO<EFBFBD>+<2B>,"

-<19>3Vocabulary stack fullD,"
F<17>,[D,;\q<00>,TOSS<53>+/<18><><EFBFBD>,[\r<00>-
VO
CABULARY<EFBFBD>+A)<29> !<21> !X %" !%;<08>(l<>(D,;
\r/-FORTHv-)<29>)<29>r<00>-ONLY<4C>-!@!@<40>-<2D>(l<>
(<28><17>,;D,;<08>,\r<00>- ONLYFORTH<54>+<2B>-<2D>-<2D>,<2C>-\
s<00>- DEFINITIONS<4E>+D,
\<13><00>9BLOCK<43>+<2B>9}9\
<13><00>9UPDATE<54>+
<18>7"z#<17>\<13>A9 SAVE-BU
FFERS<EFBFBD>+7<>69<><08>!8<><1B><>7<>6\<13><00>9
EMPTY
-BUFFERS<52>+7<>67"<08><08>
<00>{8<><1B><>7<>6\<13>
:FLUSH<53>+<2B>9:\<13>+<2B><08>9n9<6E>7"{8,9<><00>9
Z"<08><15><08>9<EFBFBD><17>;J9\<13>+<2B>9P<12><13><15>[P<12>
<19>1<16>$<13><16><12><17><><00>/<18><><EFBFBD>
<05>+A)/<18>0
!<21>(<28><02>hH<68><1C>ȅ<1C>lz<00>0(IS<49>+<2B><12>aP"
;\<13>+"/I/"<08><08><19>/<18>/"<08><16><16>3 not de
ferred\z<00>0bIS<49>+;/<2F><08>0 +1$"<08>
6!<21>0 !d
;\.*<00>+O2
 -<19>3 tight stacke1J<13><18><00>
e1<65><13><17>3dictionary full<6C>$ still full \
["1?STACK<43>1<EFBFBD> 8<><07>H<><14>P <09> <20>h1\<13>g1<67>
<10>'l<><<3C>(E,<2C>)<29>-<2D> <0B>,<2C>$<24>,<2C>$lG<<3C>,<2C>$<24>-<2D>%l<><l<>
<12>+%"<08><08><00>PZ<17><16><<3C><12><1B><>\<13>+}#<17>"
}<12><16>(<00>"<08>X <20><18><00>"#"<08>;<08><17>"
<08>N<><4E>\<13>+%<12><R,<2C><> <00>%"z<15><18>
/<18>-%
;/<18><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><15>,"z<15><18>
/<18>-<2D>,;\<13><00>;
CU
STOM-REMOVEI0<49><11>+<2B><08><'=M<{=<3D>(<28><08>i(L;<08>
~';\<13><00>=
+<2B> <20>\<13><00>4HOLD<4C>+<2B><17>4[<08>4"<08>
\<13><00>4<#<23>+<2B>4<EFBFBD>4;\<13>W4#><3E>+<2B><15>4"<08>4<EFBFBD><08>
\<13><00>4SIGN<47>+<2B><18>
-E4\<13><00>4#<23>+<2B>"<08>

 <09>U<18>
<18><>
0<>E4\<13>5#S<>+5<><15>
<EFBFBD><1B><>\<13>@5D.R<>+z<15>)<29>|4e55<>4<15><08><19><08>
<16>4#?\<13>u5.R<>+<2B><18>[5\<13>5U.R<>+<2B><17>[
5\<13><00>5D.<2E>+<2B>[5<>4\
F<14><02><1C>H<><1C><01>l
o<00>+VARIABLE<4C>+A)F<17> \p|+UALLOT<4F>+<2B>0"
<08>
<18>[<19>3
Userarea full0"<08>0[\p<00>+
USER<EFBFBD>+A)F<17>+!<21>(<28>8<><02><07>F<14><02><18><04><07>H<EFBFBD><05>
<01>l p),ALIAS<41>+A)~'"<08>J
 1<16> /<18><>
<EFBFBD> <20>
 Z'S*;\q],VP.*<00>-<2D>-<2D>-:<3A>aj
q<00>,CURRENT.*<2A>-q<00>,CONTEXT<58>
<15>8<>
<EFBFBD>$read 8<>Y<><59>\<13>+7<>"<08>"<08>a"<08><17>
<19><1B><>7<>6<EFBFBD>!8\<13>+aP<12>;Z"<08>a;<08>
t<17>7<>6\<13>+7"<08><08><00>z"<08><18><1B><>\<13>+7"
<08>"<08><18><1B><>z"<08>\<13>8CORE?<3F>+87<38><15>\<13>
f9(BUFFER<45>+87H8<48>8<EFBFBD><1B><>\<13>z9(BLOCK<43>+87H8
<EFBFBD>8<EFBFBD>8<EFBFBD><1B><>\<13>9<EFBFBD><1C>hH<68>l<1C><00>9BUFFER<45>+<2B>9<EFBFBD>9
/NOTFOUNDI0<49>/x<00>/
NO.EXTENSIONS<4E>+<2B>3Ha
eh?\xO/ INTERPRET<45>+<2B>/\<00>+<2B>1$<24>.<2E><08><00>
1<16><00><13>/<2F>3 compile only<6C>/<2F>p'<27><18>I/<2F>
/\<13>+<2B>1$<24>.<2E><08><<19><00><13>/ !<21>/<2F>/<2F>p'<27><08>
<<19><00>^^<18>I/<2F>/\y<00>/a[<5B>+/0<>0<EFBFBD>/1
$<24>\y{0]<5D>+/;0<>0<EFBFBD>/1$<24>\<13>+<2B><17>3Crash\
z<00>0DEFER CLEAR<41>+X <20>}=L;\<13><00>=(F
ORGET<EFBFBD>+<2B><08>(<28>3 is symbol<6F>;=\<13><00>=FORGET<45>
+;/<2F>/$"<19>3 protected<65>*<2A><08>(<28><00>*<2A>
<EFBFBD><17>E=\<13><00>=EMPTY<54>+/$"}=/2"0;\
<13>>SAVE<56>+X }=%"<08><08><17>"<08><08>;"<08><08>
<18><1B><>}<12>/D\<13>>>BYE<59>+<2B>9<EFBFBD>c\<13>+<2B>?P<17>
<EFBFBD><00>9\<13><00>>STOP?
4<>>D!"<08><08><00>3;<08>!
"<08>3;33\_<00>3<EFBFBD>(ABORT"<22>+<2B>$<24><08>P,(<28><12>
d<13>\<13>+<2B>$<24><08><12>d<13>\_V3FABORT"<22>+6
!<21>3\$\_4FERROR"<22>+6!<21>3\$\`%4BL<42>+ `
:4 -TRAILINGs4<73> S<16><07>&<18><07>%<25>'<27>$<18><13><>&I <20>
HP<02>%<25>h<EFBFBD>%l<1C>P<EFBFBD>F'F%<10><>l<1C>e4SPACE<43>+?4
?
\<13><00>4SPACES<45>+<2B><17><><00>4J<34><4A><EFBFBD>\<13>
d<13><1B><><EFBFBD>\
<13>+<2B>
1<16>\n<00>*NAME><3E>+<2B>S*<2A>J
 1<16>
"\n<00>*>BODY<44>+a\n+.NAME<4D>+<2B><08><00>
<08>(<28><00>$|<7C>
1#?<3F><00>$???<3F>4\o+CR
EATE:<3A>+A)<29>'<27>,"D,;<08>0<EFBFBD>\oh+:<3A>+r+<2B>(<28>8<>
<02><02>F<03><0E><02><0F><02><18><02><0E><><1D>l o<00>+A;<3B>+<2B><17>
6!\0<7F>'\o<00>+CONSTANT<4E>+A) !<21>(<28>8<><02><07>
7<>(<28>(<28>7<>)<29>7l<37>7<EFBFBD>7(DISKERR<52>+<2B>$error
! r to retry <20>?<3F>
r<><19>
R<><16><16>3abo
rted\<13>A7DISKERRI0L7<4C>8R/WI0<49>g<EFBFBD>+<2B>z"
<08><18>ja<17>"#<17>32<>2q3<71>z<17>a"F
<EFBFBD>"<08>8<><00>$write 8<><1B><>
<18><>t#<08>\
<13>+a<17><08>t<17>\<13>+<2B>{82<>2q3P<12>Z"<08>
<EFBFBD>
<14>z
$<24><07>8<><02><07>F<14>&H
0<05>i<EFBFBD><69>H<EFBFBD><48>
<03><>$<24><><01>l v1.FIND<4E>+D,<2C>"<08><08>"<08><19>
<00><17>"9.<2E><00><15>.d<13><08>,a[<19>
<00><08><17><1B><><EFBFBD>
<15>\v<00>.'<27>+$<24>.<2E><18>3Haeh?\v7/I[COMPIL
E]<5D>+;/ !\vo/C[']<5D>+;/^\v<00>/ NULLSTRING
?<3F>+<2B>J<13><18><08><00>\H<18><1C><02>H<><1C><00><0F>l w
<EFBFBD>/
>INTERPRET<45>/0x<00> $<00>OFF<46>+<2B><17>;\%
<00><17>CLIT <18>8<><02><07>F<14><0E><07><><07>P<02>l %
<EFBFBD>LIT1<18>8<><02><07>F<14><0E><07><0E><07><18><02><0E><02>l %
)GLITERAL<41>+<2B>/<00>1<16>
6!/ !d6!
!\&
t0<<3C><18><03><>$<24><>l&~0=<3D><18><07><>P<EFBFBD>&<00>
UWITHIN<49><18> S<16><01>E$<24><07>%<25>
<EFBFBD>E&<26><07>'<27><>l<EFBFBD>
'<00><W<18><07>$<24><07>%<25><18><02><07><02><14>%q \:Q P
AD<EFBFBD>+X
b<>\:<00> ALLOT<4F>+L[\:<00> ,<2C>+X
;F<17> \:!C,<2C>+X <20><13><17> \:!<21>COMPILE<4C>+
<EFBFBD><12>aP" !\;,!#TIB.*;h!>TIB.*`!s
avesystem @:*>body ! cold
;u
!>IN.*;<00>!BLK.*;<00>!SPAN.*;J!T
E<>+X <20> !\.<00>?PAIRS<52>+<2B><16>3 unstructur
ed\Ih<><68>lh<><00><>8<><02><07>F<14><><01>Ȣl/
<00>CASE?b<1C> S<16>$AP <09>%QPl<><18>l08BI
F<EFBFBD>+6!<21><1B><1B>\0\DTHEN<45>+=<3D><><17><1B>\0<00>DEL
SE<EFBFBD>+<2B><17>6!<21><1B><1B><08><1B>\0<00>EBEGIN<49>+UF\0
<00>EWHILE<4C>+F<17>F6!<21><1B>/<18><>H\<13>+<2B><1B>/<18><>
<EFBFBD><19>
<00><08> <08>#<23>\dL$b.(<28>+
)<29>##?\d<00>$a
\<5C>+<2B>!"6h#6$<1E>!;\d<00>$b\\<5C>+<2B>c<EFBFBD>!;\d
%\NEEDS<44>+$<24>.<2E><15><00>$\d%HEX<45>+
<10>
;\d7%DECIMAL<41>+

<EFBFBD>;\ej%DIGIT?<3F>+
0<><16>
 [<19>
<18><><16>
 [<19><00>"<08>[<19>
<EFBFBD><13><08>\e<00>%
ACCUMULATE<EFBFBD>+<2B>P<12><08>"<08><1D>
<EFBFBD>"<08><1D><16>\e<00>%CON D+<2B><16> SH<><18>&<26>
H<EFBFBD><07>'<27><07><07>$<24><07><01><07>%<25>l #<00>1+%<17><18><07>l
<00><07><07><00>l #2+c<17>P<>#<3+p<17>PSv
<EFBFBD>PM\<17>PG#i1-<2D>8<><07><01>l<00><07><07><00>l #
<00>2-<2D><18><>$<00>TRUE<55>+<2B><>$<00>FALSE<53>+$<00>
"-1<>$<00>!0<>$<00>1<>+$<00>2<>+$B3<>
+$L4<>+$VON<4F>+<2B><17>;\ <01><>)<29>'lL7
<00>CMOVE><3E><1F> S<18>%<25>'<27>'<18>%<25>)<29>)<29>%<25>$<18><05><>(
<EFBFBD>&<26>P<EFBFBD>F'F)F%P<><50>l 7<00>MOVE<56>+P<12><19><00>
<EFBFBD>d<13>D\8% PLACE<43>+<2B>P<15>#<17>, <20>\8
f COUNT<4E> <20><07>$<18><01><07><07>%<25><00><07>8<><02><07>FlT
8<00> ERASE<53>+<2B><17> \9<00> FILL<4C> <20> S<16><>$<24>'<27>
<EFBFBD>(HP<48><50>)JP<4A><50>&<26><06>(HJP<4A><50>l :<00> HERE<52>+L"
<01><02><0E><18><1C><03><0E><><1C><0F><18>h<><68>l<1C>+<2B>~'"<08>
*;\j<00>(EDOES><3E>+6!<21>(
l!6!<21>(\<13>+<2B>
<18>1
<18><><19>\<13>+X
<18>1
<18><><19><00><08>#X <20><08>#
<EFBFBD><1F>~'[<08><17> \k<00>(?HEAD.*kv)|<7C>+^)"<08>
<13>^);\l<00>)WARNING.*<00>+<2B>)"<08>~'"<08>,"
9.<2E><15><00>4~'"+<2B>$exists <20>>\l<00>)CREATE
<EFBFBD>+X D!" ! <02><0E>l +B<><42>(+LOOP<4F><50><18><07><02><02>
<EFBFBD><02><02>q<14><18><02><07><02>(Dl ,<00><><EFBFBD>I'<1B><00>8<><02>
<07>F<18>HH<48><02><07><>HH<48><02><01>l ,!<1B>Js<1B>PR-
m<1B>BRANCH<43><18><0E><0E>$<24><0F><0E><0F>$<24>l -y<1B>?BRA
NCH<EFBFBD><1B><14><18><02><07><02>(<28>Kld.<00>>MARK<52>+X
<EFBFBD> !\.<00>>RESOLVE<56>+X <20><08><16>;\.<00><MA
RK<EFBFBD>+X \.M<RESOLV D<>+<2B>#<23>"\bQ#PARSE
<EFBFBD>+P<12>#<23>!"<08>"<22><08><08>"P<12><08><16><08>l<19><16>![\b
<00>#NAME<4D>+?4X#B"d\c$STATE.*c)$eAS
CII<EFBFBD>+?4X##J1$"<08>^\c7$,"<22>+
"<22>#X
<EFBFBD>#<17> n \cw$<24>"LIT<49>+<2B><12><12><15> <20>PP\c<00>$
<EFBFBD>("<22>+<2B>$\c<00>$A"<22>+6!<21>$\$\d<00>$<24>(."<22>+<2B>$<24> #?
\d<00>$B."<22>+6!<21>$\$\d<00>$a(<28>+
) <04>+<2B>H<>
<07><07><07><><07><03><07>l<> <00>ORH<><07><07><><07><07>
l<> AND3H<>1<07><07><><07>1<07>l<> +XOR
pH<>q<07><07><><07>q<07>l<>!h-<2D>H<>8<><07>H<><07>
<01><07><03>l<>!<00>NOT<4F><18><><07><07><><07>l !<00>NE
GATE<EFBFBD>8<><38>"<00>DNEGATE<54>H8<48><38><07>H<><48><07><07><><07>
<EFBFBD><01><><07>l
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><07>$<00><10><><18><07><07><02><14><00>`"<00>
+<2B>P=<3D><><08><18><00><15><15><08><13><18><00><16><08>
<EFBFBD><13><15><08>9\5X2/<1F>
<EFBFBD>ʑ<07><07>l6
/MOD<4F>+P<18><><12>\6//<2F>+6<1F>\6dMOD<4F>+
6<1F>\6r*/MOD<4F>+P<12><1D><12>\6<00>*/<2F>+<2B><1F>
\6<00>U/MOD<4F>+<2B><17><08>\6<00>UD/MOD<4F>+P<12>
<EFBFBD><1E><12>P<12><1E>\7<00>CMOVEF<1F> S<16>D$P F%<05>
l <00>(<28>&HP RSIVE<56>+<2B>'\<13>+<2B>'<27> <00>J<16><08>
<EFBFBD>\hH' IMMEDIATE<54>+
@Z'\h<00>'RESTRICT<43>
+
<18>Z'\i (
CLEARSTACK.(<28><14><04>H<><04><14>l
i(HALLOT<4F>+<2B>"<08><08><16>;a<17><15><16><08>;F
<EFBFBD><15><08>, ,(<28>;\i@(HEAP<41>+<2B>"z\i<00>(H
EAP?<3F>+<2B>(}<12>\<13>+<2B>X <20><08><16>i(<28>(<28>D<1F>(<28><08>~
'[<08>'\<13>8<><02><02>F<03> UMAX<41>+<2B><19>\)<00>
UMIN<49>+<2B>[<19>\)<00>EXTEND<4E>+<2B><08>\)<0F>DA
BS<EFBFBD>+<18><><00>\)"<22>ABS<42>+<18><><00>\<13>+9<13>a
<17>PP<12>PP\*7<><37>(DO<44>+<2B><08>i<>\*<00><><EFBFBD>(
?DO<44>+<2B><08><16><08>i<><69><12>"<08>P<12>\*<00><>BOUND
S<EFBFBD>+<2B><08><15>\*<00><><EFBFBD>ENDLOOP<4F><50><EFBFBD>l+<00><><EFBFBD>(LOOPL
<EFBFBD><18><01><02><02> <0B><02><00><02>l <00><05><02><0F><> H<>$ <20>"<22>$
lQ"<22>"<22>*<2A><03><07>$<00><10><><18><>!<21>&<26>&<26><>!<21>'<27>'8<>$<24><>!<21>
$<24>%<25><>!<21>%<25>
<EFBFBD><07><>!<21><07><>!l<>#<23><04>$%<25>=<3D>&QP<11>&P
<EFBFBD>'<27>$PF%F$l$#<23>&<26>(<28>'<27>)<29>&Q<14>&P<02>'<27>$PF%F$(
<EFBFBD><14>*<2A>$%P<>8<EFBFBD><02>&<26><07><>!H<>'<27><07><>!<18><04><07><07><02><14>
<EFBFBD><04><07>$H<><04><01><07>%<25><>*<2A>$<24>(HF*<10><> <20>$<24>l b<00>"
SOURCE<EFBFBD>+D!"<08><08><00>9<EFBFBD>cd<13>!o!"\b<00>#WOR
<08>8<><02><07>F<14><04><07>H<><07><01>l <00>ROT<15>
<03><07>%<25><01><07><03><07><05><07>$<24>%<25><07><01>$<24>H<><07>%<25><07><07><04>
<07><07>%<25><07>l -ROT<4F>+\sNIP<49>+<2B>
<EFBFBD>\<00>UNDER<45>+<2B><08>\<00>PICK<43>+#3;<12>
"\<00>ROLL<4C>+<2B>P<12>;<12>a<17>#3<1E><1F>\
<EFBFBD>2SWAP<41>+P<15>\<00>2DROP<4F>V2DUP
<EFBFBD>+<2B><08>\
%<25>l 3<00>M*<2A>+<2B><08><18>P<12><00>
<EFBFBD><08><08><18>
<00><16><12>P<12><1D><12><00>\3<00>*<2A>+<2B><1D>
\3 2*5<1E>
<EFBFBD><07>*<2A>l <00>+<2B><17>3division
overflow\4.UM/MOD<4F><1E><07>)<29><07>(<28><18><02><07><02>
<14><07>%<25><07>$H<><07>'H<><07>&<26><18>*8<>%<25>)<29><>$<24>(<28>&*<2A><04>
$<24>%&'&&&%&$JPߠ<01>$<24>%<25> <20>b\<13>&<26>H<>%<25>H<>$
<EFBFBD><07><01>'l5^M/MOD<4F> 2<><08> <20>&;&<26><17>P<12>
<EFBFBD><15>%&<26>%
-@<1C>9<13>P<12>%&<26>%o&<26> <00>;
<EFBFBD>%&<26>%<25>%<25>&<26>%<25>&<26>%)&<26>%<25>%<25><18><1B><>&<26>&<26>&&<26>
<17>%)&<26>%<25>T<>\gB&'NUMBER?I0L&ge'NUMBER
<EFBFBD>+p'<27><08><18>3?<3F><18><18>\hv'LAST.*<00>+~'"
<EFBFBD>\h<00>'HIDE<44>+<2B>'<27> <00>"<08>,";\h<00>'REV
EAL<EFBFBD>+<2B>'<27>
<00><17>,";\h<00>'IRECU 0<><30>E$<24>
<EFBFBD>%l<>'QU<<19><07>$<24><07>%<25><18><02><07><02><14>E$<24><07>%
<EFBFBD>l<>l<>(<00>><3E>+<2B>U\()0><3E>+<2B><16>\(7
0<><3E>+<2B><18>\(fU><3E>+<2B>\(v=<3D>+<2B><16>\
(<00>D0=<3D>+<16>\(<00>D=<3D>+<2B><16><16>\(<00>D<<3C>
+<15><15><16> -<19><15><15><00>\<13>+9<13><00><08>\
)<00>MIN<49>+<2B>-<19>\)EMAX<41>+<2B>U<18>\)W
IB<EFBFBD>+\!"\;W!QUERY<52>+<2B>!
pW?Q!"o!;<08>!
<EFBFBD>D!<21>\<<00>!SCAN<41>+P<12><08><1B><00>J<13><16><00>
<EFBFBD>#<17><08><1B><>9\< "SKIP<49>+P<12><08><1B><00>J<13>
<EFBFBD><00><17>#<17><08><1B><>9\<;"/STRING<4E>+<2B><03><15>
<08>z<15>\Ia<49>I{<7B> I)<29>I[<5B> <09>`=<00>"CAPITA
L<EFBFBD>"<22> <20>"<22>l ><00>"
CAPITALIZED"<22><07>$<24><07>%<25>$<24>
&<26>D&P<05>l <0F><1B><>\0<00>FREPEAT<41>+F<17>6!<21>Q
\0<00>EUNTIL<49>+F<17>6!<21>Q\1BDO<44>+6!<21><><EFBFBD>
P\1C?DO<44>+6!<21><><EFBFBD>P\11DLOOP<4F>+P<17>6!
J<EFBFBD>6!<21><><EFBFBD>\1eE+LOOP<4F>+P<17>6!<21><>6!<21><><EFBFBD>\1`
<1D>LEAVE<56>+<2B><><EFBFBD><12><17>"<08>P\2<00>UM*<2A><1D><07>$<24>
<EFBFBD>%H<>&<26>'<27>'&&&%&$<24><18><07>'<27>'H<><07><>&<26>&<26><06>%P<02>
$JP|<7C>'<27>H<>&<26><07><01>$<24><07> VERT<52>+#<17> <20>%<25><00>%<25>
<1B><><EFBFBD>\<13>+<2B>&"<08>\<13>+<2B> <20><17>&[\<13>+<2B><17> \fM%
DPL.*<2A><><EFBFBD>+<2B> 9<13><15>9<13>\<13>+<2B> 9<13><08><12>
<00><15>&"#<17><08><13><08>\<13>+
&@<1C>

<EFBFBD>d
$@<1C>
<10>d
H@<1C>
<10>d
%@<1C>
F<17>d<13>\<13>+
,<2C><08><19>
.<2E>\<13>+&"<08><17><19>
<13>&[\.*g
&NUMBER?<3F>+<2B> <11>
<EFBFBD>c<03>_<EFBFBD>d
<03>`<18>e<03>_<EFBFBD><5F><EFBFBD>f<03>`<60>©o<C2A9>H<07>b0<05><><EFBFBD>H<07>?<3F><>E <20><>
l<EFBFBD><EFBFBD> <20>ѐ <20>ѐl,t<>G----.*
g726e <20>Ҡ
fw<66><05>Y<EFBFBD>H<07>, <09><><EFBFBD> <20>Хi<02><01><13>, <09><><EFBFBD> <20>Хi
<02>lTҥ]<5D><00>]<5D>^<5E><00>^<5E>X<EFBFBD>H<07>P<EFBFBD>`h<>@<40><16>w <20><>JP<4A><50>
<EFBFBD>w <20>Ҡ<00>]<5D>^<5E>_<EFBFBD>w <20><><EFBFBD>_P<02>` <20>ҥ_E<5F>P<EFBFBD><50>`E<>P<EFBFBD><50>]
<EFBFBD>^<5E>w <20>Ҋ<EFBFBD>w <20><>l<EFBFBD>ҩ <20><0F>2<03>P<EFBFBD><50><EFBFBD><EFBFBD>?<3F><>0<14><><EFBFBD>2l
/<2F>RD<52>+5ə<18>3
no Ramdisk\<13>+<2B><>F<10>;\
k<>ADR<44>+F#<23>\<00><>DATA<54>+<2B><>Z<17>\<13>+Z#<23>\
<00><>BEHIND<4E>+<2B><>Z<17>\<13>+Z<10>[\<00><>BLK#
<EFBFBD>+
<10>\<00><>ID<49>+
<10>\<13>+<2B><>
#<23><>c<EFBFBD>Z<17>
[<19>3 Ramdisk full\<13>+<2B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<13>+<2B><08><18>D<>"
<08><>a;Z<17><15><08><>;<08>ɔ<EFBFBD><C994>\<13>+<2B><>"<08><08><18>Z<17>
\O<>DEL<00>Destination-Disk<73>?<3F>?<3F><>"<08><08>
P<12><08><17><08><12><15>:<3A><00><>%<1B>9<EFBFBD>J9J<39><4A><EFBFBD><EFBFBD>9\
<00><>COPYDISK<53>+F<17><15><16><>;#<17><08><16><<19><16>3 R
ANGE ERROR!<21><>6<1F><08><00>P<12><17><><00><08><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
J<EFBFBD><EFBFBD><EFBFBD><EFBFBD><12><08><00><><EFBFBD><00>\<13>3;|z4<7A>|z<>p`4<>p`<60>
e><3E><>"
<07><19><00><>d<13>
<17>X +<2B><11>\D<>A
UTOLOAD.*<1B>TAPE +;<3B>C<><03>\ <20>RDN
EW<EFBFBD>+b͋b͋<08>/<05>[<19>3range!<21><08><><EFBFBD>;<16>
<EFBFBD><08>
<10>;(͡<17>I<>\<13>+<2B> <00>$error \p
<EFBFBD>RDCHECK<43>+<2B><>pɸ"<08><08><17>c
<05><15><18><16><><EFBFBD><15>
?H5<48>"<08>P<17>5<EFBFBD>4<EFBFBD>+<00>a"d<><1F><17>5<EFBFBD>$:F<17>5
<EFBFBD>Z<17>
<18>#?<3F>><3E><13><1B><><EFBFBD><EFBFBD><EFBFBD><16><>\ S<16>><3E><><EFBFBD> <20><><EFBFBD><00>
<EFBFBD><EFBFBD>$8<><14>d<>J<>d<>$<24>%<25> <20><><EFBFBD>(<28>)<29>& 

<00>(4
112)<00>la<>l9al<06> J6<00><00>{k<>
Vc?z<>3>
<EFBFBD>
^<5E> QЈP<D088><50><EFBFBD><EFBFBD>]<5D>å^<5E><> Q<> QХ<51>P<04><><EFBFBD>_ Q<> Q<>
<EFBFBD><EFBFBD>Q_<EFBFBD><01> Q<> Q<><51>_P<02>` Q<> QЅ<51><D085>`E<>PC<50>_E<5F>P<EFBFBD><50><EFBFBD>
E<EFBFBD><EFBFBD> <09><> `<60><>l<EFBFBD>Р QЈP<D088>E<EFBFBD>P<EFBFBD><50><00><07><10><>l<EFBFBD><6C>`<60><><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>I<07>lp<6C><70><EFBFBD>Z <1B><><EFBFBD>إ<EFBFBD>h<EFBFBD><00><> `<60> <20><> <20><> <20><> <20>
Щ<EFBFBD><EFBFBD>H<07>* <20>Р<EFBFBD> J<><4A><00>2 R<>H<EFBFBD>P<><50><EFBFBD>HD<48><44>(<28>?<3F><><EFBFBD>
<EFBFBD>><3E>Y2<03><>I?<3F><><EFBFBD>b)<02><07><><EFBFBD><EFBFBD>l<EFBFBD><6C> <20><>lR<6C>l<EFBFBD><6C>ȅ<EFBFBD> <20><>
<EFBFBD><EFBFBD><EFBFBD>_<EFBFBD><EFBFBD><EFBFBD>`<60><> !??<3F>$Aber ohne Handbuch?<3F>
$und die Hilfe der?<3F>$FORTH-Gesellschaf
t?<3F>$bleibt FORTH ein ADVENTURE!?\&<26>
MEMTOP<4F>+<00><00><>RAMDISKv-<2D><><EFBFBD><EFBFBD><0F>(RD.*
<00><>PLEN<45>+1<00><>ADR><3E>+<2B><>"<08>\<00><>>A
DR<EFBFBD>+<2B><>"<08>\ <09>ADR@<40>+<10>"<10>\<1C>RD?<3F>+
<EFBFBD><EFBFBD>"<08><08>"<08><><EFBFBD>1\ INIT<49>+??<3F>$ Tape2.
00 <20><>/0<><30>08<>0d&<26>"<08>&<26><><17><>\,<2C> BAM
ALLOCATE<EFBFBD>+Cg<43><13>
<12>&g<><18><00> Z<17>
<18><> <20>
<12><17>g<EFBFBD><08>g

ze<7A>$i0<69> <20>e<EFBFBD>d\<00><>
FOR
MATDISK<EFBFBD>+

ze<7A>$n0:<3A> <20>e<EFBFBD><17>#<23>e<EFBFBD>dyf<79><13><>
\.*<2A>տ+<00>+?<3F>$Insert Source-Disk<73>?<3F>?
<EFBFBD><EFBFBD><EFBFBD><15><> %<1B>9<EFBFBD>J<><4A><EFBFBD>?<3F>$Insert 3no file
<EFBFBD><08><>/<2F><>c<EFBFBD><19><1B><00><18><00><><EFBFBD><00>ɋ<08>cD<1F>$<00><18>
l<>ʊ<><CA8A>c<EFBFBD><63><EFBFBD><EFBFBD><EFBFBD><00><08>ɋ/<2F>h<EFBFBD>̡\'<27>.
RD<EFBFBD>+<2B><>"H5pɀ<08><>H5
#<23>H5T<35><54> #?\<00><>ID!
<EFBFBD>+
 T<><54>T<><54> ?4<>
<18><03>T<EFBFBD>P<17>n <20>$RD.<2E> T<>#
<17>D\C<>ID"<22>+
"<22>#I<>\<00><>RDUSE<53>+<2B><>;
\<0E>RDDEL<45>+p<>"<08>F<10>;Z<10>;<08><><EFBFBD>\<13>
.*ult
raFORTH-83 3.80-C16+ <20><><EFBFBD><EFBFBD><0E><1D><><EFBFBD><EFBFBD><18><0E><02><0E>
<03><><EFBFBD><EFBFBD><0F><> END-TRACE<43><11><><EFBFBD><13><0E><08>Ʌ<15><02>l
wRECOVER.*ȅȅ<1D>PFFl<>+<00>NOO
P <00>ORIGIN<49>+<00>S0<,<00>R0<,
<00>
DP<, GOFFSET<,QBASE<,<00>OUT
PUT<,<00> RAMDISK<53>+pɧ<70>T<EFBFBD><54> <11>\6<> LOA
DRAMDISK<EFBFBD>+5ə<18>
b<>C<EFBFBD>x<EFBFBD>pɑ$RD.<2E> <20>π\<13>
<03>`<60>©2<C2A9>_<EFBFBD>k<EFBFBD><6B>`<60>H<07><02><><00><03><><10> <09>`<60><00>JP<4A><50>P<EFBFBD>
`<60>,<2C>,<2C>,<2C>,<2C><1E>><3E>h <20><> <20><><EFBFBD>ZȚ<5A>_<EFBFBD>`Ix`<60>,
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>)Ex<45><18>x<EFBFBD>w<EFBFBD>w<06>]P<02>^<5E>)Ex<45><78><EFBFBD>x <20>Хw
`<60>y<EFBFBD> Q<>IP<><50> <0B> QЈP<D088>IP<>JP<4A><50> QЈP<D088>I<16><>
Ey<EFBFBD> IE<49>T<EFBFBD><10><>l<EFBFBD>Щ<00>]<5D> "
<06>5\<13>+<2B>JP<17>5
\<13>+
$<24>?<3F><16><17><19>4\6<00><>S<>+;Ǒ4x<34>Z<17>4<EFBFBD><08>
#?<3F>J<13>#<17><>\6<00><>N<>+;<3B>k<EFBFBD>F<17>4<EFBFBD>"<08>*+a<17>
<EFBFBD>\6<00><>K<>+;<3B>k<EFBFBD>a<17><>\7<00><>D<>+<2B><15>;<3B>P<17>4<EFBFBD>
<EFBFBD><17><>
x<>#J<><4A><EFBFBD>Z<17>4z#?<3F><>\7K<>C<>+<2B>O<>\7
<00><>B<>+;<3B>kǸ"<08><08>
<06>5a<17><>\
$<24>HELP<4C>+
P<17><>?<3F>$Probier' ruhig weiter }<7D>\<13>+<2B>
?4<> <1B>
<03><> <20>D<1F><><EFBFBD> <20>

<EFBFBD><15>D<1F>
\
2'<27>STSAVSYS<59>+<2B><>4ϼ<17><>;-<2D>9<EFBFBD><11>
<07><>;<08>
<17>-Ԁ<1B><11>-<2D><>X +<2B><11>\<00><>c\IF<49>+$<24>.<2E><18>
<00>$<24>\<00><>
SAVESYSTEM<EFBFBD>+<2B>34ϼ<17>3;<08>34ϡ
<17>3;|z4<7A>|z<>p`4<>p`<60>e><3E><>"
<07><19><00><>d<13>

<17>X +<2B><11>\D<>AUTOLOAD.*<1B>TAPE
Dj<44> ˱()<><7F><EFBFBD> <20>&<26><10>H8<48><38>&<26>&<26><02>'l<><6C> <20>ʑ
&<26>&P<02>'<27>(P<02>)F$PNF%PJl0<6C>?<3F>COMPRESS<53><53>
˱(I P<12>P J<><4A>&<26>&P<02>'<27><>lL<6C><4C><EFBFBD>0
h<EFBFBD><EFBFBD>&<26>&P<02>'<27>
<EFBFBD> Lʑ&<26>&P<02>'<27>(P<02>)F$PBF%P<><50><EFBFBD>0 <09><>&<26>&P<02>'l0
<EFBFBD><EFBFBD>+<2B><><EFBFBD><15><15><17>J
[<19>
<00>[<19><1B><>#<17><08> <0B>\
<13>+<2B><15><15>c<15>?4<> \<00><>RAMR/W<>+F<17><15>ʄ
<00>g<EFBFBD>x<00><08> INPUT<,<00> ERRORHANDLER<,
VOC-LINK<,<00>UDP<,<2C>*SP@=<12><07>$
<EFBFBD><14>%<25>$<24>8<><02><07>F<14><01><07><00>l5SP!<21><12><07>
<EFBFBD><07><14><07>l _UP@<12>lg<00><12>UP!<21><12><04><07>
<01><><07><00><00><01><18><02><07><02>l <00>RP@<40><12>lg
<EFBFBD><12>RP!D<12>l<><00><12>>RR<12>8<><02><02>F<03><07><02><07>
l<EFBFBD>K<12>R><3E><12>8<><02><07>
P <20>PP\<13>+<2B><12>2<EFBFBD>
<00> <20><><19><00><12>;<08><1B><>P\,ω(RESTORE"<22>
+<2B>$<24><08>P,(<28>j<><12>d<13>\<00><>HRESTORE"<22>
+6!<21><>\$\<00><>DEVICE.*<00><> COMMODORE<52>+<2B>
<17><>;\<00><>FLOPPY<50>+
<14><>;\V<>BLOAD<41>+
<EFBFBD><EFBFBD>"{<7B>Z<EFBFBD><5A><EFBFBD>load\<00><>BSAVE<56>+<2B><>"<08><>Z<EFBFBD><5A><EFBFBD>s
ave\ <09>N"<22>+
"<22>#\&<26> SAVE F<14><02><07>
<EFBFBD><07><18><02><02><02>l <00>R@<13>8<><02><07>F<14><02><07>
l<13>RDROP1EXITf<13><02><0E><02>l=
UNNEST^<13><02><0E><02>ls?EXIT<49><13><14>
<EFBFBD><02><07><02>(P<>l <00>EXECUTE<54><13><07><1C><07><1D><18>
<EFBFBD><07><02>l<00>PERFORM<52>+"<08>\<00>C@L<13><07>
$<24><07>%<25><00><07>$lEC!<21><13><07>$<24><07>%H<><07>$<24><>
.Ӎ><3E>`<60><>I<07> 8)Pl<><6C><EFBFBD><EFBFBD>Z <1F> <19><><EFBFBD><EFBFBD> <20><> <20>
<EFBFBD> <20>Х<EFBFBD><D0A5>b<03><><EFBFBD>c<03><><EFBFBD>d8<><38>岍e<03><>峍f<03><00>g<03>h
<03>i<03>j<03><03><><03>`<60>©2<C2A9>_<EFBFBD>k<EFBFBD><6B><EFBFBD><EFBFBD><EFBFBD>Y<EFBFBD>؅X<D885><02><><10> <09><>
* X<> <20><>$<24> <0B>؅Y<D885>4<EFBFBD>X<EFBFBD><02><><EFBFBD><EFBFBD>_<EFBFBD><5F><EFBFBD>`<60><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?<3F>
<EFBFBD>E X<> <20><>l<EFBFBD><6C>2<> SUPERTAPE<50>+
<07><>;/<18><>/.
;/=<3D>/0;<08>$ST2.20 \<13>+<2B>!4<>+<2B>\2<00><>B
TL<EFBFBD>+/<18><>/
ETE<EFBFBD>+<2B>ɸ"<08><15><15>ɧ<EFBFBD><C9A7><08>D<1F><16><>
\c<>SEARCH<43>+pɸ"<08><15>"<08><00>a"<08><19>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>D<EFBFBD>;\<13>+d\I<>BINARY<52>+<2B>Z"<08><15><>
<EFBFBD><13><08>9<EFBFBD>J9l<39><01><>c <0B>\I<>`I<><49>I<><49>ɠ`)`I`
<EFBFBD>`<60><>`<00><>C>7<>ʡ L<>l<00><>7>Cˡ <20><>l
<00> S<16>&<26>*<2A>'<27>+<2B><><EFBFBD>$P<0E>%P<07>ȩll/<2F><>%`8<>&
<EFBFBD>*h<>'<27>+l<00><>EXPAN <0E><04><07><02>l <00>CTO
GGLE<EFBFBD>+<2B>Jn<16><08>\<13>@$<08><07>$<24><07>%<25>$<24><07>$l
<00>!=<08><07>$<24><07>%H<><07>$H<><07><01>$l<><13>7+!]
<08><07>$<24><07>%H<><18>$<24>$H<><07><01>$lovDROP<4F><00>
SWAP<41><08><07><><03><07>$<24><><07>$<24><01>H<><00><07>$<24><07><07><>$l
<00>DUP<55><08>8<><02><07>F<14><03><07><01>H<><07>l<00>
?DUP<55><08>Pl l<>VOVER<45>  <20><><EFBFBD>*<2A>+`<60>
<02>h<><68>)<29><>?<3F>l<00><>CSAVE<56>Ω Ω, X<>li<6C>
z<EFBFBD>CLOAD}Ω Ω U<>h<>h<EFBFBD>h<EFBFBD><00>8<><02><07>Fȑ
Hȑ<07>(li<6C><00><>.ERR<52>Ρ0<18>J<EFBFBD>><3E> t<><74>H<EFBFBD>$)
R<EFBFBD>(<10><>?<3F>lha<00><>DERR?<3F>+<2B><08>?<3F>H5<48>ί$e
rror<EFBFBD>
<18>1
<05><19>d"<08>-1<16>yfd"<08>
<17>d;\.*<2A><12>;\R΅STORE<52>+<2B><12><08>P"
<13>
?#d<13>\"<00>]DIGITS<54>?La[a&]lb\<13>+V
v"<08><17><>
<00>a<EFBFBD>bJ<62><4A><EFBFBD><EFBFBD>|v"<08><17><>
-xJ<><4A><EFBFBD><EFBFBD><08>
|v<>u<EFBFBD>w<EFBFBD><08>w<EFBFBD>\<5C>\<13>+#?
<
?<3F>v<EFBFBD><17>?<3F><16>4\<13>+
2<>v<EFBFBD>[o?~z<><17>d?<3F>$replace with: o?|v<>uC]
<EFBFBD><17>d?<3F>$> search: o?Vv<56>uC]<5D>F<17>d?Fv
"P<17>5<EFBFBD>d?X #P{]W?Q!"<08><08>X <20><15>_'<27>F
v;d?Fv"P
+X
 <09>/<00>[<19>3not here/><3E>
<EFBFBD>p\<00>tRAM<41>+/?<3F><>p\<00>tSYS<59>+<2B>t/q<>t\.
zt.BLK<4C>+D!"<08><08><00>$ Blk H5<48>>\<00>t(S
EARCH<EFBFBD>t<EFBFBD><07><07>$<00><10><>()<29>ɥ$%<25>á&A*<2A><11>$PF%
F$<24>&P<02>'l<>t<EFBFBD><07>$<00><07><10><>&P<02>'<27>*P<02>+<2B>$PF%F$
<EFBFBD>(PF)F(<28>()P<><50><18><04><07><02><14><03>'<27><07>&<26><><07>l<EFBFBD><18>
$%P<10><18><06><07><02><14>l<>
<13>/\*9<>SHOWLOAD<41>+
<EFBFBD>32<>3<EFBFBD><17>32/<18>`<60>`;a<><61>`\<13>+i<><15>J<13>v<EFBFBD><13>
#J<13>v<EFBFBD>aJ<13>v<EFBFBD>\<13>+Z<17><>
<18><>b<EFBFBD>\<5C>Bv<42><17>?<3F>
<08>v<EFBFBD><13><17>_<EFBFBD>5`<60><08><1B><><EFBFBD><17>d?%y<>Bv<42><17><17><><EFBFBD>/
<EFBFBD><07>\+<00><>EDIT<49>+Ki<4B>3;y[O`<60><>
<18>d?<3F>[<5B>$
Scr <20>5<EFBFBD>$Drv <20>5<EFBFBD>F1<16><18> <00>$not <20>$chan
ged<EFBFBD>Z1<16><00>9<EFBFBD>
1
<06><19>
<08>!x\<13>+
Bv"<08>z?<3F>v<EFBFBD>[1<16><08>
<11>b\<13>+ x<><08>
<1D>b\
<13>+Aw<41>vq4<71><15>v<EFBFBD>K<19>v6<1F>d?<3F>\<13>+<2B>

<EFBFBD><17><>
<00><08>x<EFBFBD><08><00>J<><4A><EFBFBD>\<13>+
<05><17><>
<18><>bJ<62><4A><EFBFBD><EFBFBD>
\<13>+z?<3F>d?<3F>v<EFBFBD>v<EFBFBD><17>x\<13>+Kw<4B>v?4<> <20>\<13>+<2B>w<EFBFBD>v<EFBFBD>
?<3F>?4<> <20>\<13>+Kw<4B><08>v<EFBFBD><15>Aw/<18><03><15>P<12><08>D
<EFBFBD><12>v?4<> <20>\<13>+<2B>w<EFBFBD><16><08>Kw<4B><08>v<EFBFBD>Aw<41>v<EFBFBD><15><08>
<<3C><><17>8<>24<32>2<><08><17><>h<EFBFBD>2<>h<>[P<00>P
2<>2<><17>d<>;?h<>"<08>4<EFBFBD>Z<17>5"<08>
<05>5<EFBFBD>4
<EFBFBD>*+
<10>?<3F><16><17><19>4W51$2D!2<>!2/(32/<18>/
2o!2<>!o!"<08><>B2<>B;/<18><><EFBFBD>0(333\<13>ũŅ
<15><06><08>l<EFBFBD>l <00>+<2B>"/<18>+"@<1C> +d/<18>?"@
<1C> +J"<08>"<01>d/#?"@<1C> +J<13>"
<EFBFBD>"<01>d/
&\\<13>+`\<5C>3"<08>9<EFBFBD>w<EFBFBD><00>z<EFBFBD><08>3"
<08>9cwJ9
\<13>+<2B>\
\<13>+<2B>\
\<13>+<2B>3"
<08>9
w<EFBFBD>v<EFBFBD><17>v:\<5C>\<13>+<2B>\<5C><08><17>3[<08>\\<13>+<2B>\<5C><08>
<EFBFBD>3[<08>\\<13>+<2B>\<5C><08>v"<08><08>[<5B>[<19><16><00><16>3[<08>\\
<13>+<2B>\<5C><08>v"<08>3"<08>v;<08>3;<08>\\"<00>z DIGDECODE
<EFBFBD>+<2B>a@<1C><00><08>.?<3F>d<13>a@<1C>
<00>Q!;d<13>"<22>
<08>%<25><00>P<12><15><13><08>
zsWDEC<45>+<2B>_p8r<38>q<EFBFBD>
#<17>p<EFBFBD>q<EFBFBD>p\ <00>s;C:<3A>+<2B>/q<>m<EFBFBD>0<EFBFBD>~';<08>\ <00>
l ASSEMBLER<45>+?j<>m\ <00>se;CODE<44>+)/<18><><EFBFBD> <20>+
/<18><><EFBFBD> <20>s\ HsCODE<44>+A)X <20><08>;<08>s\ <00>s>
LABEL<EFBFBD>+X <20>)A)<29>'<27> !Zi(<28>(<28>1i(X Z<17><16>(Z
D<1F>(~'"<08>
1<16>;L;<08>(l<>("1$"<08>^\
 tLABEL<45>+X
t<EFBFBD>s\<00>sROM<4F>
<08>v3<1E><15>
Vva;<08>v<EFBFBD><15>|va;<08>v<EFBFBD><15>Jv;<08>v3<1E>Pv;Jva
<17>Pva<17>/<18>z<EFBFBD> PVva"D<1F>Vv;/<18>z<EFBFBD>

1P|va"D<1F>|v;\<13>+<2B> p`"<08><19>t`\<13>+
#$<24>+/d<13>`;<08>z<EFBFBD>a\<13>+D!"<08><08><18><00>`d<13>!"<08>
<17>3;<08>z<EFBFBD>a~z<>3"<08><08><16><00>3;<08>\<5C><17>d?<3F>1:\<5C>a
<EFBFBD>\*<00>](LOAD<41>+<2B>!2<>!;<08><08><18>D!2D!;<08>1
v<>w<EFBFBD> S<16>D$Pl(v<>( @v<>&HP<48><50>w<EFBFBD> S<16>&<26>><05>'
<EFBFBD><19>'<27>$ @vQ&<26><05><>l<1C><10> <20>vJP<4A><50>l<1C>+;<12>v3<1E>
\Cw<43>h<EFBFBD>>lMw<4D>JI(<28><><02>'<27>Hh<48>I<EFBFBD>l<1C>w<18>J<EFBFBD>Hh
<EFBFBD>I<EFBFBD>l<1C>+Aw/<18><03><15>vq4<71><15>Bv"\<13>+<2B>wAw<41>v
<EFBFBD><15><17>Bv"<08>1\<13>+<2B>vJ<13>b<EFBFBD>\<13>+ x<><08><13>Kw<4B>
v<EFBFBD><15>J?4<><19>1<16>w<EFBFBD>1<16><08>
<18><>b\<13>+ x<><08><13>
v"<08>-x<>
B<12><12>D\1CPUSH<53>+<2B>z<15>
P<12><12>#<17><16>Bn l<>PP\<13>+
r<> {bTc<54>1<EFBFBD>4<EFBFBD>!
<EFBFBD>//<18><><EFBFBD> 9\1<00><>RANGE<47>+8<><38><17>4<>;#<17>"/
\<13><19><1B><>n8<>;\Wĩ<57><C4A9>bčcġ<02><0E><02><0F><18><02>
<02><02><03>2ą<1C>3ąl2.*U<>\<13><18><02><0E><02><0F>b<EFBFBD><62><EFBFBD>
<EFBFBD>><3E>P<1B>M6ĥ<0F>7ĐU<C490>M:ĥ<0F>;İIl9Ŏ>ĎbĎc<C48E>
<EFBFBD><1C>2ĥ<1D>3<EFBFBD> <20><<3C>"<08>"
Aw<41> <20>v3DAw<41>v3
<18>
<EFBFBD> \<13>+<2B> Aw<41>v3D\<13>+<2B>9<EFBFBD>"\<13>+<2B>a<EFBFBD>6<EFBFBD>?<3F><1B><><EFBFBD>
a\<13>+<2B>3"Z"<08>d<><1F>\<13>+o?<3F>[~z<><17>d?<3F>[<5B>$
Scr # <20>5<EFBFBD>$Drv <20>5<EFBFBD>3"<08>[<5B><18> <00>$not <20>$u
pdated<EFBFBD><17>d?/<18>z<EFBFBD> #?F<17>4/<18>z<EFBFBD>
1#?<3F>zd?
<EFBFBD>[~[<5B>\<13>+o?<3F><08>v#$<1E><15>3;\<13>+<2B>3"<08><08>v#x
<1F>v<EFBFBD><19><16>c<EFBFBD>K<19>v#6<1F>d?\<13>+<2B>v
NOT<4F>+

n\
<00>rBEQ<45>+drq\
<00>rBMI<4D>+[rq\
<00>r
BNE<EFBFBD>+8rq\
<00>rBPL<50>+orq\
<00>rBCC<43>+"rq
\
HrBVC<56>+<2B>rq\
XrBCS<43>+-rq\
<00>rBV
S<EFBFBD>+<2B>rq\ <00>r2INC<4E>+<2B>_p<5F>nF<17>m+p<><08>p"r<>q<EFBFBD>
#<17>p<EFBFBD>q\ s2DEC<45>+<2B>_pboF<17>m<EFBFBD>p<EFBFBD><08>p-r<>q<EFBFBD>
#<17>p<EFBFBD>q\ 1sWINC<4E>+<2B><08>p8r<38>q<EFBFBD>#<17>p<EFBFBD>q\
<07><><EFBFBD>\<13>+?$
@<40>\.*<1F>
<EFBFBD> <0C><><EFBFBD><EFBFBD><EFBFBD><1E>
<EFBFBD><EFBFBD><EFBFBD><11><><13><> <0F>.*<2A>\L\|\<5C>\<5C>^z<>x<EFBFBD>x`\<5C>\<5C>\
<EFBFBD>\oy%yhz"z<>z<EFBFBD>[<5B>y<EFBFBD>yFy<46>x<EFBFBD>x<EFBFBD>x<EFBFBD>x!x!x!x<>x-x!x<>
yyy`z<>zzx<7A>_<EFBFBD> S<16>$<24>H<EFBFBD><48>_I<5F><49>E&P<><50>
<EFBFBD><EFBFBD><EFBFBD>_h<EFBFBD>
<EFBFBD>_l<1C>+<2B>v<EFBFBD><13>6
<18><><17><>J<><4A><EFBFBD>\<13>+<2B>v2<>`<60>
`<60>`<60>`\<13>+<2B><08><17><19>`<60>\( [(PAD.*
<00>+<2B> <20>p`;
zvSCR>CBM~v<> /v<>l <00>vE
DITORv-<2D><><EFBFBD><EFBFBD>ej<65>+(<00>+<00>+<2B>SHADOW.*u.
*.*.*h.*<2A><>.*.*A<>.*<11>.*<00><>.*
<EFBFBD>׿+H<00>+J<00>+<19><>+;<05>+<15><>$<18>)<29>$<24><02>%<25>&<18>(<28>&<26>
<02>'`w<> S<16>&<26>><05>'<27><19>'<27>$ @v<>&<26><10> <20>vJP<4A><50>;<05>
<14> <09>
<EFBFBD> <0B>P<EFBFBD>l(vew<65> S<16>&<26>><05>'<27><19><00>& /v<>$
H<EFBFBD>(<28><>J<EFBFBD>
<EFBFBD> <20>$ <20>vlrwl(
<09>v<EFBFBD>?d<13>a@<1C><<00>v<EFBFBD>
øQ!"[<19><00>Q!"<08><><EFBFBD><EFBFBD><00><15>%J<13>v<EFBFBD><08>
#J<><4A><EFBFBD><EFBFBD>Q!;d<13><08>v<EFBFBD>
<12>_<EFBFBD>5`<60>\-@<40> EDI
EXPECT<EFBFBD>+O`Q!;<08><17>Q!"<19>
<00>?I?<3F><1B><><EFBFBD><15>4\
-<00><>EDIBOARD<52>?La[al<61>B<EFBFBD>\/V<>TOOLSv-<07>
șv0<00>tWCMP<4D>+<2B>_p<5F>ep<65>#_p#<17>p\.*<2A><>.*<2A>
<EFBFBD>.*<2A><>.*.*.*<2A><>.*.*<2A><12> <20><15>
<13>+<2B>v<EFBFBD><17>
\<00>vRVSON<4F>+
<12>b\<00>zRVSOFF<46>+
<18><>b\
<00>z***ULTRAFORTH83*** <00>zrFORTH-GESEL
LSCHAFT<EFBFBD>+%\<00>vSTAMP$.*clv17nov87
<00>+|z#<17> Aw<41>v<EFBFBD><15><08><16><08>w<EFBFBD>\SzGETSTAM
P<EFBFBD>+2{b|z<>?<3F>$ your stamp: ~z
<10>4z?

d?|za
W?<3F>zQ!"|z#<17>\<13>+|zJ<13>[\<13>+
8"@<1C>
+"<01>d"/l<><6C><19>
"P<17>d<13>
*+<2B>$can't be DEBUGged33\5<00><>NEST<53>+d<>"
"ƀ<<3C><>\5<00><>UNNEST<53>+4<><34>8<><38>\5<00><>
ENDLOOP<EFBFBD>+d<>"Z<17>4<>;\5G<>%UNBUG<55>5<00><>(
DEBUG<EFBFBD>+Ʊ<><<3C><>@<40><>h<><68> <09><><EFBFBD>\5<01>DEBUG<55>+
;/<2F><>\5<12>TRACE'<27>+;/<2F><08>Ɨ<13>\<13>+<2B>><3E>Z<17>5
<EFBFBD>$:\<13>+<2B>
<17>5{b<>d?Vva"<08>v<EFBFBD><17>?<3F>W?Q!"
<EFBFBD><08>Vv;d?Vv<56>uC]<5D>d?|va"<08>v<EFBFBD><17>?<3F>W?Q!"
<08><08>|v;d?|v<>uC]<5D>z~[d?\<13>+<2B>\<5C>Vv<56>u<EFBFBD>3"
<EFBFBD>3"<08>9<EFBFBD><15>c<EFBFBD>3"<08><16>t<EFBFBD><18><00><17>
<00>3"<08>9<EFBFBD><16>3;
:\\<13>+<2B>\<5C>X]B^<5E>3"<08>'<00>?<3F>
r<><19><00>]<5D><08>
<00>dP<17><19><08><13>S<><53>[<5B>Fv"<08><16>><3E>1<16><08>
<EFBFBD><18>
<00>\<5C><08>L\<5C><08>
<18>&A*<2A><><EFBFBD><07><07>$<00><10><>$
PF%F$<24>&P<02>'l<>t<00>t2!<21>u<EFBFBD> S<16><03><07>$<24><10><>l<>
<00>u2@<40>u<EFBFBD><07>$<24><07>%<25>8<><02><07>F<14><03>$<24><07><10>lha
<00>u 2VARIABLE<4C>+A)Z<17> \Zu 2CONSTANT<4E>+A
) ! !<21>(l<>(<28>u\<00>uUNLINK<4E>+<2B><17>/<18><07>u\<13>
<EFBFBD>l <00>*)?*$* <09><> @`<60>*)I <20>
I@<40>)$*
@`<60>.`vCBM>SCR<43>v<EFBFBD> @v<>l 
<00>$, sav
ed
1<16><1B><00>$ , loading?<3F>3"<08>3"<08><>\,<00><>
L<>+<2B>3<EFBFBD><17><>\,<00><>R<>+<2B>3"<08><>\,<00><>+L<>+<2B>3"
<EFBFBD><15><>\,<00><>V<>+;/<2F>*<2A><08>Z<17>"\,<00><>VIEW
<EFBFBD>+<2B><><EFBFBD><08><00><><EFBFBD><00>$
from keyboard\,<2C>+<2B>v"
<EFBFBD>vJ<13>\,i`CURLIN<49>+
<1B>b
j<>b<00>
<1B>b
k
<EFBFBD>b
<1D>b<00><><08>\-<10> EDIDECODE<44>+
<18>@<1C>
<0F>y\<13>+<2B>x<EFBFBD><08>
<08>b\<13>+Jv<4A>u<EFBFBD>#Pv"<08>wK
[<19><08><13>wJJv<4A>u<EFBFBD><15><13>Jva[\<13>+<2B>y<EFBFBD><08><13>x\<13>
+<2B>y<EFBFBD><08><13>y\<13>+Jva"<08><18><08>-x<><08><13>Jva[Jv
<EFBFBD>u<EFBFBD>J<13>w<EFBFBD>\<13>+Pv<50>u<EFBFBD><15>w[<19><08>KwPv<50>u<EFBFBD><15>vD<1F>
vPva[\<13>+<2B>y<EFBFBD><08><13>x\<13>+<2B>y<EFBFBD><08>%y\<13>+<2B>v<EFBFBD>Pv
a[Pv<50>u<EFBFBD>Kw<4B>vD\<13>+Pva"<08><18><08>oy<6F><08>.z\
<13>+<2B>v<EFBFBD><17>\INDEX<45>+#<17><08><>!?%F<17>5%<1B>9#
%#?<3F>><3E><00>J<><4A><EFBFBD>\<13><00>hFINDEX<45>+Cg<43><00>d
#<17><08><>1?%F<17>5<EFBFBD> <20>%33<1E>f&gP#
%#?<3F>
<12>><16><00>J<><4A><EFBFBD><EFBFBD>g\<13><00>hINK-POT.*<2A><><00><>
<EFBFBD><EFBFBD><00>i INIT-SYSTEM;i<><69><EFBFBD>lha<68>><3E><>vi<76>xi<78>ih<69>
\h<><68>h<>)<29>l<><6C><EFBFBD>?<3F>@؍><3E><>i<EFBFBD><69><EFBFBD><EFBFBD>a<EFBFBD><61><EFBFBD> <20><> <20><><EFBFBD>i
<EFBFBD><19><>i<><15><>i<>@<05><><EFBFBD>@<12>(;\<13><00>?KEY~?
<EFBFBD><00>?KEY?~?<02><00>?DECODE~?<04><00>?EXPECT~?<06>
SEAL<41>+<2B>/<18>- +;\<13>|?$ONLY<4C>-<2D><00>?%FOR
TH<EFBFBD>-<2D><00>?%WORDS .<2E>
@$ALSO<53>,<2C>@+DEFINITIO
NS<EFBFBD>-<2D>+%"<08><08>"<08>Z<17>;"<08><08><18><1B><>\<13>+<2B>
7;;#;;H;\<13>N?'COLDI0<49><11>+1@q@<40>-<2D>@:?
<EFBFBD> #??<3F>@\<13><00>@'RESTARTI0<49>l<EFBFBD>+/mo<6D>kTAPE
INIT<EFBFBD>0d<30>kFLOPPY?<3F>$Type 'help' to get
help?<3F>$Type '64kb' to use 64kb\<13>+/<00>/
<00>/<00><>k<EFBFBD>-<2D>$CODE
P3k<33>-<2D>$EDITOR
P
3k<EFBFBD>-<2D>$DEBUG
/P3k<33>-<2D>$HELP

<EFBFBD>3k<33>-<2D>$T
APEINIT
Z3k/<18><11>0<EFBFBD>@/<18>l<EFBFBD>0<EFBFBD>@<40>kEDITOR<4F>k
EDIBOARD<52><17>3;<08><17>3;e>/<00>/<18>{/<00><>k\
<00>cC64TYPE<50>c<EFBFBD> S<16>D$<24><16>& <20>b<EFBFBD><02>.<2E>><3E> l<>
<EFBFBD>?<3F>Hl<48>cl<63>b<EFBFBD><00>cDISPLAY<41>><3E>bc<>cc5chc<68>c\<13>
c<EFBFBD>><3E>lr<6C><72>JcB/BLK<4C>+<04><00>cBLK/DRV<52>+<2B><00><00>c
(DRV.*<00>+d"
<14>\<13>dDRIVE<56>+d$Z;
\<13>(d>DRIVE<56>+d$<1E>Z"<08>\<13>>dDRV?<3F>+
Z"<08>dh\<13>ydDRVINIT<49>+<2B>\<13><00>dI/O.*
<00><00>dBUSO<00>pSTA<54>o<EFBFBD><6F><00>pASL<53>o

<EFBFBD>pDEC<45>oA <00>pINC<4E>o<EFBFBD> <00>pLSR<53>oa
<00>p
ROL<4F>o!
ApROR<4F>o<EFBFBD>
NpSTX<54>o<EFBFBD><00>pC
PX<EFBFBD>o<EFBFBD><EFBFBD><00>pCPY<50>o<EFBFBD><6F><00>pLDX<44>o<EFBFBD><6F>qLDY
<EFBFBD>o<EFBFBD><EFBFBD> qSTY<54>o<EFBFBD><6F>qJSR<53>o<08>)qJMP<4D>o
@<40><>6qBIT<49>o <20><04>+<2B>=<3D>
[<19>3
out of rang
e \ cq[[<5B>+X \ <00>g<>e<EFBFBD>dd
ze<7A>$u2:1
3,0,<2C> <20>e<EFBFBD>f<EFBFBD>e<EFBFBD>d<EFBFBD>6yf\<13>]gDISKOPEN<45>+d

<EFBFBD>
e
#<23>e<EFBFBD>dyf\<13><00>g DISKCLOSE<53>+d

<EFBFBD>e<EFBFBD>d\<13>
Yg1541R/W<>+<2B><08>3no filezd6<1F>d;P[<19>
<1B><00>5<EFBFBD>$beyond capacity<74>dCg<43><00><08>d<13>
<EFBFBD>33Z<17><><EFBFBD><EFBFBD>.<00><08>%<15>
<00>f&g<><00>f<EFBFBD>gP
g<EFBFBD><15><12><08><00>J<><4A><EFBFBD>z<15><15>g\<13><00>g<01>+<2B>?<3F><00>
><3E>><3E>\<13><00>>?CR<43>+<2B>?6

<EFBFBD>[<19>?\<13>+A)<29>
!a<17>(l<>(J<13>"<08><15>\<13><00>>OUTPUT:<3A>+r+<2B>(l
<EFBFBD>(<28>;\<13><00>>EMITZ><00>?CRZ><02>?TYPEZ>
<04>?DELZ><06>(?PAGEZ><14>3?ATZ>
<EFBFBD>??AT
?Z> <0C>i?ROW<4F>+o?<3F>\<13>t?COL<4F>+o?<3F>\<13>+A)<29>
!a<17>(l<>(J"<08><15>\<13><00>?INPUT:<3A>+r+<2B>(l
???\<13>+<2B>;<3B>F<17><15>

<EFBFBD>"<08>1P<17><15>

<14>"<08>1<16>
<00><08><08>d/; +;<08>

<EFBFBD>;<08>
<06><15>#;<08>
<14>;a\<13>+<2B>$B"<22>.<2E><00><13>
<EFBFBD> #?<3F>$ unsatisfied33\<13>+6!<21>k\$\3j64K
B<EFBFBD>+/3"/<00><><16><08>?H5<48>$ too smalld;
/<00><><16>/<00>/<00>/<00><>k\#lC16DEMO<4D>+
?<3F>$c16-De<03><>?<3F><><18><02><07><02><14>K<EFBFBD>O<EFBFBD> <20><11>6\I
<EFBFBD><EFBFBD>I `I<><49>I<>``<60><00>b
PRINTABLE?Vb<56> <20>b<EFBFBD>J<>
l<1C>GbC64EMIT<49>b<EFBFBD> <20>b<EFBFBD><02>.l<>b<EFBFBD><00>bC64CR<43>+
<EFBFBD>a<EFBFBD>b\<13><00>bC64DEL<45>+
<18><>b<EFBFBD>4
<18><>b\<13>cC64
PAGE<EFBFBD>+
<18><>b\<13>+cC64ATjc<6A> S<16>&<26>$<18>><3E> <20><>
<EFBFBD>?<3F>lha<68>@cC64AT?<3F>c<EFBFBD>8<><02><07>F<14><>8<>><3E> <20><><EFBFBD>
?<3F><>(<28><><02>(h<><68><00><07>l<1C>oTXAn<7F>~oTXSn<7F>
<00>oTYAn<7F><00>oM/CPU<50>+A)! !<21>(l<>(<28>#"
<18>1<16>
Im[<08>/<00>11n1n<31><00>m<EFBFBD><17>3inv
alidJIm"<08>m<EFBFBD>J<13>!Im"
1<16>Im"
1

U<18>!<21> !<21>m\<00>oADC<44>o`<60>%pA
ND<EFBFBD>o <20>2pCMP<4D>o<EFBFBD><6F>?pEOR<4F>o@<40>lpLDA
<EFBFBD>o<EFBFBD><EFBFBD>ypORA<52>o<00><00>pSBC<42>o<EFBFBD><6F>v<02>+<2B><08>f
<19>
6dP<17><15><08>f<19><00>f<EFBFBD>
6
<11>d
<13><08>f<19><00>f<EFBFBD>
6
<18>d<13>f<EFBFBD>
6
<1E>
\<13>+<2B>f#<17>\<13>+<2B>2t%<25>|4e5<65>
,E4e5<65>4\<13>+
<01>of
READSECTOR<EFBFBD>+d
ze<7A>$u1:13,0,<2C> <20>e
<EFBFBD>f<EFBFBD>e<EFBFBD>d<EFBFBD>6yf<EFBFBD>d

Neg7f<37>d<EFBFBD>\<13>g WRITESE
CTOR<EFBFBD>+d
ze<7A>$b-p:13,0<> <20>e<EFBFBD>dd

ze
CLEAR<41>+X <20>}=L;\<13><00>=(FORGET<45>+<2B><08>
(<28>3 is symbol<6F>;=\<13><00>=FORGET<45>+;/<2F>/$"
<19>3 protected<65>*<2A><08>(<28><00>*<2A><00><17>E=\<13>
<EFBFBD>=EMPTY<54>+/$"}=/2"0;\<13>>SAVE
<EFBFBD>+X }=%"<08><08><17>"<08><08>;"<08><08><18><1B><>}<12>/
D\<13>>>BYE<59>+<2B>9<EFBFBD>c\<13>+<2B>?P<17><19><00>9\
<EFBFBD><00>>STOP?~jSP<53>+<00><00>jIP<49>+<00><00>jN<>+$
<00><00>jPUTA<54>+<00><00>jW<>+<00><00>jSETUP<55>+S<16><00>
jNEXT<58>+ <00>NjXYNEXT<58>+ha<68><00>jPOPTWO<57>+<2B>
<EFBFBD><00>jPOP<4F>+<2B><12>+?B"<22><08>.<2E><15><15><18> <00>$not <20>$
found: <20> #?\.*<00>+F<17>k<>
<00><08><08>d<13>/
k"<08><16>@:<3A>$ Insert #<23><08>5<EFBFBD>?<3F><08>/k;<08><08>$
 scr#<23><08>5?#2k<><18>3
<EFBFBD><EFBFBD>I<EFBFBD><00> <0B> <0C>l <00><00>a
CUROFF<EFBFBD>a<EFBFBD><EFBFBD><EFBFBD> <0C><>
<EFBFBD>l <00><00>aC64KEY<45>+<2B>a<EFBFBD>6[a<><1B>
<EFBFBD><EFBFBD>a<EFBFBD>a\<13>Ca#BS<42>+<00><00>a#CR<43>+
<00><00>a C64DE
CODE<EFBFBD>+<2B>a@<1C><00><08>.?<3F>d<13>a@<1C>
<00>Q!;d
P<12><15><13><08><13>
?#\<13><00>a C64EXPECT<43>+Q!;
<EFBFBD><17>Q!"<19>
<00>?I?<3F><1B><><EFBFBD><15>4\<13>@bKEYBOARD
<EFBFBD>?La[ablb\<13><00>bCON!<21>b<EFBFBD><07>><3E> l (J!<21>m\
<00>nBRKn<00>nCLCn<00>nCLDnX<00>nCLI
nx<00>nCLVn<7F><00>nDEXnJCnDEYn<7F>Nn
INXn<EFBFBD>YnINYnH<00>nNOPn<7F><00>nPHAnh
<EFBFBD>nPHPnoPLAn<7F>oPLPn(oRTIn
@&oRTSn`1oSECn8<oSEDn<7F>goSE
In<EFBFBD>roTAXn<7F>]oTAYn<7F><00>oTSXn<7F><00>

\<13>e<EFBFBD><65><EFBFBD> S<16>& Ld<4C>&<26>><3E> <20><><EFBFBD>?<3F><>$ `<60><><EFBFBD>><3E> <20><>
<EFBFBD>?<3F><>&<26><>lha<68>}eBUSIN<49>+<2B>d<EFBFBD>6<EFBFBD>e\<13>FeBUS!<21>e
<EFBFBD><07>><3E> <20><><EFBFBD>?<3F>l<EFBFBD><12>ZeBUSTYPE<50>+<2B><><EFBFBD><EFBFBD> %J<13>eJ
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>6\<13><00>eBUS@f<>><3E> <20><><EFBFBD>?<3F>l<1C>fBUSINP
UT<EFBFBD>+<2B><><EFBFBD><EFBFBD> f%<1B>J<><4A><EFBFBD><EFBFBD>6\<13>,fDERROR?<3F>+d
Nef<>
0<><16>
?f<><08>a<EFBFBD><19><1B><><EFBFBD>?<3F><18>d\
<EFBFBD>+<2B><01>+<2B><01>+
q?]<5D>+!X #<17>nq!\ <00>q?[<5B>+
!X <20>!\ <00>q?[[<5B>+<2B>q<EFBFBD>\ <00>q]?<3F>+X <20>J
<EFBFBD>
<00>;<08><00>#<17>nq<6E><08>\ <00>q][<5B>+X #<17>
<q<>X <20>#<17>nq<6E><08>\ <00>q]]<5D>+<q\ r]]?
<EFBFBD>+<q<>q\
rCS<43>+<2B>
rCC<43>+<2B>
(r0=<3D>+P
3r0<><3E>+<2B>
>r0<<3C>+
jr0>=<3D>+0
urV
S<EFBFBD>+p
<00>rVC<56>+<2B>
<00>r <0C><13> <04><13><>?<3F>x`<60>+iC
64INIT<EFBFBD>i `ilha<01><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><00>iC64F
KEYSMi<EFBFBD>J0 <09><>i<EFBFBD>]lOilha{<00>ic(64<36>+$<24> <20><18>3
C) missing"/C)<29><19><1B><>\{<00>ibC)<29>+\{ jc
(16<31>+\{jFORTH-83<38>+\<13>"j ASSEMBLERv-
<EFBFBD>Ā-<2D>PUSHA<48>+<1C>ijPUSH0A<30>+<1C>wjPU
SH<EFBFBD>+<1C><00>jRP<52>+<00><00>jUP<55>+<00>

3<EFBFBD>0(3<>d
<EFBFBD>@/.";/<18><11>0<EFBFBD>3<EFBFBD>3\<13><1B>9<11><00><10><18> <10>
<EFBFBD><04>!<10><00><05><14><04>H<><04><14>
<EFBFBD><04>H<><04><03><00><01><><02>`
<EFBFBD><00>@COLDa `i<18> <10><06>$<24>!<10><00>%<25><00><10>$HP<48> <20>
@ <20>9i<39>@\<13><00>@RESTART9a `i <20>@ <20>9i<39>@\<13>
<EFBFBD>l <00>-aC64KEY?]a<><61>
]<05><02><>hl<1C>qaGETK
EY<EFBFBD>a<EFBFBD>><3E> <20><><EFBFBD>?<3F>I<EFBFBD>P<02> l<1C><00>aCURON<4F>a<EFBFBD>J<18>H<EFBFBD>
<00>jEND-CODE<44>+D,<2C>"D,;\<00>mINDEX.*
<11> <09>
<19><><EFBFBD><EFBFBD><08><><EFBFBD><EFBFBD><EFBFBD> <1C><>,.*<00>mM
ODE:<3A>+A)!<21>(l<>(JIm;\Om.A<>m<00>m#<23>m
<01>m<00>m,X<>mn,Y<>m nX)<29>mn)Y
<EFBFBD>m n)<29>m<0F>+<2B>Im"
Im;<08>Im"
1
<16><08><00><17><>
<00><08>J<><4A><EFBFBD><EFBFBD>#"1<16>\*nCPU
<EFBFBD>+A)!<21>(l<>FF<46>d<EFBFBD>><3E> L<><4C>?<3F><><01> <20><11>d<EFBFBD>6\<13><00>
 <20><11>d7<>6<EFBFBD><17>3 no device\<13><><EFBFBD><EFBFBD><EFBFBD>><3E> <20><><EFBFBD>?<3F><>`
<EFBFBD>><3E> <20><><EFBFBD>?<3F><>><3E> <20><><EFBFBD>?<3F><><EFBFBD><EFBFBD><05><>l<EFBFBD>d`<60>d<EFBFBD> Ld<4C><18><02>
<07><02>l<>d<EFBFBD><00>d?DEVICE<43>+<2B>d<EFBFBD>6<EFBFBD>d\$e<><65><EFBFBD> S<16>&
Ld<4C>&<26>><3E> <20><><EFBFBD>?<3F><>$ `<60>><3E> <20><><EFBFBD>?<3F><>&<26><>lha<68>eBU
SOUT<EFBFBD>+<2B>d<EFBFBD>6"e\<13>qeBUSOPEN<45>+
<18>ze\<13><00>e
BUSCLOSE<53>+
<18>ze<7A>d#mO
m1000
x
list
///
/
x
poke 152,0
e$<24><>"" <20> 20304<14> 8:
<14>]<12> <0B> umleiten der standardeingabe<00>B
<0B> f$<24>"" <20> <20>200<00>L <0B>"file:";f$<00>V <0B> 8,8
,2,f$<24>",seq,r"<00><12> <0B> 152,8<00><12> <0B><00>QH
<00> einlesen des filenamens<00>R<00>"file:";f
$<00>|<00><00><10><01> programam sicher
<00>"
1 - make file"-<00>" 2 - list file"f
<EFBFBD>" 3 - execute file"<00>#<00>" 4 - save this
program"<00>(<00> e:<3A> e <20> 1000,2000,3000,
400,500<00>2<00><00>H<00> einlesen des file
namensCR<00>"file:";f$I|<00><00><10><01> progra
mam sichern<00><10><01>"@tapecopy.bas"<00><10><01>

<00>" 1 - make file"-<00>" 2 - list
file"f<00>" 3 - execute file"<00>#<00>" 4
- save this program"<00>(<00> e:<3A> e <20> 1000,2
000,3000, 400,500<00>2<00><00>H<00> einles
en des filenamensCR<00>"file:";f$I|<00><00>
<10><01> programam sichern<00><10><01>"@tapecopy.ba
s"<00><10><01>$<24><07>8<><02><07>F<14>&H
0<05>i<EFBFBD><69>H<EFBFBD><48>
<03><>$<24><><01>l v1.FIND<4E>+D,<2C>"<08><08>"<08><19>
<00><17>"9.<2E><00><15>.d<13><08>,a[<19>
<00><08><17><1B><><EFBFBD>
<15>\v<00>.'<27>+$<24>.<2E><18>3Haeh?\v7/I[COMPIL
E]<5D>+;/ !\vo/C[']<5D>+;/^\v<00>/ NULLSTRING
?<3F>+<2B>J<13><18><08><00>\H<18><1C><02>H<><1C><00><0F>l w
<EFBFBD>/
>INTERPRET<45>/0x<00>;""<08>;%7#;[\<13>
<EFBFBD>; ALL-BUFFERS<52>+#;"7;#;"<08><19><1B><>\<13>+J

1\<13>+<2B>*<2A>#<19><08>(\<13>+<2B>(%"P<12>"<08><08>^
<00>PZ<17>P<12>"P<12><08><17><19>a<17>*1<16>
.<13>(<28>Z<>a|;<3B><00>a<17>;<3B> aS*a<17>
<19><1B><>9<13><1B><>\<13><<3C><05><07>$<00><10><><18><04><06>*H<><04><00>+
<EFBFBD><01>$<24>,<2C>$<24>-,<2C>5<EFBFBD>,E*<2A>-<2D>+<2B> <0B>,E&<26>-"<08>a<17>
\]<00>2DEPTH<54>+;<12>"<08><08>\<13>+1$"<08><00>$
compilingd<13>$ ok\^G2(QUIT<49>+<2B>1?<3F>!<21>/
<EFBFBD>2<EFBFBD><1B><>\^3'QUITI0
3^3QUIT<49>+B"B0
&3\^,3 STANDARDI/O<>+/*<10>ZD\^c3'A
BORTI0<EFBFBD>^<00>3ABORT<52>+,(<28><11>3q333\_<00>3SCR.
*_<00>3R#.*_<00>3(ERROR<4F>+q3<71>4X +<2B> #?<3F>
<01>,"" !$J<13><08>
 <20><18><16>3 invalid nameX
~';#<17> <20>)^)"<08><00>^)[<08>) !<21>(
 Z')L
;<08>&)<29><08>'<27> !<21>(l<>(3*<2A><07>(<28><07>)<29><18><02><07>
<EFBFBD><14><07>&<26><07>'&Pl<><18>&<26><07>%<25>&<26><07>$%Pl <00>$<18>
<EFBFBD>$<24><02>%<25>$h8)<1F>$<24>$<24><02>%<25>) <20>
<EFBFBD>$h<>$<24>$ȅ%<25>$E(P<>
<EFBFBD>%E)P<>lcn<00>)>NAME<4D>+%"<08><08><00>Z<17><16>1*
<EFBFBD><08>z<15>;\<13><00>6UNLOCK<43>+<2B><08>6<EFBFBD>\<13>8<EFBFBD>
<EFBFBD><04><><00><05>l<EFBFBD><04><06><04>H<><04><14><01><07><02><07><03><18><02><07>
<EFBFBD><14>l<><12><00>6FILE<,<1C>7PREV.*<2A>{.*<00> 7
B/BUF<55>+<04><02>(Y"PH<>P<>`:7<><03><07>$<00><10><><18>
<EFBFBD>&<26>&H<><04>'<27>'<27>7<>(<28>7<>) )7P<1D><18><02><07><02><14><01>
<18>(<28><07>)<29><00>lf<13>(<28>*<2A>)<29>+<2B>*<2A>(<28><01>*<2A>)(Pl )
7P<EFBFBD><EFBFBD>(<28>*<2A><01>(<28>*<2A>7<>(<28><00>2 - list file"<12>
<EFBFBD>8,e$:<3A>e$,<12><07> e$<24><>"" <20> 20304<14> 8:
<14>]<12> <0B> umleiten der standardeingabe<00>B
<0B> f$<24>"" <20> <20>200<00>L <0B>"file:";f$<00>V <0B> 8,8
,2,f$<24>",seq,r"<00><12> <0B> 152,8<00><12> <0B><00>QH
<00> einlesen des filenamens<00>R<00>"file:";f
$<00>|<00><00><10><01> programam sicher<16>h:J<><4A><EFBFBD>
<EFBFBD><00><12><17><><00>h:<3A><17><17>J<><4A><EFBFBD><EFBFBD>9<EFBFBD>\<13>8:COPY
<EFBFBD>+<2B><17>:\<13>T:CONVEY<45>+<2B>#F<17><15><16><<19><16>3n
ein<EFBFBD>:\<13><00>:LIMIT<49>+<00><>
;FIRST.*<2A>{<7B>; A
LLOTBUFFER<EFBFBD>+#;"B"<08>%7a<19>%7<>#;[#;"
<08>{87"<08>;7;\<13>);
FREEBUFFER<EFBFBD>+#;"
;%7<><19>.#;"!87<>"#;"<08><16>"<08><1B><>#
<14>EH<><04><14><01>l <20><11><17>3 stack empty\\
<00>1.STATUSI0Ct.*<2A><12>;\\<00>1<EFBFBD>PUSH<53>+<2B><12><08>
P"P<12>1PP\\<00>1LOAD<41>+<2B><08><18>D!2D!;<08>
!2<>!<21><17>1<EFBFBD>/\]2+LOAD<41>+D!"<08>#2\]c2T
HRU<EFBFBD>+#<17><08><>
%#2J<32><4A><EFBFBD>\]y2+THRU<52>+#<17><08><>
%k2J<32><4A><EFBFBD>\]<00>2c--><3E>+<2B>D![<08>!<21><17>1\]<00>2
RDEPTH<EFBFBD>+B<00>4of4<66>90<39>100<30>no<6E>hadows<77>>ramdis
k<EFBFBD>>fileLrddel<65>id"<22>c64<36>grafdemo"<22>4of4<66>144<34>
164<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>165<36>binary<72>4of4<66>16
5<EFBFBD>169<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileL;<00><>en.<2E><>
alls<EFBFBD><EFBFBD>hr<EFBFBD>denkt,<2C>dass<73>etwas<61>auf<75><66>urer<65><72>ass
ette<EFBFBD>fehlt,<2C>guckt<6B>bitte<74>hier<65>nach.<2E><>er<65>ko
mplette<EFBFBD><EFBFBD>nhalt<EFBFBD>der<EFBFBD><EFBFBD><00>2 - list file"<12>
<EFBFBD>8,e$:<3A>e$,<12><07> e$<24><>"" <20> 20304<14> 8:
<14>]<12> <0B> umleiten der standardeingabe<00>B
<0B> f$<24>"" <20> <20>200<00>L <0B>"file:";f$<00>V <0B> 8,8
,2,f$<24>",seq,r"<00><12> <0B> 152,8<00><12> <0B><00>QH
<00> einlesen des filenamens<00>R<00>"file:";f
$<00>|<00><00><10><01> programam sicher<00><12><07> e$
<EFBFBD><EFBFBD>"" <20> 2030<14> 8 <14>a<12> <0B> umleiten
der standardeingabetB <0B> f$<24>"" <20> <20>200<00>
L <0B>"file:";f$<00>V <0B> 8,8,2,f$<24>",seq,r"<00><12>
<0B> 152,8<00><12> <0B><00>H<00> einlesen des file
namensCR<00>"file:";f$I|<00><00><10><01> progra
mam sichern<00><10><01>"@tapecopy.bas"<00><10><01>
<00><12><07> e$<24><>"" <20> 2030<14> 8 <14>a<12>
<EFBFBD> umleiten der standardeingabetB <0B> f$<24>"
" <20> <20>200<00>V <0B> 8,8,2,f$<24>",seq,r"<00><12> <0B> 15
2,8~<12> <0B> 400,500<00>2<00><00>H<00> einles
en des filenamensCR<00>"file:";f$I|<00><00>
<10><01> programam sichern<00><10><01>"@tapecopy.ba
s"<00><10><01><00><12><07> e$<24><>"" <20> 2030<14> 8
 <14>@<12> <0B> umleiten der standardeingabes
B <0B> f$<24>"" <20> <20>200<00>L <0B>"file:";f${V <0B> 8
,8,2,f$<24>",seq,r"<00><12> <0B> 152,8<00><12> <0B><00><00>
H<00> einlesen des filenamensCR<00>"file:";
f$I|<00><00><10><01> programam sichern<00><10><01>"@t
apecopy.bas"<00><10><01> <0B>'l<><<3C>(E,<2C>)<29>-<2D> <0B>,<2C>$
<EFBFBD>,<2C>$lG<<3C>,<2C>$<24>-<2D>%l<><l<><12>+%"<08><08><00>PZ<17>
<EFBFBD><<3C><12><1B><>\<13>+}#<17>"}<12><16>(<00>"<08>X <20><18>
<00>"#"<08>;<08><17>"<08>N<><4E>\<13>+%<12><R,<2C><>
<EFBFBD>%"z<15><18>
/<18>-%;/<18><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><15>,"z<15><18>

/<18>-<2D>,;\<13><00>;
CUSTOM-REMOVEI0<49><11>+<2B><08><
'=M<{=<3D>(<28><08>i(L;<08>~';\<13><00>= n<11><01>"@
tapecopy.bas"<00><11><01>/<11><03> ein minieditor
b<11><03> f$<24>"" <20> <20>200z<11><03> 8,8,1,f$<24>",seq,w
"<00><04>"type //// to exit"<00><04> e$:<3A>8,e$
<00><04> e$<24><>"////" <20> 1030<00><04>8,"x"<00><04>
8,"poke 152,0"A<11><04> 8G$<04><00>P<07> drucke
n eines files<00>Z<07> f$<24>"" <20> <20>200
<12><07>"

<11><03> ein minieditor$<11><03> f$<24>"" <20> <20>200
<<11><03> 8,8,1,f$<24>",seq,w"u<04>"type //// t
o exit"<00><04> e$:<3A>8,e$<00><04> e$<24><>"////" <20>
1030<00><04>8,"x"<00><04>8,"poke 152,0"<00><11>
<EFBFBD> 8<00>$<04>CP<07> drucken eines filesVZ<07>
f$<24>"" <20> <20>200<00><11><07> 8,8,2,f$<24>",seq,r"<00><11>
<07>8,e$:<3A>e$<11><03> ein minieditor$<11><03> f$<24>
"" <20> <20>200<<11><03> 8,8,1,f$<24>",seq,w"u<04>"t
ype //// to exit"<00><04> e$:<3A>8,e$<00><04> e$
<EFBFBD><EFBFBD>"////" <20> 1030<00><04>8,"x"<00><04>8,"poke 1
52,0"<00><11><04> 8<00>$<04>CP<07> drucken eines f
ilesVZ<07> f$<24>"" <20> <20>200<00><11><07> 8,8,2,f$<24>",
seq,r"<00><11><07>8,e$:<3A>e$/NOTFOUNDI0<49>/x<00>/
NO.EXTENSIONS<4E>+<2B>3Haeh?\xO/ INTERPRET<45>+
<EFBFBD>/\<00>+<2B>1$<24>.<2E><08><00>1<16><00><13>/<2F>3 compile
only<6C>/<2F>p'<27><18>I/<2F>/\<13>+<2B>1$<24>.<2E><08><<19>
<00><13>/ !<21>/<2F>/<2F>p'<27><08><<19><00>^^<18>I/<2F>
/\y<00>/a[<5B>+/0<>0<EFBFBD>/1$<24>\y{0]<5D>+/;0<>0<EFBFBD>/
1$<24>\<13>+<2B><17>3Crash\z<00>0DEFERtape"<22>new
<EFBFBD>ame<EFBFBD>4of4<EFBFBD>0<EFBFBD>5<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>4of4<66>1
3<EFBFBD>31<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileLrddel<65>"<22>d
ecompiler"<22>new<65>ame<6D>4of4<66>51<35>60<36>no<6E>hadows<77>>
ramdisk<EFBFBD>>file<6C><00>\<5C>..makecopy<70>2of4<66>clv19n
ov87<EFBFBD>rddel<EFBFBD>"<22>1<EFBFBD>uf-quelle"<22>new<65>ame<6D>2of4<66>0<EFBFBD>
50<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileLrddel<65>"<22>2<EFBFBD>uf
8hallo
was ist das
was ist das
was ist d
as
was ist das
6<>46<34>with<74>hadows<77>>ramdisk<73>>fi
leLrddel<EFBFBD>"<22>editor"<22>new<65>ame<6D>3of4<66>14<31>18<31>wit
h<EFBFBD>hadows<EFBFBD>>ramdisk<73>3of4<66>19<31>45<34>with<74>hadows<77>
>ramdisk<73>>fileLrddel<65>"<22>tracer"<22>new<65>ame<6D>3o
f4<EFBFBD>47<EFBFBD>56<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileLrddel
<EFBFBD>"<22>multitasker"<22>new<65>ame<6D>3of4<66>57<35>62<36>with<74>h
adows<EFBFBD>>ramdisk<73>>filehadows<77>>ramdisk<73>4of
4<EFBFBD>138<EFBFBD>143<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileLrddel<65>
id"<22>editor"<22>3of4<66>14<31>18<31>with<74>hadows<77>>ramdi
sk<EFBFBD>3of4<EFBFBD>19<EFBFBD>45<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileL
rddel<EFBFBD>id"<22>tracer"<22>3of4<66>47<34>56<35>with<74>hadows<77>
>ramdisk<73>>fileLrddel<65>id"<22>multitasker"<22>3of
4<EFBFBD>57<EFBFBD>62<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>>sk<73>>fileL
rddel<EFBFBD>id"<22>c16<31>tape"<22>4of4<66>0<EFBFBD>5<EFBFBD>with<74>hadows<77>
>ramdisk<73>4of4<66>13<31>31<33>with<74>hadows<77>>ramdisk<73>
>fileLrddel<65>id"<22>decompiler"<22>4of4<66>51<35>60<36>no
<EFBFBD>hadows<EFBFBD>>ramdisk<73>>file<6C><01>\<5C>..makecopy<70>3o
f4<EFBFBD>clv19nov87<EFBFBD>rddel<EFBFBD>id"<22>kleinkram"<22>3of4<66>4
6<EFBFBD>46<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>4of4<66>61<36>63<36>no<6E>
dows<77>>ramdisk<73>>fileLrddel<65>"<22>c64<36>grafdem
o"<22>new<65>ame<6D>4of4<66>144<34>164<36>no<6E>hadows<77>>ramdis
k<EFBFBD>165<EFBFBD>binary<EFBFBD>4of4<EFBFBD>165<EFBFBD>169<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramd
isk<EFBFBD>>fileL; <01>\<5C>..makecopy<70>4of4<66>1.<2E>eil<69>c
clv19nov87<EFBFBD>rddel<EFBFBD>"<22>c16<31>supertape"<22>new<65>ame
<EFBFBD>4of4<EFBFBD>32<EFBFBD>50<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileLrd
del<EFBFBD>"<22>c16<31>fileLrddel<65>id"<22>printer"<22>3of4<66>
63<EFBFBD>84<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileS<00>\<5C>..m
akecopy<EFBFBD>2of4<EFBFBD>clv19nov87<EFBFBD>rddel<EFBFBD>id"<22>1<EFBFBD>uf-qu
elle"<22>2of4<66>0<EFBFBD>50<35>no<6E>hadows<77>>ramdisk<73>>fileL
rddel<EFBFBD>id"<22>2<EFBFBD>uf-quelle"<22>2of4<66>51<35>100<30>no<6E>had
ows<EFBFBD>>ramdisk<73>>fileLrddel<65>id"<22>3<EFBFBD>uf-quelle"
<EFBFBD>2of4<EFBFBD>101<EFBFBD>169<EFBFBD>no<EFBFBD>had4<>0<EFBFBD>1<EFBFBD>no<6E>hadows<77>>ra
mdisk<EFBFBD>>fileLrddel<65>"<22>assembler"<22>new<65>ame<6D>2o
f4<EFBFBD>2<EFBFBD>13<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>>file<6C><01>\<5C>.
.makecopy<70>3of4<66>clv19nov87<38>rddel<65>"<22>kleinkr
am"<22>new<65>ame<6D>1of4<66>14<31>25<32>with<74>hadows<77>>ramdi
sk<EFBFBD>4of4<EFBFBD>61<EFBFBD>63<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>4of4<66>138
<EFBFBD>143<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>3of4<66>4 ows<77>>ramd
isk<EFBFBD>>file<6C><01>\<5C>kopieren<65>auf<75><66>amdisks<6B>1of4
<EFBFBD>clv19nov87<EFBFBD>floppy<EFBFBD>\<5C>wird<72>nachher<65>auf<75><66>ap
e<EFBFBD>gespult<EFBFBD>:<3A>makecopy<70>\<5C>kopiert<72>alle<6C><65>iske
tten<EFBFBD>base<EFBFBD>push<EFBFBD>decimal<EFBFBD>limit<EFBFBD>memtop<EFBFBD>rdnew
<EFBFBD>rddel<EFBFBD>id"<22>sys+infos"<22>1of4<66>0<EFBFBD>36<33>with<74>hado
ws<EFBFBD>>ramdisk<73>2of4<66>0<EFBFBD>1<EFBFBD>no<6E>hadows<77>>ramdisk<73>
<04>rot<6F>rdrop<6F>convey<65>;G'<27>true<75><65>lias<61>with<74>h
adows<EFBFBD>'<27>false<73><65>lias<61>no<6E>hadows$<00>\<5C><>tilit
ies<EFBFBD>clv19nov87<EFBFBD><EFBFBD>nlyforth8<00>\<5C><>irectory<72><79>
ape-<2D>opy<70>clv19nov87<38><37>tilities<65>2<EFBFBD><32>nfo<66>86<38>
<EFBFBD>\<5C>..makecopy<70>4of4<66>1.<2E>eil<69>clv19nov87<38>rdd
el<EFBFBD>id"<22>c16<31>supertape"<22>4of4<66>32<33>50<35>with<74>had
ows<EFBFBD>>ramdivey<65><79><EFBFBD><EFBFBD>΀;<3B>:<3A>>file<6C>filefloppy
<EFBFBD>saveramdisk<EFBFBD>;w<01>\<5C>..makecopy<70>4of4<66>2.<2E>ei
l<EFBFBD>cclv19nov87<EFBFBD>rddel<EFBFBD>"<22>c64<36>1-grafik"<22>new<65>a
me<EFBFBD>4of4<EFBFBD>0<EFBFBD>1<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>4of4<66>6<EFBFBD>12<31>
no<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileLrddel<65>"<22>c64<36>2-gr
afik"<22>new<65>ame<6D>4of4<66>64<36>89<38>no<6E>hadows<77>>ramdi
sk<EFBFBD>4of4<EFBFBD>90<EFBFBD>100<EFBFBD>no<EFBFBD>ha
3of4<EFBFBD>0<EFBFBD>1<EFBFBD>no<EFBFBD>hadows<EFBFBD>
>ramdisk<73>4of4<66>0<EFBFBD>1<EFBFBD>no<6E>hadows<77>>ramdisk<73>>fil
eLrddel<EFBFBD>id"<22>assembler"<22>2of4<66>2<EFBFBD>13<31>with<74>had
ows<EFBFBD>>ramdisk<73>>file<6C>\\<5C>zu<7A><75>ape-<2D>opy<70>clv
19nov87<EFBFBD><EFBFBD>ier<EFBFBD>ist<EFBFBD>der<EFBFBD>erste<EFBFBD><EFBFBD>eil<EFBFBD>des<EFBFBD><EFBFBD>opie
r-<2D>vorgangs<67>(von<6F><6E>orth-<2D>creens<6E>in<69><6E>amdisk
s,<2C>die<69>auf<75><66>iskette<74>gesichert<72>sh<73>decima
l<EFBFBD>[<5B><>amdisk<73>]<5D>limit<69>$c000<30>u><3E>abort"<22>no<6E>ro
om"<22>$c000<30>memtop<6F>rdnew<01>\<5C>..makecopy<70>1o
f4<EFBFBD>clv19nov87<EFBFBD>rddel<EFBFBD>"<22>sys+infos"<22>new<65>ame<6D>
1of4<EFBFBD>0<EFBFBD>13<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>1of4<66>26<32>36
<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>2of4<66>0<EFBFBD>1<EFBFBD>no<6E>hadows<77>
>ramdisk<73>3of4<66>0<EFBFBD>1<EFBFBD>no<6E>hadows<77>>ramdisk<73>4of
werden)<29>niedergelegt.D<>er<65>zweite<74><65>eil<69>(
<EFBFBD>loppy<EFBFBD>-><3E><>ape)<29>folgt<67>anschliessend.<2E><>as<61>
<EFBFBD>opieren<EFBFBD>ist<EFBFBD>eine<EFBFBD>leidige<EFBFBD><EFBFBD>ache,<2C>ich<63>hoff
e,<2C>ich<63>habe<62>nichts<74>vergessen.<2E><>alls<6C><73>hr<68>d
enkt,<2C>dass<73>etwas<61>auf<75><66>urer<65><72>assette<74>fehlt
,<2C>guckt<6B>bitte<74>hier<65>nach.<2E><>er<65>komplette<74><65>n
halt<EFBFBD>der<EFBFBD><EFBFBD> ."<22>einlegen!"<22>wait<69><74><EFBFBD><EFBFBD>΋disk#
<EFBFBD>!<21>;<3B>0<EFBFBD>disk:<3A>filefloppy<70>1<EFBFBD>disk:<3A>1of4<66>2<EFBFBD>di
sk:<3A>2of4<66>3<EFBFBD>disk:<3A>3of4<66>4<EFBFBD>disk:<3A>4of4Z<00>\<5C>s
convey<EFBFBD>with/no<6E>hadows<77>clv19nov87<38>:<3A>sconve
y<EFBFBD>(<28>[from<6F>to]<5D>destination--)<29>2<EFBFBD>pick<63>2<EFBFBD>pic
k<EFBFBD>2<EFBFBD>pick<EFBFBD>convey<EFBFBD>[<5B><>ditor<6F>]<5D>shadow<6F>@<40>>r<>r@
<EFBFBD>+<2B>rot<6F>r@<40>+<2B>rot<6F>r@<40>+
ame<EFBFBD>(<28>string--)<29>cou
nt<EFBFBD>[<5B><>amdisk<73>]<5D>id<69>place<63>;<3B><00>\<5C>>ramdisk<73>c
lv19nov87<EFBFBD>:<3A>.scrs<72>(<28>f<EFBFBD>t<EFBFBD>--)<29>cr<63>disk#<23>@<40>1<EFBFBD>
.r<>."<22>of4<66>"<22>swap<61>.<2E>.<2E>."<22>>"<22>[<5B><>amdisk<73>]<5D>id
<EFBFBD>count<EFBFBD>type<EFBFBD>;<3B>:<3A>>ramdisk<73>(<28>[from<6F>to]<5D>shad
ow<EFBFBD>lag--)<29>>r<>2dup<75>.scrs<72>over<65>disk#<23>@<40>blk/
drv<EFBFBD>*<2A>+<2B>r><3E><>ƀsconvey<65><79><EFBFBD><EFBFBD>ŀcon isketten<65>
ist<EFBFBD>im<EFBFBD><EFBFBD>andbuch<EFBFBD>beschrieben.<2E><>laus<75><73>ogt,<2C>
19nov87<00>\<5C>clv19nov87d<01>\<5C>..makecopy<70>4
of4<EFBFBD>1.<2E>eil<69>clv19nov87<38>rddel<65>id"<22>c64<36>1-gra
fik"<22>4of4<66>0<EFBFBD>1<EFBFBD>no<6E>hadows<77>>ramdisk<73>4of4<66>6<EFBFBD>1
2<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileLrddel<65>id"<22>c64<36>
2-grafik"<22>4of4<66>64<36>89<38>no<6E>hadows<77>>ramdisk<73>
 -quelle"<22>new<65>ame<6D>2of4<66>51<35>100<30>no<6E>hadows<77>
>ramdisk<73>>fileLrddel<65>"<22>3<EFBFBD>uf-quelle"<22>new<65>a
me<EFBFBD>2of4<EFBFBD>101<EFBFBD>169<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>>fileN
<00>\<5C>kopieren<65>auf<75><66>amdisks<6B>1of4<66>clv19nov8
7<EFBFBD>floppy<EFBFBD>\<5C>wird<72>nachher<65>auf<75><66>ape<70>gespult<6C>
:<3A>makecopy<70>\<5C>kopiert<72>alle<6C><65>isketten<65>0<EFBFBD>dri
ve<EFBFBD>base<EFBFBD>pu#monitor
m1000
x
////
x
poke 1
52,0
e$<24><>"" <20> 20304<14> 8: <14>]<12> <0B> u
mleiten der standardeingabe<00>B <0B> f$<24>"" <20>
<20>200<00>L <0B>"file:";f$<00>V <0B> 8,8,2,f$<24>",se
q,r"<00><12> <0B> 152,8<00><12> <0B><00>QH<00> einlese
n des filenamens<00>R<00>"file:";f$<00>|<00><00>
<EFBFBD><01> programam sicherdLrddel<65>"<22>printer"<22>n
ew<EFBFBD>ame<EFBFBD>3of4<EFBFBD>63<EFBFBD>84<EFBFBD>with<EFBFBD>hadows<EFBFBD>>ramdisk<73>>f
ile <20>with<74>hadows<77>>ramdisk<73>>file<6C><01>\<5C>.
.makecopy<70>3of4<66>clv19nov87<38>rddel<65>"<22>kleinkr
am"<22>new<65>ame<6D>1of4<66>14<31>25<32>with<74>hadows<77>>ramdi
sk<EFBFBD>4of4<EFBFBD>61<EFBFBD>63<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>4of4<66>138
<EFBFBD>143<EFBFBD>no<EFBFBD>hadows<EFBFBD>>ramdisk<73>3of4<66>4<0F>;<3B>\<5C>wart
et<EFBFBD>auf<EFBFBD>taste<EFBFBD><EFBFBD>ariable<EFBFBD>disk#<23>-1<>disk#<23>!<21>:<3A>
disk:<3A><>reate<74>,<2C><>oes><3E>@<40>dup<75>disk#<23>@<40>-<2D><>ƀc
r<EFBFBD>."<22><>itte<74><65>iskette<74>"<22>dup<75>.<2E>."<22>einlegen!"
<EFBFBD>wait<EFBFBD><EFBFBD><EFBFBD><EFBFBD>΋disk#<23>!<21>;<3B>0<EFBFBD>disk:<3A>filefloppy<70>1
<EFBFBD>disk:<3A>1of4<66>2<EFBFBD>disk:<3A>2of4<66>3<EFBFBD>disk:<3A>3of4<66>4<EFBFBD>d
isk:<3A>4of4k<00>\<5C>new<65>ame<6D>clv19nov87<38>:<3A>new<65>
<00>12
#
=<3D><00><00><00> RD.tapecopy
<00>\<5C>clv19nov87Z<00>\<5C>sconvey
<EFBFBD>with/no<6E>hadows<77>clv19nov87<38>:<3A>sconvey<65>(<28>[f
rom<EFBFBD>to]<5D>destination--)<29>2<EFBFBD>pick<63>2<EFBFBD>pick<63>2<EFBFBD>pi
ck<EFBFBD>convey<EFBFBD>[<5B><>ditor<6F>]<5D>shadow<6F>@<40>>r<>r@<40>+<2B>rot
<EFBFBD>r@<40>+<2B>rot<6F>r@<40>+<2B>rot<6F>rdrop<6F>convey<65>;G'<27>true<75>
<EFBFBD>lias<EFBFBD>with<02>hadows<77>'<27>false<73><65>lias<61>no<6E>hado
ws<EFBFBD>\\<5C>zu<7A><75>ape-<2D>opy<70>clv19nov87<38><37>ier<65>ist
<EFBFBD>der<EFBFBD>(fast)<29>komplette<74><65>opier-<2D>vorgang<6E>von
<EFBFBD><EFBFBD>iskette<EFBFBD>rev<EFBFBD>3.8<EFBFBD>auf<EFBFBD><EFBFBD>assette<EFBFBD>niedergele
gt.<2E><>as<61><73>opieren<65>ist<73>eine<6E>leidige<67><65>ache,<2C>
ich<EFBFBD>hoffe,<2C>ich<63>habe<62>nichts<74>vergessen.<2E><>al
ls<EFBFBD><EFBFBD>hr<EFBFBD>denkt,<2C>dass<73>etwas<61>auf<75><66>urer<65><72>ass
ette<EFBFBD>fehlt,<2C>guckt<6B>bitte<74>hier<65>nach.<2E><>er<65>ko
mplette<EFBFBD><EFBFBD>nhalt<EFBFBD>der<EFBFBD><EFBFBD>isketten<EFBFBD>ist<EFBFBD>im<EFBFBD><EFBFBD>andb
uch<EFBFBD>beschrieben.<2E><>laus<75><73>ogt,<2C>19nov87<38><00>\
<EFBFBD>disk"<22>clv119nov87<38>:<3A>disk"<22>\<5C>folgender<65><72>t
ring<EFBFBD>wird<EFBFBD>an<EFBFBD>\<5C><>isk<73>gesendet<65>8<EFBFBD>&15<31>busope
n<EFBFBD>n"<22>bustype<70>busoff<66>derror?<3F>drop<6F>8<EFBFBD>&15<31>
busclose<EFBFBD>;<3B>\\<5C>z.<2E>.<2E>disk"<22>s:file"<22>\<5C>loesch
t<EFBFBD>fileo<00>\<5C>tapecopy<70>clv19nov87<38><37>nlyforth
<EFBFBD>1<EFBFBD>6<EFBFBD>+thru<72>\<5C>kleinkram<61>7<EFBFBD>11<31>+thru<72>\<5C>makec
opyc<00>\<5C><>irectory<72><79>ape-<2D>opy<70>clv19nov87<38><37>
tilities<EFBFBD>3<EFBFBD>makecopy<EFBFBD>9<EFBFBD><EFBFBD>nfo<EFBFBD>86<01>\<5C>wait<69>d
isk#<23>1of4<66>...<2E>clv19nov87<38>:<3A>wait<69>key<65>drop
<0E>P<EFBFBD><50>l_]p<01>cp<01>(<03>*<05>
-<05>0<05>*<05>-<05><00><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>鞄쇋<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
J<EFBFBD><EFBFBD>M<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>T<EFBFBD><EFBFBD><EFBFBD>X<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> !"#v@gcagm+nlc/012
45dry]su[2im<69><6D><EFBFBD><EFBFBD><EFBFBD>'
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>{}<7D><19>;
<0E><><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD><6F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
}~@ab<61>d
efgh?/9%+7xclv<6C>sec8sed<65>sei<65>nop<6F>rti@rts`
dexJdey<EFBFBD>inx<EFBFBD>inyHphahphppla<6C>plp(brkbcc<63>
bcs<EFBFBD>beq<EFBFBD>bmi0bnePbplbvcpbvs<76>rorEA<45>~<7E><><EFBFBD>ad
c<EFBFBD>Z<EFBFBD>}<7D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>and<6E>Z-=9%51!)aslEA
bit<EFBFBD><EFBFBD>,$
cmp<EFBFBD>Z<00><><14><06> <09><07><00>[xI<78>P <20>V FU$<24> h<>8
<EFBFBD><EFBFBD> <20>V<EFBFBD><56>`I<02><05><>lC <09> C e<05><>l<EFBFBD>8` <20>l<>
<EFBFBD><00><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>l<EFBFBD>rk-<2D>Ten<65>u<14> <09><12><12> <20> <0B>
<EFBFBD>#<23>
<EFBFBD> E
PI<14><10><12> <20><><EFBFBD>8 R<>l<EFBFBD> <0C><00><0E><04> 3 h<>
<EFBFBD>
<EFBFBD><0E><15>0'<27><><EFBFBD> <14>X<EFBFBD>  ~l<> <0C><12><><EFBFBD> <14><><EFBFBD> 
~l<> <0C><> <0C>D<EFBFBD>Ҡ <14><00>*<2A><11>+<2B>!<21><01> <20>
<EFBFBD><02> <20>
<EFBFBD>IP
<EFBFBD><03> <20>
l<EFBFBD>
<EFBFBD><04> <20>
<EFBFBD><00> <20>
<EFBFBD><02> <20>
<EFBFBD>P
<EFBFBD><05> <20>
lk
IP
<EFBFBD><07> <20>
lk
<EFBFBD><06> <20>
<EFBFBD><0E><05> <0E>
 <0E><0E><03>&,<2C>$<24><>
<EFBFBD><00><00>HP<48><50><EFBFBD>
<11><05> C
<EFBFBD>p<EFBFBD><EFBFBD><EFBFBD><1C>0HP<48><50><EFBFBD>p<EFBFBD><70><EFBFBD><1C>HP<48> <20><><EFBFBD>8Eg<45>l<><6C> <20><>
E:<3A>l<02><><EFBFBD>I<03> <0B><> C <20> <20><06> ńEc<45><02>c<EFBFBD> l(<04>
<00><><EFBFBD><EFBFBD><EFBFBD> C<02><>P<EFBFBD><50><EFBFBD>` <20><05><>l<05><> <20><06><00><> <20><02>
<EFBFBD><EFBFBD><03><>P<EFBFBD> <20><><EFBFBD>:<3A>)Pl<><6C> <20><> <10><> p<><70>JP<4A> ;<05>
<05><1C>p<EFBFBD><70>JP<4A><50><EFBFBD><EFBFBD>p<><70><EFBFBD>HP<48><50>0p<30><70><EFBFBD>HP<48>p<EFBFBD> <00>
<EFBFBD> ClJ<04> ) <09><> <1C><><EFBFBD>`<60>$<24><1F><06><00><07><> <20>
-;);8*_DHQH<51><48>ߨF<DFA8><46>R<EFBFBD><52><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>BPD<50><44><EFBFBD><EFBFBD>ZZI<5A>M
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䂌<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᇑ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^<5E>
RSTUVWXY<EFBFBD><EFBFBD>|ݮ<>r@ofp@t'agz^x-./<2F>23456789<38>
;<=>?
r<x<1B><><EFBFBD> <0B><><EFBFBD>
<EFBFBD><EFBFBD> <19>}~<7E>2\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;<=>?
M<>rstu?a *addR` bcc ...enD<6E> inc *a
ddr+<2B><>...end .mE<6D>!!!sbi16 .md (sddr s
v<EFBFBD><EFBFBD> lda *sddR<64> sbi (sv<73><76> sta *sddR<64> b
cs ...enD<6E> dec *sddr+<2B><>...end .ml<6D>l<>
 <20><05>l<7F><6C>` k <20> 9<02><> <20><02><> <20><02><>$<24>0$<24>
0<05> m<05> C<02> C$<24>0'<27><> <20> +<02><04><>H <20> <20>
<EFBFBD>P<><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> C<02><>P<EFBFBD><50>`<14><10><11><16> (<28>
<EFBFBD> <20>
 'l<><14>y<EFBFBD> 'Iy<49> In<49><14><> R<>l<EFBFBD>h<>T<EFBFBD><10><14><11>
<EFBFBD> <14>`<60>ᒂ<EFBFBD><E19282><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>녃<EFBFBD><EB8583><EFBFBD><EFBFBD><EFBFBD>S<EFBFBD><53><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>A
BCDEFGHIJKLMNOPQRSTUVWXY<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>$%&'()*
+,-./0123456789:;<=>? 76
<12>
`~<18><><EFBFBD>~<1E>`<11><><EFBFBD><EFBFBD><10><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>on<6F><6E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>{<7B>
}~@abcdefghijklmnopqrstuvwxy<78><03> lo <20>
<EFBFBD> <0B>!<21><><EFBFBD> <14>I<> <20> <0B>l<><0F><>8<EFBFBD><01><><EFBFBD>F<>lh <20> <0B>
<EFBFBD>4<EFBFBD><01><00><><EFBFBD>7<EFBFBD><01><>P<EFBFBD><50><EFBFBD>xlo<0E> <0C>
 <20> <20> <17>ؠ
<14>x<EFBFBD>
 <20> <0B> <20> l<> <0B><><EFBFBD><03><00><>h<EFBFBD><68>P<02><> <20> <0B>`
$p0$<06><00><03>&h<>Ġ <14> <20> <20> 0 <20> <0C>P<EFBFBD>
 <20> <0B><>l<EFBFBD><0F>I<EFBFBD><49>)$  l4<0F> <20> <0C>p<EFBFBD> lZ
P8<50><38><EFBFBD>  <20> le <20> ؠ4<D8A0><01><00><><EFBFBD>7<EFBFBD> <20> <0B><>P<EFBFBD><50><EFBFBD>
clv13oct87
clv13oct87
<14>\]^_<><5F>UQMQRBF<42><46><EFBFBD><EFBFBD><EFBFBD><EFBFBD>MI<4D>Z<EFBFBD>SPD<50>W<EFBFBD>|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>W
V<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B<EFBFBD>V<EFBFBD>HGNI<EFBFBD><EFBFBD><EFBFBD>MNOPQ<EFBFBD><EFBFBD>
TUVWXYZ<EFBFBD>|<7C><><EFBFBD> !"#$%&'()*+,-./0123456789<38>
=>?3<><33><EFBFBD><EFBFBD><EFBFBD>º <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> &<26><><EFBFBD><EFBFBD>Ω<1C>{<7B> <07><>h
w<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><1D><06>}08bk*j3nh'<27>klmn
opq4<&87#xk





@loa c-16<31><36><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 key<65><79><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
:key<65><79><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>f<>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:<00>l<><6C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><00>l1<6C><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<00>l2<6C><32><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD> l3<6C><33><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>k






k





<00>t<><74><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
uF-16/2<><32><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
k





k






k





k





k





k






k





k





k





k






k








<00>(2064)<00>lG8<47>la9l<39><6C>
b.{<12><18>e<EFBFBD>F;<3B>q.+p_
$volksFOR VOC-LINKV#<00> U
DPV#<23>
SP@
<EFBFBD><07>$<24><14>%<25>$<24>8<><02><07>F<14><01><07>
<00>l
SP!g
<EFBFBD><07><><07><14><07>l ?
UP@_
<EFBFBD>
l'
w
<EFBFBD>UP!<21>
<EFBFBD><04><07><01><><07><00><00><01><18><02><07><02>l
<00>
RP@<40>
<EFBFBD>l'
<00>
<EFBFBD>RP!<21>
<EFBFBD>l<>
<00>
<EFBFBD>>R<>
<EFBFBD>8<><02><02>F<03><07><02><07>l}
<00>
<EFBFBD>R>Q
<EFBFBD>8<><02><07>F
<14><02><07><02><07><18><02><02><02>l J
R@ <07>$l<00><00>
! <0C><07>$<24><07>%H<><07>$H<><07><01>$l<> <0B><00> +!% <0C><07>$
<EFBFBD><07>%H<><18>$<24>$H<><07><01>$l  DROP}
a SWA
Pu <0C><07><><03><07>$<24><><07>$<24><01>H<><00><07>$<24><07><07><>$ll
DUP<55> <0C>8<><02><07>F<14><03><07><01>H<><07>l<00> ?DU
P<EFBFBD> <0C>Pl l<> <00> OVER<45> <0C>8<><02><07>F<14><04>
<EFBFBD>H<><07><01>l <00> ROT<4F> <0C><03><07>%<25><01><07><03><07><05>

W
AND<4E>
H<EFBFBD>1<07><07><><07>1<07>l<>
<00>
XORH<>
q<07><07><><07>q<07>l<>
!-3H<>8<><07>H<><07><01><07>
<03>l<>
!-NOTs<18><><07><07><><07>l !kNEGATE
<EFBFBD>8<><38>"<00>DNEGATEH8<48><38><07>H<><48><07><07><><07><07><01><>
<07>l
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><07>$<00><10><><18><07><07><02><14><00>`"<00>D+<2B>
<0E> <20>H<><18>&<26>H<><07>'<27><07><07>$<24><07><01><07>%<25>l #<00>
1+<2B><0E><18>%K<0F>LIT<49><0F>8<><02><07>F<14><0E><07><0E>
<EFBFBD><18><02><0E><02>l %<00>GLITERAL #<23> <0C><00><>
b
<00>
<18>I$ <0B>R|$ &0<m<10><03><>$<24><>l&f
0=<3D><10><07><>P<EFBFBD>&\UWITHIN<49><10> <20><0E><01>E$<24><07>
%<25>
<EFBFBD>E&<26><07>'<27><>lt'<00><<3C><10><07>$<24><07>%<25><18><02><07>
<EFBFBD><14>%q0<><30>E$<24><07>%lo'<00>U<L<10><07>$<24><07>%<25><18>
<EFBFBD><07><02><14>E$<24><07>%<25>lqlXb}$ )<00>ABS
#Xb<00>$ # O
<0F> <0C>
<EFBFBD> <0C>
s <0C>
<EFBFBD>
$ *<00><11>(
DO #<23> 1 *#<12>(?DO #<23> 1<0E> b O
<EFBFBD> <0C> <0B>
<EFBFBD>
h $ *3BOUNDS #<23> <0C>
s $ *x<12>ENDLOOP<4F>
<EFBFBD>l<>
+<00><12>(LOOP<4F><18><01><02><02> <0B><02><00><02>l <00><05>
<EFBFBD><0F><><02><0E>l +<00><12>(+LOOP<4F><18><07><02><02><07><02><02>q
<14><18><02><07><02>(Dl ,<00><12>I<EFBFBD><12><00>F<14><><01>Ȣ
l/<00>CASE?<08> <20><0E>$AP <09>%QPlq<10>lZ0
<00>BIF #<23>b<13><13>$ 0<00>DTHEN #<23><11><0F>{$ 0
-DELSE #<23><0F><13> <13>s {[$ 0bEBEGIN #<23>
<EFBFBD>$ 0_EWHILE #<23><0F><13><0F>b<13><13><0F><><EFBFBD>
$ #<23><13>
<0C><0F><>1b
h { <13><>$ 0<00>FREPEAT #<23><0F><13>
<13>$ 0<00>EUNTIL #<23><0F><13>b<13>$ 1DBDO #<23>
#\h $ 3<00>2*<2A><15>
<EFBFBD><07>*<2A>l #[<0F>+div
ision overflow$ 4<00>UM/MOD'<16><07>)<29><07>(<28><18>
<02><07><02><14><07>%<25><07>$H<><07>'H<><07>&<26><18>*8<>%<25>)<29><>$<24>(<28>
&*<2A><04>$<24>%&'&&&%&$JPߠ<01>$<24>%<25> <20> $ <0B>&<26>H<>
%<25>H<>$<24><07><01>'l5M/MOD #<23> <0C>
<EFBFBD><11> kb
d
<EFBFBD>
s %<16>
kb<00><0E> b s <0C>
<EFBFBD>
s / $ 5<00>
2/<2F><16>
<EFBFBD> 7<00>MOVE #<23>
<EFBFBD>
JbO
<EFBFBD>$
O
<EFBFBD>$ 8<00>PLACE #<23> <0C>
<EFBFBD> <0C> <0C>O
<EFBFBD><17> $ 8
COUNT,<18><07>$<18><01><07><07>%<25><00><07>8<><02><07>Fl<> 8"
ERASE #<23><0F>$ 9mFILL<4C><18> <20><0E><>$<24>'<27>
<EFBFBD>(H
P<EFBFBD><EFBFBD>)JP<4A><50>&<26><06>(HJP<4A><50>l :_HERE #<23> <09> $ :
<EFBFBD>PAD #<23>Rb<>
$ :<00>ALLOT #<23> # $ :<00>,
#<23> <0C><0F>$ :EC, <00> <0C> <0B>
1b/s <0C>s
<13><> $ <JSKIP #<23>
<EFBFBD> b<13><00> <0C> <0B>
1b/
s <0C>s <13><> $ <<00>/STRING #<23> E<11> <0C> <0C>
"
1$ h)<29>Ia<49> I[<5B><05>ɀ`<60>`=(<28>CAPITAL<41><4C><EFBFBD> d<>
<EFBFBD>l >x<>
CAPITALIZE<EFBFBD><EFBFBD><07>$<24><07>%<25>$<24>&<26>D&P<05>
l H<>$ d<><64>$l<><6C><EFBFBD><EFBFBD><EFBFBD>*<2A><03><07>$<00><10><><18><><19>&<26>&<26><>
<EFBFBD>'<27>'8<>$<24><><19>$<24>%<25><><19>%<25>
<EFBFBD><07><><19><07><>TH-83 3.5
compiled 20nov85re<72><65><EFBFBD><EFBFBD><0E><1D><><EFBFBD><EFBFBD><18><0E><02><0E><03>
<EFBFBD><EFBFBD><EFBFBD><0F><> END-TRACEe <09><><EFBFBD><13><0E><08>Ʌ<15><02>l
7 RECOVERZ!ȅȅ<1D>PFFl #z NOOP
<00> ORIGINy#<00> S0V#<00> R0V#
<00> 
DPV# <00> OFFSETV#<00> BASEV#<00> OUTPU
TV#K INPUTV#Y ERRORHANDLERV#<00>
<02>
<EFBFBD>8<><02><07>F<14><02><07>l<00>
<EFBFBD>RDROP<EFBFBD>
 
EXIT& <0B><02><0E><02>l<>
 ?EXIT= <0B><14><18><02>
<EFBFBD><02>(PVl 3 EXECUTE<54> <0B><07><1C><07><1D><18><02><07>
<EFBFBD>lu PERFORM #<23> _ $ <00> C@<40> <0B><07>$<24><07>
%<25><00><07>$l<00> C!<21> <0B><07>$<24><07>%H<><07>$<24><><18><04><07>
<02>l <00> CTOGGLE #d
<EFBFBD> s <0C> $ <0B>L @<40> <0B>
<07>$<24><07>%<25>$<24><03>$<24>%<25><07><01>$<24>H<><07>%<25><07><07><04><07><07>%
<EFBFBD><07>l <00> -ROT #<23> <0C> $ 
NIP #s h $ 
,
UNDER #s <0C> $ <
PICK #<23><0E>
<EFBFBD>
<EFBFBD> $ 
n
ROLL #<23> <0C>
u

<EFBFBD> O
<EFBFBD><0E><15>h $ <00>
2S
WAP #<23> <0C>
<EFBFBD> O
$ <00>
2DROP<4F> <00>
2DUP #<23> <0C>
$ <00>
+A
H<><07><07><07><><07><03><07>l<>
<00>
OR<4F>
H
<EFBFBD><07><07><><07><07>l<>

 
     
 ; 1014 00  00  
"1",8,00 00
t(E>
#s <0C>$ (<00>0> #<23>k$ (<00>0<> #<23>q$ (
U> #s J$ (= #1<0E>$ (-D0= #|
<EFBFBD>$
(;D= #}<0E>a$ (kD< #<23> <0C>
1b <00>2
2
<00>
J$ # bs h $ )\MIN #<23>
<EFBFBD>}
)<00>MAX #<23>
<EFBFBD>})<00>UMAX #<23>
J})<00>UM
IN #<23>
#})<00>EXTEND #<23> k$ )ODABS #
\\ zu Files clv06jan88
SKP ignoriert 2 bytes
WRD gibt 2 bytes als Zahl aus
STR gibt einen 0-terminated string aus
Kanal-Nummer 0 gibt die aufbereitete
Version der Directory.
Der Rest ist auch zur Ausgabe jedes
Basic-Files brauchbar, da gleichs Form.

l4<1B><04>$%<25>=<3D>&QP<11>&P<02>'<27>$PF%F$l<><6C><EFBFBD>&<26>(
<EFBFBD>'<27>)<29>&Q<14>&P<02>'<27>$PF%F$(<28><14>*<2A>$%P<>8<EFBFBD><02>&<26>
<EFBFBD><EFBFBD>H<>'<27><07><><18><04><07><07><02><14> <0C><04><07>$H<><04><01><07>%<25><>
*<2A>$<24>(HF*<10><> <20>$<24>l b<00><>SOURCE #<23><19> <0B> b
<00>1<EFBFBD>;$ <0B>
<19> $ b<00>WORD #<23><1B><>$ b<00>PARS
E #<23>
<EFBFBD><1B><19> 2<><32> s O
Q<19>
<EFBFBD> 1<0E> O
1<0E># $
b<00>NAME  dF\NEEDS #V<1B>&2
b<00>$ d
WHEX #RF  $ d<00>DECIMAL #R
F  $ e
DIGIT? #R01<0E> R #bR<0F>1<0E> R #b
F <09> <0B> #<11> ; h <0C>$ e
ACCUMULATE #s <0C>
s F <09> \h <0C> F <09> \<15>O
$ e[CONVERT #<23>
*%b<00> <13><>/$ #<23><1E> <0B>$ #*[<0F># $
#/*$ f<00>DPLZ!<21><>  <1D>R<1D><1D><1E><1D><1D>%<1D>
b<13><><EFBFBD>o<1E>RN<1D><0F><1D><1D> T<>$ g}NUMBER #
<EFBFBD><1E> <0C><10>+?kbX$ hLASTZ! #*<1F> <0B>
$ h#HIDE #.b m<0F> o$<24>  $ h:REVEA
L #.b
mo$<24>  $ hwIRECURSIVE #`$ #
.b d
<EFBFBD> |
<EFBFBD> <0C> h $ h<00> IMMEDIATE #R@<40>
$ h<00>RESTRICT #R<0F><>$ i<00>
C
1$ #<23>
R<0F><>
R<0F>1b<00> <0C> <0C><0E><18> 1<0E><0E><17>*# <0C><0F>$
k<00> ?HEADZ!k!| #
!<21> ; [
! $ l!
WARNINGZ! #0!<21> ; *<1F> o$<24> T%2
b,*<1F>
G"<22>exists <20>6$ l&!CREATE #<23><18><19> Io$<24>
<0B> IV<1B> <0B> <0C>R <20>q<0E>+ invalid name<6D>*
<EFBFBD><0E>4!
!<21> b<00>
!# <0C> <0C> Ij R <20><1F> <20> 
<0E> b<00> @ b<00>|*R<1F>
7 <00>???,
$ o<00>": #<23>!ao$<24> _$ )(<28><0F> <20>8<><02><02>F<03>
<EFBFBD><02><0F><02><18><02><0E><><1D>l o<00>"A; #<23><0F><13>$ (`
$ o0#CONSTANT #<23>!I<18> <20>8<><02><07>F<14><02><1C>H
<EFBFBD><1C><01>l of#VARIABLE #<23>!<21><0F>$ p<00>#UALL
OT #<23> 
<EFBFBD> <0B>
R<0F>#<11>+
Userarea full
<EFBFBD> s 
# $ p<00>#U $ r<00>$
VOCABULARY #<23>!<21>I<18>I
<18>
<EFBFBD> I
 <0C> l<> _$ $ rJ$FORTH<54>$U<>U<EFBFBD>
r<00>$ONLY%88
%<25> l<> <20>1$ _$ <0C>$$ r%
ONLYFORTH #%%<25>$z%$ s2% DEFINITIONS #_
$<24> o$ $ #<23> mu"G"$ sl%ORDER #<23>$)<00>
<EFBFBD>%<25><0F><><EFBFBD><12><12>(,o$<24>%$ s<00>%WORDS #_$<24> <0B> <0B> <0C>
6<EFBFBD><10>
b<00>6<EFBFBD> G", s m <13><>2
<EFBFBD>$ v<00>&
' #V<1B>&<26><10>+Haeh?$ vR&I[COMPILE] #V&I$
v<00>&C['] #V&&$ v' NULLSTRING? #<23> <0C> <0B>
<EFBFBD> b2
$ H<18><1C><02>H<><1C><00><0F>l w'
>INTER
PRET0'<27>'xf'NOTFOUND](<28>'xy'
NO.EXTENSIO
NS #~+Haeh?$ x<00>' INTERPRET #s' #-)V<1B>&<26>
b<00><0F>
b_ s'<27>+ compile onV&<26> <0C>(<28>"<22>
<1B> b
<00><18>(I$  $ #[*R <20><10>+ tight stac
k`.b<00> @ b<00>" <00>1<0E>5[<0F>+diction
ary full$ [<00>(?STACK/)<29> 8<><07><04>$H<><14>P <09>
<20> Y($ <0B><14>EH<><04><14><01>l <20> [<0F>+ stack em
pty\$).STATUS](<28>bZ!O
O
 $ \<00>)<29>PUSH #O
s <0C> <0C>
<EFBFBD> <0B>
})<29>
<EFBFBD>
$ \<00>)LOAD #<23> <0C>; <0B><19>)
QUIT #<23> <09> <0B>
(<28>*^<00>* STANDARDI/O #<23>*T
<09><0F>$ ^K*'ABORT](<28> ^<00>*ABORT #Xc <09>*Y
*<2A>*_<00>*SCRZ!_+R#Z!_<00>+(ERROR #Y*
,<2C>G"*7,<2C>6<EFBFBD><19> <0B> b+ <0C><19> + <0C>*_%
+<2B>(ABORT" #3s b<00>
XO
<EFBFBD> <09> $ h $ #3s
b<00> <09> $ h $ _z+FABORT" #<23><18>+$ _<00>+FE
RROR" #<23>~<0F><>
R0<>
i,$ <0B><00>,#S #<23>,<2C>
ab
<13><>$ <0B>D,D.R #"
d
<EFBFBD>`,I,<2C> <0C>,<2C>,<2C> <0C> <0C><11> 1
(,7$ <0B>Y,.R #s X<11> <0C>,$ <0B>-U.R #<23>s <0C>,
$ <0B>-D. #<23><0F>,,$ <0B>(-. #X--$ <0B>9-U.
#<23>--$ <0B>g-.S #
<EFBFBD> <09> <0B> 1R E<11>:<00><12>
l-<2D><0F><12>$ <0B>v-C/Ly#)<00><00>-L/Sy#<00><00>-LI
ST #+ <0C>Scr +<2B> <0B>#C+<2B>}<7D>$ $ cOSTA
TEZ!c<00>eASCII #C+<2B><1B><0E> <0B><1B> b&$ c<00>
," #R"<22><1B><18> <0C><0E> $ c<1C>"LIT #O
O
d
*
<18>
<EFBFBD>
<EFBFBD>
$ c,<1C>(" #3$ cgA" #<23>l$ dt
<1C>(." #3*7$ d<00>B." #<23><18>$ d<00>a( #R
)<29><1B>
$ d<00>b.( #R)<29>7$ d<00>a\ #<23><19> <0B>-
<17><0E>-<2D><15> $ d<00>b\\ #<23>;<3B> $ #b  <0B>
h  <0B>$ #b  h O
b}<0E> h N<1D> <0B><0E> ; h
[$ #R&<26>b R
[$ R$<24>b R[$ R
H<EFBFBD>b R[$ R%<25>b<00>[$ <0B>$ #R,<2C> 1
s R.1|
$ #N<1D> [1; <0B>N# $ Z!gH
NUMBER? #F <09>)<29> *<18> N<1D><0F><0F>
RR<00> <0C>R
<EFBFBD>R-<2D>b [<0F>
<EFBFBD>R<1D>
b F  <0C>R<1D>%
LEARSTACKZ<1F><14><04>H<><04><14>l iKHALLOT
#<23> <09> <0B> 1s 
<0F> <0C> 1<0E> <0C>  <0C>u
<EFBFBD> 1<0E>X<1F>
 $ i<00>HEAP #<23> <09> "$ i% HEAP? #, ]
<EFBFBD>
$ #<23> <0C><18> 1<0E> <0C>, s <0C>, <20> 1*# `$ <0B>8<>
<EFBFBD><02>F<03><0F><02><0E><18><1C><03><0E><><1C><0F><18>h<><68>l<> #O
*<1F> <0B>" $ j8 EDOES> #<23><18> Rl|<18><18> $ #<23>
R<0F><>
R<0F>1R h `<1F>I<18> l<> <20>!<21><07>(<28><07>)<29>
<18><02><07><02><14><07>&<26><07>'&Plt<10>&<26><07>%<25>&<26><07>$%P
l <00>$<18><02>$<24><02>%<25>$h8)<1F>$<24>$<24><02>%<25>) <20>
<EFBFBD>$h<>$<24>$<24>
<EFBFBD>%<25>$E(P<><50>%E)P<>l n<00>!>NAME #
<EFBFBD> <0B> b<00>
<EFBFBD>1s <0C>!<21> b"
<EFBFBD>
$ <13><>2
$ #*R<1F>
<EFBFBD>
$
nm"NAME> #<23> "s <0C> R <20>
b<00> $ n<00>">BO
DY # $ n<00>".NAME #SER #<23>!<21><0F>#|<18> <20>8<>
<02><07>F<14><02><18><04><07>H<EFBFBD><05><01>l pC#ALIAS #<23>
!*<1F> <0B> <0C> R <20>
b <00><0F><><EFBFBD> R <20>" $ q
<EFBFBD>#VPZ!%%%l_%q,$CURRENTZ!%q
e$CONTEXT #1$<24> <0C> <0B>
$ #1$ _$$ qu$AL
SO #1$<24> R
<EFBFBD>~+Vocabulary stack full_$<24>
<EFBFBD>1$# _$ $ q<00>$TOSS #<23><0F><>1$#<13><>h $ t
<EFBFBD>%(FINDV%<25><03><07>$<00><10><>&)<1F>(<28><00>$<24>H<EFBFBD>$<24>%<25>$$P
<07><01>ltH<>$)E(P<><18><02>$<24>)<29><00>%<25>*<2A>(<28>&Q)PK<50>P<EFBFBD>
<EFBFBD><03>*<2A><07><>)<29><07><>lq1&<26><07>$<24><07>%<25>$<24>&)8<>$<24>$<24><02>
%<25>&) P <09>$<24><07>%l]&<26>$<24><07>$<24><07>8<><02><07>F<14>&H
0<05>i<EFBFBD><69>H<EFBFBD><48><03><>$<24><><01>l vL%FIND #_$<24> <0C> <0B>
m<0F> 1bmd
<EFBFBD> T%b2
/&$ <0B> 1$ #b
ly'; <0B><1E>b<00>'s' #-)V<1B>&<26> bb_
s'Is''; <0B><1E> bbs && <00>'s'y
<EFBFBD>'a[ #<23><0F>'<27>(u'<27><1B>$ y(] #<23>Q'<27>(u'<27><1B>$
#[<0F>+Crash$ z%(DEFER #<23>!<21>9(I<18> <20><02>
hH<EFBFBD><1C>ȅ<1C>lzi((IS #O
<EFBFBD> <0F>
<EFBFBD>  $ #<23>
<0B><0F>'<27> <0B> 1s <0C>s'<27> 1|
q<0E>+ not deferred$
z<00>(bIS #<14> <0C><19>)<29><19><0F>)<29>'$ ]<00>)+LOAD
#<23><19> <0B>
<EFBFBD>)$ ]O)THRU #<23>s )
<00><12>)<29><12>$ ]
<00>)+THRU #<23>s )
<00>W)<29><12>$ ]*c--> #<23>
<EFBFBD># <0C><19><0F>)$ ] *RDEPTH #<23> <09> <0B>
1<0E>$ ]
8*DEPTH #
<EFBFBD> <09> s 1<0E>$ #<23><1B> b<00>
com
piling$ <0B> ok$ ^s*(QUIT #<23>)7<><19>'<27>* <13>
<EFBFBD>^<00>*'QUIT](<28>*^<00>* +$ `<00>+BLy# `<00>
+ -TRAILINGW+<2B> <20><0E><07>&<18><07>%<25>'<27>$<18><13><>&I <20> H
P<02>%<25>h<EFBFBD>%l<><13>P<EFBFBD>F'F%<10><>lZ<13>I+SPACE #C+<2B>6$
<0B>
,SPACES #<23>:,<2C><12>$ #<23>m$ <0B>,
HOLD #[8,# 8,<2C> <0B> $ <0B>b,<# #8,8, $ <0B>[,
#> #<23>
8,<2C> 8,<2C> 1$ <0B><00>,SIGN #kbR-i,
$ <0B><00>,# #F <09> <0B><17> R <09> <0C>bR
l-<2D>Dr
?<=-<2D>-<2D>)&7<><12>-,+<2B> <0B>1<EFBFBD><12>-<2D><15>
<EFBFBD>-/U
+7<><12>7$ <0B><00>-PAUSE <00><00>-LOCK #<23> <0C> ]
1
bh $ <0B> <0C> b<00>- <13><>]
s  $ <0B><00>-UNLOC
K #<23> .<2E>$ <0B>8<EFBFBD><05><04><><00><05>l<EFBFBD><04><06><04>H<><04><14><01>
<EFBFBD><02><07><03><18><02><07><02><14>l<>
<EFBFBD>/.FILEV#<1C><00>.PR
EVZ!<21><>Z!<00><00>.B/BUFy#<04><02>(Y"PH<>P<>`<60>
 <0C> <0B>  <0C>.<2E> <0B>  <0C>.   <13><><EFBFBD><00>.(DISKER
R #<23>error ! r to retry <20>7<EFBFBD> Rr1s RR1
|
q<0E>+aborted$ <0B>L/DISKERR](W/<2F>0R/W
](?<3F> #<23> "<0F> kbj <0F> <0C> <0B>b3<00> <09>)T <09>)Y*<2A>
"<0F> <0F> <0B>u
<EFBFBD> <0B>(0b<00>write 0 <13><>R<0F>
<EFBFBD> <0F>V h $ # <0F> <0C><0F>$ #<23> <0C>0<EFBFBD> <09>)T <09>)Y
*<2A>
<EFBFBD> <0C> <09> <0B> R #<23>1<EFBFBD>1$ <0B><00>1BLOCK #<23>1<EFBFBD>1$ <0B>
<EFBFBD>1UPDATE #R<0F><>.<2E> "<0F><0E> $ <0B>H1 SAVE-BUFFE
RS #<23>..1<> b,0 <13><><EFBFBD>.8.$ <0B><00>1
EMPTY-BU
FFERS #<23>..<2E>.<2E> <0B> b
<00> <0C>0 <13><><EFBFBD>.8.$ <0B>2F
LUSH #<23>12$ #<23> <0C>1y1b<00>.<2E> <0B>071b<00>1<EFBFBD> <09>
<0B>
s <0C>1mm Q1$ #<23>1<EFBFBD>
<EFBFBD> <0C>
<EFBFBD>
<EFBFBD> #<11>
<EFBFBD>
JO
<EFBFBD>
b$<00>
<EFBFBD>
<EFBFBD>O
<EFBFBD>:
*3<> <0B> s  <0C>.*3# $ <0B>
<00>3 ALL-BUFFERS #*3<> >3*3<> 1b<13><>$ #<23> R
<20>
$ #<23>"d
<EFBFBD>Js @ |
$ #, 
<EFBFBD> <0B>
O
<EFBFBD> <0B> b
^<00> <0C>
<EFBFBD>1<0E>
O
<EFBFBD> <0B>
<EFBFBD> /<0F> <0C>
Js <0C>
<0F>"J<10>
b
.<00>
@ bZ<><5A>
<0F>3b<00> <0C>
<0F>3b <00>
" 
<EFBFBD> <13><> <13><>$ <0B>4<EFBFBD><05><07>$<00><10><><18><04><06>*H<><04><00>
+<2B><01>$<24>,<2C>$<24>-,<2C>5<EFBFBD>,E*<2A>-<2D>+<2B> <0B>,E&<26><00>5(FORG
ET #<23> @ <20>+ is symbol<6F>3<EFBFBD>5$ <0B><00>5FORGET #V&
<EFBFBD> <0C>$<14> J<10>+ protectedu"<22> @ b<00>" mm
<0F>5$ <0B>H5EMPTY #<23>$<14> ]
<EFBFBD>5<EFBFBD>2<14> 
 $ <0B>
6SAVE #<23>]
<EFBFBD>5
<EFBFBD> <0B> mm<0F> <0B> m <0C> <0B> <0C>b
<EFBFBD><EFBFBD>]
<EFBFBD> <09><01>$ <0B>'6BYE #g2
6T;$ #<23>7<EFBFBD>1b
[ $ <0B>`6STOP? #<23>7b<00>6<EFBFBD>6<EFBFBD>$ <0B><00>6
7<00><00>7KEY?<3F>7<02><00>7DECODE<44>7<04><00>7EXPECT
<EFBFBD>7<06>SEAL #<23><0F>%<25>" $ <0B>K7$ONLY%<25><00>7
%FORTH%<25><00>7%WORDS<44>%<25><00>7$ALSO<53>$<24>8+DEFIN
ITIONSz% #
<EFBFBD> <0B> m<0F> <0B> <0C>1 <0C> <0B> <0C>b<13><>$
#<23><0F>. 3*3 I3$ <0B><00>7'COLD](<28><> # 8@8'7\8
>%<25>ultraFORTH-83 rev 3.57?9<>t8'REST
ART](D<> #<23><10>S<EFBFBD>Q<EFBFBD>N<EFBFBD>Ll,9<00>9CUROFF<46>9H<39>L<EFBFBD>M
<EFBFBD>O<EFBFBD>N<EFBFBD>S<EFBFBD>Q<EFBFBD>l <00>9C64KEY #<23>9<EFBFBD>-v9b<13><><EFBFBD>9<EFBFBD>9$
G9#BSy#<00>9#CRy#
<00><00>9 C64DECODE #
<EFBFBD>9<EFBFBD>b<00> b7/$ <0B>9<EFBFBD>b
<00> <0C> $ <0B>
<EFBFBD>
<EFBFBD>
<EFBFBD>
s <0C> O
<EFBFBD>6<EFBFBD>$ <0B><00>9 C64EXPECT #<23> <0C><0F> <0C>
<EFBFBD> Jb
<00>7<EFBFBD>7 <13><><EFBFBD>
,$ <0B>d:KEYBOARD<52>7P9v9
:p:<3A><00>:CON!<21>:<3A> <16>E<>;<3B> <20><0E>D$<24><10>& <20>:
<EFBFBD><02>. <16>Hl<48>;l<>:<3A><00>;DISPLAY<41>6<EFBFBD>:;<3B>;;1;d;<3B>
;<3B><><EFBFBD><00>;B/BLKy#<04>X;BLK/DRVy#<23>Z! #<23>;
<EFBFBD> R<14>
$ <0B><00>;DRIVE #<23>;<3B><15>  $ <0B><>DRIV
E #<23>;<3B><15>
<EFBFBD> <09> 1$ <0B><DRV? #<23> <09> <0B>
<EFBFBD>;$ <0B>
8<DRVINIT #<23> $ <0B>o<I/OZ!<00><00><BUSOFF<46>
< L<><4C><01> <20> <09><8.$ <0B><00> <20> <09><<3C>.8.
<EFBFBD><00>=BUS
TYPE #<23>: <00><12> <0B>=<3D><12><12>-$ <0B><00>=BUS@A= <20><>l
Z<13><00>=BUSINPUT #<23>: <00>=<3D><12> <0B><12><12>-$ <0B>I=
DERROR? #<23>;R<0F>=<3D>=<3D> R01b<00>6<EFBFBD>=<3D> <0C>91b
<13><><EFBFBD>7<><10><$ y#<23>y#<23>y#v #<23> $>Jb R<15>
$ <0B><0F>
<EFBFBD> (>Jb$>1R<13>R<11>
$ <0B> ,>Jb
(>1R<12>R<18>
$ ,>1R<11>R<1E>
$ #0><3E>
<00><00>?1541R/W #s <0C>+no file"
<EFBFBD>;<3B><16> <0C>; <0C>
#b<13>=-<2D>beyond capacity2
$ `?bh 2
$ <0B>s <0C><15><15><0F>).h <0C>
<EFBFBD><12> b
<00>>C> <00>>
?<3F>
<EFBFBD>><3E>
O
<EFBFBD> bb<15><12>"
<EFBFBD>
<EFBFBD>?$ #R<0F>Es R<0F>
E<11>
<EFBFBD>bs <0C>s $ <0B><00>?INDEX #%@)!7<><12>
-<2D><12>1<EFBFBD>R%7<>6bb<15><12>$ <0B>e@FINDEX #
`?b<00>
$ .<2E><03><07>$<00><10><><18><04>&<26>&H<><04>'<27>'<27><>
.<2E>(<28><>.<2E>) <20>.P<1D><18><02><07><02><14><01><18>(<28><07>)<29><00>l&
<0B>(<28>*<2A>)<29>+<2B>*<2A>(<28><01>*<2A>)(Pl <20>.P<><50>(<28>*<2A><01>(<28>*
<EFBFBD><EFBFBD>.<2E>(<28><>.<2E>(<28>(<28><>.<2E>)<29><>.l<>. #<23> <0F> s <0F> p$
#<23> <0C> <09> <0B>
<EFBFBD> <0C>.<2E> 7/b <0B>
<EFBFBD>.<2E> R<14>
$ <0B>
<EFBFBD>
<EFBFBD> <09> <0B>
<EFBFBD>
<EFBFBD>.<2E> <0B> <0C> <0B> <0C>b
  h $ <0B> O
O
<EFBFBD>
<EFBFBD>
<EFBFBD>
<EFBFBD> 7/<2F>b2
R<><52>
<EFBFBD> <0C>
R<14>
"
<EFBFBD>(0b
<00>read 0 Y<>O
$ #<23>.<2E> <0C> b<00> <0B> <0F> [
1b<13><><EFBFBD>..<2E> ,0$ # <0F>
<EFBFBD>
<EFBFBD>
 <0C> <09> <0B>
<EFBFBD>
 O
<0F><0F>.8.$ #<23>.<2E> <0B> b<00> "<0F> kb<13><>$ #<23>.
<EFBFBD> <0B> <0C> <0B>b<13><>"<0F> k$ <0B>"0CORE? #i/<2F>
<EFBFBD>$ <0B>
q1(BUFFER #i/S0<53>0 <13><><EFBFBD><00>1(BLOCK #i/S0<53>
0<EFBFBD>0 <13><><EFBFBD>1<EFBFBD><1C>hH<68>l<><13>}1BUFFE[<0F><0F><><EFBFBD><0E>
o2<EFBFBD><12> O
<EFBFBD>:<00>
o2<EFBFBD><0F><0F><0E><12><12>1<EFBFBD>
$ <0B>
?2COPY #<23>}2$ <0B><00>2CONVEY #s <0C><0E>u
1<0E> 
q<0E>+nein}2$ <0B><00>2LIMITy#<00><>3FIRSTZ!<21>
<EFBFBD><EFBFBD>"3 ALLOTBUFFER #*3<> <0B> <09> 1<0E>. J; <0B>.<2E>
*3# *3<> <0B> <0C>0<EFBFBD>.<2E> <0B>  <0C>. $ <0B>03
FREEBUFFER
#*3<> 3<>.1Jb(<00>1<EFBFBD> <0C> *3<> 1b<00> <13><>
\ clv06may87)
Speicher:
rdfirst : (len blk data) ...
rdafter : ... free ...
rdlimit : other
-----------------------------
len= 2byte, blk= 2byte
data= 7b-chars / No-of-spaces+$80
[<0F>+ no device<63><65> <20><><EFBFBD>` <20><> <20><><EFBFBD><EFBFBD><EFBFBD><05><>l<EFBFBD><`<60><
<EFBFBD> <20><<3C><18><02><07><02>l{<<3C><00><?DEVICE #<23><.<2E><$
<EFBFBD><<3C><><EFBFBD> <20><0E>& <20><<3C>& <20><><EFBFBD>$ ` <20><><EFBFBD>&<26><>l,9<>Q<BUS
OUT #<23><.<2E><$ <0B>=BUSOPEN #R<0F>|
=$ <0B>=
BUSCLOSE #R<0F>|
=<3D><$ n=<3D><><EFBFBD> <20><0E>& <20><<3C>& <20><><EFBFBD>
$ ` <20><><EFBFBD>&<26><>l,9<>4=BUSIN #<23><.l=$ <0B><00>=BUS
!<21>=<3D> <20><>l<EFBFBD> s $ #F <09>)<1D>`,I,h R,i,I,<2C>,
$ y#<01><00>=
READSECTOR #<23>;R=lu1:13,0,
*<18>=<3D>><3E>=<3D><<3C>-<2D>=; <0B>;R
<EFBFBD>=<3D>>T=<3D><<3C>$ <0B><00>> WRI
TESECTOR #<23> <0C>;R=lb-p:13,0*<18>=<3D><<3C>;R
=<3D>><3E>=<3D><<3C>;R=lu2:13,0,*<18>=<3D>><3E>=<3D><<3C>-<2D>=$
<0B><00>>DISKOPEN #<23>;R
'=R#<23>=<3D><<3C>=$ <0B>u? DI
SKCLOSE #<23>;R
?=<3D><$ 
%@)17<><12>-<2D><18> <0C>
<12><15><15>>C><3E>
<EFBFBD>R%7O
<EFBFBD>6|
bb<15><12><12>?$ <0B><00>
@INK-POTZ!h<>h<EFBFBD>h<EFBFBD><EFBFBD>
ݬ
<EFBFBD>l<><6C>
<20><> <20><>P<EFBFBD> <20><> <20><>la9<61>H@C64INITaآ<61><D8A2> <20><> <20><>
<EFBFBD>@<40><03><><EFBFBD><03>6<EFBFBD><01>T@<40> P<>U@<40>!P<>V@<40><><02><><EFBFBD><EFBFBD><02><17>
P<EFBFBD><00><>P<EFBFBD><1B>P<><04><>xl,9<>a(BSAVE<56>a<EFBFBD><61><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>A
X<><58><05>lP<13><>lP<13>za(BLOAD<41>a<EFBFBD><61> <0B> b<00>
Blk l-<2D>6$ #17<31>9$ <00>b2!<21>b<EFBFBD> <20><0E><03><07>$<24><10>
<EFBFBD>l<> <00>b2@Ib<49><07>$<24><07>%<25>8<><02><07>F<14><03>$<24><07>
<EFBFBD>l,9Bb 2VARIABLE #<23>!<21><0F>$ <00>b 2CONSTAN
T #<23>!II<18> l<> Gb$ cUNLINK,c<><63> <09><><EFBFBD><00><>
Y<18>(<28>H<><48><EFBFBD>P<EFBFBD><50>SI(<28><04>(<28>S<EFBFBD>S<EFBFBD>V <20><><EFBFBD><00>l <00>*)?
*$* <09><> @`<60>*)I <20>
I@<40>)$* @`<60>.`!
 ltc<74>d<EFBFBD> <20><0E>D$Pltc<74>( <20>c<EFBFBD>&HP<48><50>d<EFBFBD> <20><0E>&<26><>
<EFBFBD>'<27><19>'<27>$ <20>cQ&<26><05><>lP<13><10> dJP<4A><50>lP #
Gc<EFBFBD>
1$ <0B>d<EFBFBD>h<EFBFBD><68>l<><13>d<EFBFBD>SI(<28><><02>'<27>Qh<51>R<EFBFBD>l<><13>d<18>S<EFBFBD>
Qh<EFBFBD>R<EFBFBD>l<> e<>UI(<28>J<>lP #Yd<59><0F><03>
GcU+2
<EFBFBD><10>
c<EFBFBD> |
$ #<23>dYdOc<4F>
/1<11>c<EFBFBD> <0B><10>
$ #<23>c<EFBFBD> <0B>:<3A>
$ #.e<> ; e<>dGc<47>
/<0F> C+1q<0E>
eq<0E>
<EFBFBD> ; R
<0F><>:$ #.e
Gc<47>
YdOc<EFBFBD>
<EFBFBD> 1<0E>*f$ #<23>e<EFBFBD> ;
R<08>:$ #<23>cGb<47>
<EFBFBD><0E>c<EFBFBD> Md<4D>#<11> ; <0B>d<EFBFBD> <0B>cGb<47>
<EFBFBD> <0B><0F>c # $ #<23>f<EFBFBD> ; <0B>e$ #<23>f<EFBFBD> ; <0B>f$ #<23>c
<0F> <0B><10> ; re<72> ; [<0F>c # <0C>cGb<47>
<EFBFBD> <0B>d<EFBFBD> $ #<23>c
Gb<EFBFBD>
Md#<11> ; <0B>d<EFBFBD>cGb<47>
Gc<EFBFBD>Gc<47>c # $ #g<> ;
<0B>e$ #g<> ; jf$ #Gc<47><0E>c # <0C>cGb<47>
<EFBFBD>dGc<EFBFBD>
$ #<23>c <0F> <0B><10> ; <0B>f<EFBFBD> g<> ; 8h$ #Yd<59>Gc<47>
<EFBFBD>YdGc<47>R<0F><>$ #<23>YdGc<47><15>$ #<23>1m<0F> $ #
<EFBFBD>9<EFBFBD>-<2D>7b<13><><EFBFBD>9$ #<7<>h<EFBFBD>g<EFBFBD><0F><0F>b<EFBFBD>Scr # +<2B>
<EFBFBD> =-<2D>h<EFBFBD>b <00>not <20>updated<65><0F><0F>b<EFBFBD>Dg*
7<>(,<2C><0F>g*7<>g<EFBFBD>b<EFBFBD>h<EFBFBD>h<EFBFBD>$ #<7s Gc<47><0E><15>

+ $ #+<2B> <0B> Gc<47>Gc11<0E>;/<0F>Gc<47><0E>s <0C>b
$ #*cR%i$ #_i+<2B> <0B>1<EFBFBD>db)P<><50><18><04>
<07><02><14><03>'<27><07>&<26><><07>lq<10>$%P<10><18><06><07><02><14>lt
<10>&A*<2A><><EFBFBD><07><07>$<00><10><>$PF%F$<24>&P<02>'l-j"j DI
GDECODE #<23>9<EFBFBD>b<00> b7/$ <0B>9<EFBFBD>b
<00> <0C>
 $ <0B><><EFBFBD> %bh <0C>
<EFBFBD>
<EFBFBD>
<EFBFBD>
s <0C> O
<EFBFBD>6<EFBFBD>$ h $ "
OjDIGITS<54>7P9v9<76>jp: #d<> <0B>)
<00>9<EFBFBD>:<3A><12><12>
d<> <0B>)
re|
<EFBFBD><12><12> ; dGb<47>ds <0C>d<EFBFBD>ih $
 #<23>ih dGb+<2B> +<2B> <0B>1<EFBFBD>
<EFBFBD>;+<2B> 1!j<>b<00>
 
+<2B> <0B>11+ 9i$ #<23>ih <0C>k<EFBFBD>l+<2B> b'<00>7
<EFBFBD> Rr1b:k<> b2
$ <0B>1<11> ; S<>+<2B> <0B>c
<EFBFBD> 1<0E>6<EFBFBD><10>
<EFBFBD> bkb
<00>ih Kih <13><>[$
#<23>R@1$ Z!
<EFBFBD> <0C><><EFBFBD><EFBFBD><EFBFBD><00><><EFBFBD><EFBFBD><11><>
<13><> <0F>Z!<21>iKi<4B>i<EFBFBD>i<EFBFBD>l;gff_i<5F>i<EFBFBD>i<EFBFBD>i<EFBFBD>fjf<6A>
ggghGhSf<53><11>
d <0F> <0B>
<EFBFBD>O
d $ #<23> n<> 1
; n$ y#<23><1B>n<EFBFBD>S<EFBFBD>Q<EFBFBD>Ni<4E><69>Ql,9<>n<EFBFBD>N<EFBFBD>S<EFBFBD>Ql,9 #<23>
$ <0B>n <0C>g<EFBFBD>n$ #<23><19> <0B> <0C>b<00>n$ <0B><19> /+ <0C>
g<EFBFBD>n<EFBFBD>g+<2B> <0B> 1b+ <0C>i<EFBFBD><0F><0F>b<EFBFBD>)9i<39>nh $ *
'k(LOAD #<23><19>)<29> <0C> <0C>; <0B><19>)<29> <0C>)<29>'$ *
oSHOWLOAD #+<2B>)+<2B>+<2B>)<29>Cn<43>n o<>n$ #<23>
m<EFBFBD>)R@R<06>
<EFBFBD> <0B>m<EFBFBD> <0B>ih zpV #V&u"<22> b<00>1
<0E> $ ,<00>pVIEW #<23>p<EFBFBD> b>p <00>
from key
board$ -n EDIDECODE #R<0F><>b
<00>c<EFBFBD>7$ <0B>
9<EFBFBD>b;<00>c<EFBFBD>RQ<> RU<> U+<2B> RS<> <0B>:<00>
<EFBFBD>
<EFBFBD>
<12> <0B>cs <0C> <0B><0E><12><12> <0C> $ <0B> <0C>c<EFBFBD> R<12>m_ <0B>mh $
-<00>p EDIEXPECT #<23>n<EFBFBD> <0C><0F> <0C><19> Jb
<00>7<EFBFBD>7
<13><><EFBFBD>
,$ -'qEDIBOARD<52>7P9v9<76><00> l<> <20> |
<EFBFBD>q$ ]rBRK<52>r<00>rCLC<4C>r<00>rCLD<4C>rX<00>r
CLI<4C>rx<00>rCLV<4C>r<EFBFBD><00>rDEX<45>rJ<00>rDEY<45>r<EFBFBD>
<00>rINX<4E>r<EFBFBD>ErINY<4E>rHPrNOP<4F>r<EFBFBD><00>rPHA<48>
rh<00>rPHP<48>r<00>rPLA<4C>r<EFBFBD><00>rPLP<4C>r(sR
TI<EFBFBD>r@sRTS<54>r`sSEC<45>r8(sSED<45>r<EFBFBD>3
sSEI<45>r<EFBFBD>>sTAX<41>r<EFBFBD>isTAY<41>r<EFBFBD>tsTSX<53>r
<01>C<EFBFBD>D<EFBFBD> U<>l<EFBFBD>a<EFBFBD>~aFORTH-83 #$ {<00>a ASSEM
BLER<EFBFBD>$<24>w<EFBFBD>w%{PUSHAy#P{<00>aPUSH0Ay#Z
{NaPUSHy#<23>{<00>aRPy#{<00>aUPy#{<00>aS
Py#{bIPy#{ bNy#${bPUTAy#{
bWy#{-bSETUPy#<23>{7bNEXTy# {ebX
YNEXTy#,9{rbPOPTWOy#<23> {<00>bPOPy#}
.<00>a
.BLK #<23><19> cCBM>SCR<43>c<EFBFBD> <20>c<EFBFBD>l <00>cSCR
>CBM<42>c<EFBFBD> [c<>l <00>cEDITOR<4F>$yqyq<79>ay#(y#
y#<23>SHADOWZ!uZ!-Z!Z!oZ!<21><>Z!
Z!'<27>Z!<21><>Z!W<>Z!<00>إ$<18>)<29>$<24><02>%<25>&<18>(<28>
&<26><02>'`'d<> <20><0E>&<26><><02>'<27><19>'<27>$ <20>c<EFBFBD>&<26><10> dJP
<02>X<>Y<>Z<><00><>P<EFBFBD>ltc]d<> <20><0E>&<26><><02>'<27><19><00>& [c
<EFBFBD>$H<>(<28><>J<EFBFBD>
<EFBFBD> <20>$ dl<64>d<03> ; <0B>c<EFBFBD> bre<72> ; f
e$ #<23>c<EFBFBD> <0B>g7Kcm#<11>
<EFBFBD> ; R<11>:$ #.e<> ; R
<1D>:$ #YdOcU+2
Oc/<0F>Gc<47>s <0C>b<EFBFBD>$ #<23>R
<EFBFBD>)h <0C>e<EFBFBD> bb<15><12>$ #R<05>) R<0F><>:<3A>
<12><12>$ #g7<67><0F>b*c<>c<EFBFBD><0F>e$ #<23>dGcC+<2B><18>$ #
<EFBFBD>dGcw71C+<2B><18>$ #<23>d<EFBFBD> Gc<47>
s Yd<59><0F><03>
<EFBFBD> <0C>
<EFBFBD>
1<0E>O
GcC+<2B><18>$ #eq<0E> ; <0B>d<EFBFBD>; sg$ #<23>
c<EFBFBD><0F>$ #<23>c<EFBFBD><0F>$ <00>cRVSON #R<12>:$ <00>g
RVSOFF #R<0F><>:$ <00>g***ULTRAFORTH83*** 
BgFORTH-GESELLSCHAFT UcSTAMP$Z!
#<23>g<EFBFBD>*YdGc<47>
<EFBFBD> 1s <0C>d<EFBFBD>$ 
<00>gGETSTAMP #<23> <09>):<3A>g<EFBFBD>7<> your stamp:
<EFBFBD>gR(,g7R <0C>b<EFBFBD>g RF7<46>g<EFBFBD><19> <0B>g<EFBFBD><0E> $ #<23>
hh +<2B> <0B>1[dQ1R|
$ #<23>iR|
$ #<23>iR|
$ #+<2B> <0B>1%d<>c<EFBFBD>*c9i<39>$ #<23>ih <0C>+# <0C>i$
#<23>ih [+# <0C>i$ #<23>ih <0C>c<EFBFBD> <0B> +<2B> Jb<00>
+# <0C>i$ #<23>ih <0C>c<EFBFBD> +<2B> <0B>c + <0C>i$ <00>g(SE
ARCH#j<><07><07>$<00><10><>()<29>ɥ$%<25>á&A*<2A><11>$PF%F
$<24>&P<02>'l3j<33><07>$<00><07><10><>&P<02>'<27>*P<02>+<2B>$PF%F$<24>
(PF)F(<28>(#7R<<3C>6Gc/w71(,$ #<23> <09>)*c<>
h<7<>g<EFBFBD><0F><0F>b<EFBFBD>replace with: <7dGb<47>k<EFBFBD><0F><0F>
b<EFBFBD>> search: <7dGb<47>k<EFBFBD><0F><0F>
<EFBFBD>b<EFBFBD>c<EFBFBD> <0B>
-<2D>
<EFBFBD>b<EFBFBD><18><0E>0kF7<46><19> <0B> b<00>d
<EFBFBD> h <0C>c <0C>b
<EFBFBD>c<EFBFBD> <0B>-:<3A>
<EFBFBD>bd <0F> Gcmw71F7<46><19> <0B> b
d <0C>bdGb<47>k<EFBFBD>
<EFBFBD>bd <0F> Gcmw71F7<46><19> <0B> b
d <0C>bdGb<47>k<EFBFBD>g<EFBFBD>h<EFBFBD>b$ f<>f<EFBFBD>ef<>e<EFBFBD>efefefeEe
refe<EFBFBD>f*f8f<38>g<EFBFBD>ge<7F>m<EFBFBD> <20><0E>$<24>H<EFBFBD>%mI<6D><49>E&P<><50>
<EFBFBD>
<EFBFBD>lmh<EFBFBD>mml<EFBFBD>y# Py#<23> #<23>m<EFBFBD> <0B>-R<0F><>)<00><12>$
#<23>m<EFBFBD>)<29>Am<41>Am<41>Am<41>Am$ #<23> [1bXm<58>$
(-h(PADZ! #<23><18> n Gc<47><15>
<EFBFBD> d  Gc<47>
<EFBFBD> d  Gc<47>
<EFBFBD> <0C>c Gc<47><15>
<EFBFBD>c <0C>c <0F><0F>c <0F>
<EFBFBD>Dg*<18>
d <0F> <0B>
<EFBFBD>O
d <0C><0F>g*<14>c<EFBFBD><0F>m<EFBFBD>)R
@  <0F> <0B>m <0C>7<EFBFBD> <0C>c<EFBFBD> <0B><0F>m_ <0B>m<EFBFBD> b<13><><EFBFBD><0F><0F>bjf
h <0C>c<EFBFBD>$ +1oEDIT #+ <0C>h<EFBFBD>nxoR<18><0F>b<EFBFBD>Sc
r +<2B> =-<2D> <0C><0F>
<EFBFBD>b <00>not <20>changed<65> <0C>
<EFBFBD>
b<00>1<EFBFBD> R<06>
R1b <00>, savedR<14>
b
<EFBFBD><00> , loading7+<2B> +<2B> <o$ ,<00>oL #+<2B><0F>
o$ ,:pR #+<2B> <0B>o$ ,jp+L #+<2B> <0B>
>p$ ,
 p3q<00>bEND-CODE #_$m<0F> _$ $ <00>qINDE
XZ! <11> <09>
<19><><EFBFBD><EFBFBD><08><><EFBFBD><EFBFBD><EFBFBD> <1C><>,Z!
<EFBFBD>qMODE: #<23>!|<18> l<> <20> <0B>q $ <00>q.AKqXq
#KqKq<00>q,XKq<00>q,YKq<00>qX)Kq
r)YKq r)Kq #b<00>q<EFBFBD> R|
<EFBFBD>q <0C><0F>q<EFBFBD>
R<0F>
<EFBFBD> b<00>)
<00> <0C>
<EFBFBD><12><12> <0C><0E> <0B>
<EFBFBD>$ r
CPU #<23>!|
<EFBFBD>_sTXA<58>r<EFBFBD><00>sTXS<58>r<EFBFBD><00>sT
YA<EFBFBD>r<EFBFBD><00>sM/CPU #<23>!|I<18> l<> <20> <0C><0E> R<0F><>
b
R<10>q# <0C> <0C><00><>
rrb<00>q[<0F>+invalid<69>
<EFBFBD>q<EFBFBD> <0B>q<EFBFBD>
<EFBFBD> <0B>
|<18>q<EFBFBD> R<07>
b<00>q<EFBFBD> R<0F>
R<07>
b| I<18>q$ <00>sADC<44>s`<60>tAND<4E>s <20>
tCMP<4D>s<EFBFBD><73>+tEOR<4F>s@<40>8tLDA<44>s<EFBFBD><73>
etORA<52>s<00>rtSBC yu?] #|<18><18>1:
u|$ <00>u?[ #|<18><18>|$ }u?[[ #<23>us $
<00>u]? #<23><18> <0C> b
s  <00> <0C>1:us <0C> $
<00>u][ #<23><18><0E>(us <0C><18> <0C>1:us <0C> $ Iu]]
#(u$ <00>u]]? #(u<>u$
<00>uCSy#<23>
vCC
y#<23>
v0=y#P
v0<>y#<23>
+v0<y#
7
v0>=y#0
bvVSy#p
nvVCy#<23> u$ gwW
DEC #<23> kt%v<>u<EFBFBD> <0C><0E>t<EFBFBD>u<EFBFBD>t$ <00>w;C: #<23> u{q
)(<28>* <0C>$ <00>p ASSEMBLER #<23>a<EFBFBD>q$ <00>we;C
ODE #<23> <20><0F><><EFBFBD>4#<23><0F><><EFBFBD><18>w$ <00>wCODE #<23>!<21><18>
m <0C>w$ Uw>LABEL #<23>!<21>!s I<18><0F>, <20><0F>
<EFBFBD><1F><18>1, <20><0F>, *<1F> *R<1F>
<EFBFBD>
 <0C>  <0C> l<>
<EFBFBD> $ <00>wLABEL #<23><18>w<EFBFBD>w$ 0;xTOOLS<4C>$<24>[<5B>[

)<29>u'<27>)
<19>)<29>
<19> <0B>x<EFBFBD> <09>)<29>
<EFBFBD>  R<0F><><18>Nx<4E>
(<28>*<2A>*<2A>y<EFBFBD>x<EFBFBD><15><><EFBFBD><08>l<EFBFBD>l 4<00>xTRACE' #<23>
m<0F>x
 V&<26>y_ c $ 4<00>y<EFBFBD>BREAK #<23>
<0F>x <0C>y$ 4<00>y
TRACEL: #<23>!I<18> l<> <20> <0B>x# $ 4Qy+DO<44>y<EFBFBD><79>4<00>
y-DO<44>y4<00>y+R<>y<EFBFBD><79>4z-R<>y4z+PUSH
<EFBFBD>y<EFBFBD><EFBFBD>4z-PUSH<53>yZ!,zA<><18><02><0E><02><0F>:z<>$<24>
;z<>%<25>$M<z<> 1<><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

<10>]xy#<23>y#
<00>y#Xy#Dy#<00>y#y#y#y#<03>_ة2<D8A9><01><><14>
$<24>&<26>X<EFBFBD>%<25>X<EFBFBD>'<27>$<24>&HP<48><50>%<25>'JP<4A><50>6<EFBFBD>xHl CL
RSCREEN #v_<76> <20><0F>$ Z!<1D>Z!<01>Z!<21><>Z!(<28>Z!P
Z!٩<1B>P<><06>P<>I_<49> P`<60>;<3B>P<><18>P<>M_<4D> P`<60>Q_
8<EFBFBD>0jjj8<EFBFBD>EV<45>`<60><><EFBFBD><02>L<EFBFBD>M<EFBFBD>N<EFBFBD>S<EFBFBD>Q<EFBFBD><00>O <20><><EFBFBD><00>Q<EFBFBD>
N<EFBFBD>L`<60><>)Pl1<6C> <20><><EFBFBD><EFBFBD>P<><50>A_<41>P<>P<>JP<4A><50>$<24>U
\\ zu grafik-1 clv06jan88
nicht vergessen limit auf $c000 patchen
\ zu C16grafik
G/TAnfangsaddrs des Farb/Text-Speichers
= $800
Bit-Map-Basisadr =$c000
-h : High -3:3hoechstBit -+:+$400
Gh
B3
Gh
Th
Th
G G+
B
B
\\ zu grafik-2 clv06jan88
und die Moral, wenn Grafikspeicher unter
m ROM liegt:
Die Grafik benimmt sich nur dann
manierlich, wenn keine ROM-Routinen
benutzt werden, d.h.:
- Alle Interrupts aus sind
- keine Systemroutinen benutzt werden
was tun?
- Grafik-speicher ins wertvolle
untere RAM legen?
- Alles sperren?

<EFBFBD> $ <1C>
FORMSPRITE #<23>
<EFBFBD><EFBFBD><EFBFBD>?<3F>
R@<17>
<EFBFBD> <0C>
<EFBFBD>_8<EFBFBD>O
^_8<5F>$ <0B>h<>XMOVE #<23>
<EFBFBD><15>ſ
<EFBFBD> <0B><><EFBFBD>
R<0F><>X<>$ <0B><00><>YMOVE #<23><15><0E>ſ
<EFBFBD> $ <0B><00><>MO
VE #d
<EFBFBD>ƥ<EFBFBD>$ <0B><00><>SPRPOS #<23> <0C>
<EFBFBD><15><0E>ſ
<EFBFBD> <0B>
<EFBFBD><15>ſ
<EFBFBD> O
Nſ
<EFBFBD> <0B>Π<0B>
b<00><01>
$ H<>HI
GH #<23><><00>$ <07>LOW #<23><><12>$ <18>WIDE #B<><00>
$ (<28>SLI  $ ,<2C>RIGHT #<05><> s 1<0E><0F>
<05> $ c<>LEFT #<05><> <0B>
<EFBFBD><0F><05> $ <00><>"
CS<EFBFBD>_<00><>"PC!<21><00><>"BG<05><00><>*FULLSCREEN<45>`
<EFBFBD><EFBFBD>+SPLITSCREEN <09><00><>XCOR #<23><><EFBFBD> _$ <00><>Y
COR #<01><> _$ Q<>SETX #<23>^<5E><> $ <00><>SETY
#<23>^<01> $ <00><>SETXY #<23><><EFBFBD><EFBFBD>$ 
<EFBFBD>PENDOWN
# ȭ$ <1C>PENUP #  <0C><>$ .<2E> TURTLESTAT
E # Ȓ ^_<> <0B> R<0F>
s R$ ?<3F>"FD<46><44><00><>"
BK5<EFBFBD><00><>"TSm<53> #3*<18>-<2D> 1<0E>(,77$ #<23><18><>
$ #<23><>Forth Gesellschaft e.V.$ #<23><>**
* ultraFORTH-83 ***$ #<23><>(c) 1985<38><35>!Bern
d Pennemann Klaus Schleisiek<65><6B>Georg Reh
feld Dietrich Weineck$ #<23><>g
en<EFBFBD><EFBFBD>verf
olgen und verhindern.7<><37>Die Mitglieder
der<EFBFBD><EFBFBD>$ ?<00><> .MESSAGE2 #'7<><37>Wenn's gefael
lt,7<><37> 2 Original-Disketten mit dem ...<2E>
<EFBFBD>"+ dem kompletten Quelltext des ...<2E><>"Gr
aphic, Tools u.v.a. fuer das ...<2E><>ca. 20
0 Seiten Handbuch zum ...7<><37>7<><37>Fuer M
it may be an ADVENTURE !7$ #<23>_<<3C>0<EFBFBD><30><EFBFBD>
<EFBFBD>`$ -<00><>LINIEN #n<><6E>@<01>)%<00>@<01>)<00>
RF<13>-<2D>R#<23><12>R#<23><12>$ -^<5E>MOIRE #<23>_h<5F>
<00><><EFBFBD><EFBFBD>`<60>@<01>)<00>RF<>?<01>1<0E>-Ę<0F><12>R
G<EFBFBD>)<00>?RF<>1<0E><0F>-Ď<0F><12>$ ;<00><>STOP
<EFBFBD>Υ8<><02><07>F<14><0E><07><0F><07>8<><02><07>F<14><02><07><03><07>
<06><07>H<><14><0F><>TASK #<23><18>R<0F><>
R<0F>1b<00>
<EFBFBD>]
<EFBFBD><18><01><17>Rl|]
<EFBFBD><0E> I<18> ]
<EFBFBD> <0C><0F><18>
R1<0E> II<18>
<EFBFBD>
Id
<EFBFBD>
<EFBFBD>1 <0F><18> м R<16>

q#$ >-<2D>
RENDEZVOUS #<23> 8.<2E>-.$ #<23><1B> b
&$ ><00><>b'S #V&<26>"<22> <0B>
<EFBFBD><EFBFBD>$ >L<>TASKS #<23>
MAIN 7]
<EFBFBD> <0C><0E> <0B>
1b8<00> R
<EFBFBD>
<EFBFBD> R<06>
<EFBFBD>"u"
G"<22> <0C> Rl1b
<00>slvvvvvv
v<02><00><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>v<EFBFBD><76>v<EFBFBD><76>v<EFBFBD><76>v<EFBFBD><76>v<EFBFBD><76>v<EFBFBD>uv<75>
uv<EFBFBD><EFBFBD>v<EFBFBD><EFBFBD>v<EFBFBD><EFBFBD>v<EFBFBD><EFBFBD>v<EFBFBD><EFBFBD>v<EFBFBD><EFBFBD>v<EFBFBD><EFBFBD>v<EFBFBD><EFBFBD>v<EFBFBD><EFBFBD><EFBFBD><00>8
a<EFBFBD>INIT #w<>'70«<30>0<EFBFBD><05>R<05>)j<><6A>R@<40><15>
<EFBFBD>&ƈ<12>$<24><><EFBFBD><EFBFBD><EFBFBD>R<05>)<00><12><0F><0F><><EFBFBD><12>Lj<12>R
<05>)<00><12><><EFBFBD><0E><><12><><00><><12>Lj<12>$ 9<00><>YPOS
#Q<>h $ 9<01>XPOS #Q<>2
$ 9<12>D #<23><0F>Ŭ $
:<17>
SLIDE-SPRITES #R<05>)<00><01><><12><0E>)

<00>Ԉ<12><12><12>$ TASK ESTSLIDE #<23><>aԞ7<D49E>
<EFBFBD>:R1b<13><>$ TESTSLIDE LA<03><><00><>PLP<03>(
<00><>RTI<03>@<00><>RTS<03>`<00><>SEC<03>8123BK<42>ED
<EFBFBD><EFBFBD>K<>SEI<03><>V<>TAXԪ<00><>TAYԨ<00><>T
SXԺ<00><>TXAԊ<02>TXSԚ
<EFBFBD>TYAԘ
 <18><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <0B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <0C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
























<01>`<00>`

<00>`
<00>`

<00>
`<00>`

<00>`
<EFBFBD>

<00>`<00>`

<00>`<00>`
<00>`
<00>`

<00>`
<EFBFBD>`
<00>`<00>`

<00>`<00>`




<00>`<00>`

<00>`<00>`

<00>`<00>`

<00>`
<00>`
 <00>`<00>`

<00>`<00>`

<00>`
<00>
<00>`
<00>`
<00>
<00>
<EFBFBD>
s
<00>
<00><14>$ +ud
<EFBFBD>d<>Gt#Ek RamDisk full $ +udu
St$">uDELBLOCK +<2B>u<>1"dus1<16>u
<EFBFBD>St$ +<2B>,u1$#<00>u SEARCHBLOCK +<2B>Tuju<6A>
h$ +<2B>ub<00>4u"<15><13>sd#<19>3damaged 
hdC3<43> $ +<2B><08>ub<00>u h<08>u4ud<>t<EFBFBD>u$%
<00>uRAMR/W +sEkno file<6C>t<EFBFBD>b*v <00>u
<EFBFBD>
<00>
<EFBFBD>$%jvBOTHR/W +<2B>uR<17>#b
sv <00>g$&<00>vRDUSE +<2B>$Ramdisk Gt;1
<EFBFBD>Jb<00>$no space 
; <17>t??$&
<EFBFBD>vRDNEW +<2B>v<EFBFBD>tbKtSt$&<00>v'RDCOLD]0<>&
<00>vRDCOLD +<2B><17>v<EFBFBD>0*8<>tqb <00>v<EFBFBD>tbw$'
w?BREAK +<2B>>Ekbreak$'3w?ERROR +<wb
<00>$error$'lw.RD<52>

<00> +<2B>tF<11>1<EFBFBD>
$?<3F>$ limit :;l5?<3F>$ firstblock:Ktl5
Ktm;1quw?<3F>$ afterblock:ul5Ktu#uw
?<3F>$ rdlimit :Gtl5uGt#uw?<3F>$ r/w is no
w:<3A>(8<>*<2A><08>u*G*<2A> #uw$ +<2B>?<3F>,u<>54<>
<08>5<><08><13><08>54<><08>#uws4us<08>s<08>s
<EFBFBD><EFBFBD>)<29>a<00><><EFBFBD><13>R<>b
R1<16>/C3w?R#<23>b
<EFBFBD>
<00>`<00>`
<00><00>> h<08><16>d#bb<1D><><EFBFBD><EFBFBD>
d#uw<75>$)<00>wRDCHECK +<2B>w??<3F>$)blk adr
len headerline exp ?<3F>$(---
- ---- --- --------------- ------ ---<2D> x
juh?<3F>$ end:<3A>l5u1uw$*wt SAVERAMDIS
K +<2B>tKtmu<>l$*!y LOADRAMDISK +<2B>tKtmGt
Ul$*?yLOADDOWN +m<>
<00>y<><01>1$
t]y
SAVESYSTEM +3k<7F>33k<7F>3<08>t<EFBFBD>
k<EFBFBD>.><3E><10> <20>l$u<00>ySAVEALL +#l<>R1b
'q<>RC3<43> <20><17>#RE'q<>s<08><1F>r<EFBFBD>t<EFBFBD>w<>*
k<EFBFBD><17>y<EFBFBD>0w<>y<EFBFBD>9/y$y<00>yTAPEINIT +m<>rw<><17>
<11>0w$.z.BLK +<2B>!<21><13>b<00>$ Blk l5<6C>>$
!z2!kz<6B> <20><16><03><07>$<24><10><>l<>dz2@<40>z<EFBFBD><07>
<EFBFBD>
<00>`<00>`
$<24><07>%<25>8<><02><07>F<14><03>$<24><07><10>lca
_z 2VARIABLE +<2B>)<29><17> $<00>z 2CONSTANT +<2B>)
I I <20>(l<>(<28>z$<00>zUNLINK +<2B><17><17><17>iz$<13><00>
l <00>*)?*$* <09><> @`<60>*)I <20>
I@<40>)$* @
`<60>.`<00>zCBM>SCR[<5B> <20>z<EFBFBD>l [SCR>CBM+
[<5B> |z<>l [EDITOR<4F>,<08><08>isy+(y+y+<2B>
SHADOWZ)uZ)<00>

<EFBFBD>`<00>`
Z)Z)qZ
)<29><>Z)Z)<29><>Z)7<>Z)<00><>Z)<00><>y+Hy+Jy+
<19>y+;y+<15><>$<18>)<29>$<24><02>%<25>&<18>(<28>&<26><02>'`<60>[<5B> <20><16>&
<EFBFBD>><05>'<27><19>'<27>$ <20>z<EFBFBD>&<26><10> <20>[JP<4A><50>;<05><14> <09>
<EFBFBD> <0B>
P<EFBFBD>lUz<EFBFBD>[<5B> <20><16>&<26>><05>'<27><19><00>& |z<>$H<>(<28><>J<EFBFBD>
<EFBFBD> <20>$
<20>[l<>[lUz\<5C> <20><16>D$PlUz<55>( <20>z<EFBFBD>&HP<48>8\<5C> <20><16>
&<26>><05>'<27><19>'<27>$ <20>zQ&<26><05><>lP<1B><10> <20>[JP<4A><50>lP +
h[<5B>1$<13>\<5C>h<EFBFBD>>l<><1B>\<5C>JI(<28><><02>'<27>Hh<48>I<EFBFBD>l<>
<1B>\<18>J<EFBFBD>Hh<48>I<EFBFBD>l<> +<2B>\<5C><17><03>h[U32<15><18>[<5B>|$
 +<2B>\<5C>\p[<5B>/1<19>[<5B><13><18>$ +<2B>[<5B><13>b<EFBFBD>$ +<2B>\
<EFBFBD>;[<17>\h[<5B>/<17>C31q<16><15>\q<16><15>;R<17><>b$
+<2B>\<5C>;<13>[<5B>bZ\<5C>;N\$ +<2B>[<5B><13>g?l[m#
<19><15>;R<11>b$ +<2B>\<5C>;R<1D>b$ +<2B>\p[U32p[
/<17>h[<5B>s1?<3F>$ +<2B>R
<EFBFBD>)<29>h>]<5D>b
b<1D><><EFBFBD><EFBFBD>$ +R<05>)<29> R<17><>b<EFBFBD><62><EFBFBD><EFBFBD><EFBFBD>$ +g?<3F>1?G
z<EFBFBD>[<5B>!]$ +<2B>\h[C3<43> <20>$ +<2B>\h[w?1C3<43> <20>$
+<2B>\<5C>h[<5B>s<08>\<5C><17><03><15><08><12>1<16>Oh[C3<43> <20>$
 +<2B>\q<16>;<13>\<5C>h[<5B><15>\p[<5B><15>1<16><1F>]$ +>]<5D>
;R<08>b$ +<2B>[<5B>z<EFBFBD><15>}[<5B><13>\<5C>#<19>;<13>\<5C><13>[<5B>z
<EFBFBD><15><13><17>[ #$ +-^<5E>;>]$ +-^<5E>;^$
+<2B>[ <17><13><18>;Z\<5C>;[<17>[ #<08>[<5B>z<EFBFBD><15><13>\<5C>$
+}[<5B>z<EFBFBD><15>\#<19>;<13>\}[<5B>z<EFBFBD>h[<5B>h[}[ #$ +<2B>
^<5E>;!]$ +<2B>^<5E>;R]$ +h[<5B>}[ #}[<5B>z<EFBFBD><15>\
h[<5B>$ +}[ <17><13><18>;<13>]<5D>;<13>^$ +<2B>[<5B><17>$
+<2B>[<5B><17>$7[RVSON +R<12>b$#_RVSOFF +
R<17><>b$6_***ULTRAFORTH83*** j_FO
RTH-GESELLSCHAFT v[STAMP$Z) clv04ju
n87 +<2B>_<EFBFBD>* <20>\h[<5B><15>1s\<5C>$<00>_GE
TSTAMP +<2B><11>1<EFBFBD>b<EFBFBD>_<EFBFBD>?<3F>$ your stamp: +_R(
4g?R 1?<3F>_ RF??_<>!<21><13>_<EFBFBD><16>$ +<2B>_<EFBFBD>;<13>_
$ +<2B>\<5C> h[<5B><1D><1F>\h[<5B>R<17><> $ +<2B> <20>\h[<5B><1D>$
+<2B>9m<17>$ +<2B>a<EFBFBD>5<EFBFBD>?b<1B><><EFBFBD>a$ +<?`+_<><17>1?
<06>$Scr # 3<><13>=55`<60>b <00>$not <20>$upda
ted<EFBFBD><17>1?<3F>l_* ?<3F>(4<><17>_* ??_1??`'`<60>$
+<?sh[<5B><16><1D>3$ +3<><13>h[<5B>h[11
d/<17>h[<5B><16>s1?$ +GzR<01>`$ +<2B>`3<><13>96\b
<00>_h3<><13>9<EFBFBD>[Q9R|$ +<2B>`R|$ +<17>R
|$ +3<><13>9<EFBFBD>[<5B>[<5B>GzA`<60>$ +<2B>`h<08>3#-<2D>
$ +<2B>`h[3#-<2D>$ +<2B>`h_[<5B><13>3<>Jb
<00>3#-<2D>$ +<2B>`h<08>[<5B>3<><13>[3-<2D>$ <00>_
(SEARCH<43><48><EFBFBD><07><07>$<00><10><>()<29>ɥ$%<25>á&A*<2A><11>$P
F%F$<24>&P<02>'l<><6C><EFBFBD><07>$<00><07><10><>&P<02>'<27>*P<02>+<2B>$PF
%F$<24>(PF)F(<28>()P<><50><18><04><07><02><14><03>'<27><07>&<26><><07>l
q<18>$%P<10><18><06><07><02><14>lt<18>&A*<2A><><EFBFBD><07><07>$<00><10><>
$PF%F$<24>&P<02>'l<><6C>"<00><> DIGDECODE +<2B>a<EFBFBD>b
<00>b?/$<13>a<EFBFBD>b
<00><08>!$<13>"<22>%%bh
<EFBFBD><12><15><15>s<08>O<12>><3E>$h$"w<>DIGITS<54>?Xa<58>a
<EFBFBD><EFBFBD>xb +<2B>[<5B><13>)<29>
<00>a<EFBFBD>b<EFBFBD><62><EFBFBD><EFBFBD><EFBFBD><17>[<5B><13>)<29>
Z\|<15>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>;<13>[<5B>z<EFBFBD>\s\<5C>`h$ +?R<<3C>>h[/w?1(
4$ +<2B><11>1Gz`<?+_<><17>1?<3F>$replace with: <
?<3F>[<5B>z<EFBFBD><7A><EFBFBD><17>1?<3F>$> search: <?<3F>[<5B>z<EFBFBD><7A><EFBFBD>
<17><17>1?<3F>[<5B><13>5<>1?<3F> <20><16><17><>F?<3F>!<21><13>b<00>
d<15> 'h<08>[1?<3F>[<5B><13>5<>b<EFBFBD>1?<3F>[ <17>h[mw?1
F?<3F>!<21><13>b<00>[1?<3F>[<5B>z<EFBFBD>±1?<3F>[ <17>h[mw?
1F?<3F>!<21><13>b<00>[1?<3F>[<5B>z<EFBFBD><7A>?_'`1?$ +-<2D>h<08>
[<5B>z3<>3<><13>9<EFBFBD>d3<>1<16><><EFBFBD>b<00> 
3<>
<EFBFBD>913A`$ +<2B>`h<13><><EFBFBD>3<>b'<00>?<3F>Rr1b

LEARSTACKZ'<27><14><04>H<><04><14>l iK'HALLOT
+<2B><11><13>1s <17><08>1<16><08><08>u<15>1<16>X'<27>
$i<00>'HEAP +<2B><11>"$i%(HEAP? +,(]<12>
$ +<2B><08> <20>1<16><08>',(s<08>,(<28>1*'#`'$<13>8<>
<EFBFBD><02>F<03><0F><02><0E><18><1C><03><0E><><1C><0F><18>h<><68>l<> +O
*'<27><13>*$j8(EDOES> +<2B> <20>(Rl| <20> <20>($ +<2B>
R<17><>R<17>1 1$ +<2B> R<17><>R<17>1b<00><08><08>
<EFBFBD> <20>1<16><16><1F>*'#<08><17> $k<00>(?HEADZ)k)
| +
)<29>;[
)$l)WARNINGZ) +0)<29>;
*'<27>o,<2C>T-2b4*'<27>G*<2A>$exists <20>>$l&
)CREATE +<2B> <20>!<21>I o,<2C><13>I V#<23><13><08>R <20>q
<EFBFBD>3 invalid name<6D> *'<08><16> 4)
)<29>b<00>
)#
<EFBFBD><08>(I j(R <20>'<27>(<28>  %<25>R%<25>%<25>&<26>%<25>%<25>%%%<25>
b<1B><><EFBFBD>%o&<26>R%N%<25><17>%<25>%<25>% T<>$g}&NUMBER +
<EFBFBD>&<26><08><18>3?kbX$h'LASTZ) +*'<27><13>
$h#'HIDE +.'b m<17>o,<2C>$h:'REVEA
L +.'b
mo,<2C>$hw'IRECURSIVE +`'$ +
.'b d<15>|<15><08>h$h<00>' IMMEDIATE +R@<40>'
$h<00>'RESTRICT +R<17><>'$i<00>'
CR(h`'
<EFBFBD>I <20>(l<>(<28>)<29><07>(<28><07>)<29><18><02><07><02><14><07>&<26><07>'&P
lt<18>&<26><07>%<25>&<26><07>$%Pl <00>$<18><02>$<24><02>%<25>$h8)<1F>
$<24>$<24><02>%<25>) <20>
<EFBFBD>$h<>$<24>$ȅ%<25>$E(P<><50>%E)P<>l n<00>)
>NAME +<12><13>b<00><15>1s<08>)<29>b"<15>$
<1B><>2$ +* R<1F><15>$nm*NAME> +<2B>*s<08>R
 <20>b<00>$n<00>*>BODY + $n<00>*.NAME +
 +b <13>h<13>$ +b hOb}<16>h
N%<25><13><16>;h[$ +R&<26>b R
[$R$<24>b
R[$RH<>b R[$R%<25>b<00>[$<13>
$ +R,<2C>1sR.1|$ +N%<25>[1;<13>N%#
$Z)gH%NUMBER? +F<11>1<EFBFBD>* <20>&N%<25><17><17>R
R<00><08>%R%<25>%R-<2D>b[<17><12>%R%<25>%
&b F
<08>%R%<25>%%<10>b<00>@(b<00>$|* R<1F>? 
<00>$???4$o<00>*: +<2B>)a'o,<2C>_,)0<><17>(<28>8
<EFBFBD><02><02>F<03><0E><02><0F><02><18><02><0E><><1D>l o<00>*A; +<2B>
<EFBFBD><1B> $0`'$o0+CONSTANT +<2B>)I <20>(<28>8<><02><07>
F<14><02><1C>H<><1C><01>l of+VARIABLE +<2B>)<29><17> $
p<00>+UALLOT +<2B><12><13>R<17>#<19>3
Userarea fu
ll<12>s#$p<00>+U
dF$\NEEDS +V#<23>.2
b<00>$$dW$HEX +RF$d<00>$DECIMAL +
R
F$e%DIGIT? +R01<16>R #bR<17>
1<16>R #bF<11><13>#<19>;h<08>$e%
ACCUM
ULATE +s<08>sF<11>\h<08>F<11>\<1D>O$e[%C
ONVERT +<2B>* %%b<00>% <1B><>/$ +<2B>&<26><13>$ +*
[<17>&#$ +/* $f<00>%DPLZ)<29><> SER +<2B>)<29>
<EFBFBD>+| <20>(<28>8<><02><07>F<14><02><18><04><07>H<EFBFBD><05><01>l pC
+ALIAS +<2B>)*'<27><13><08>R <20>b <00><17><><EFBFBD> R
<EFBFBD>'*$q<00>+VPZ)---vz~jq,,CUR
RENTZ)-qe,CONTEXT +1,<2C><08><13> $ +1, _
,$qu,ALSO +1,<2C>R
<EFBFBD>~3Vocabulary stac
k full_,<2C><13>1,#_,$q<00>,TOSS +<2B><17><>1,#
+C3<43>#}"$$cO#STATEZ)c<00>#eASCII +C3
<EFBFBD>#<23><16><13>#<23>b&$c<00>#," +R"<22>#<23> <20><08><16>
$c$<24>"LIT +OOd* <20><15><12>$c,$<24>(" +3$
$cg$A" +<2B> l$$$dt$<24>(." +3$* ?$d<00>$B
." +<2B> <20>$$$d<00>$a( +R)<29>#<23>$d<00>$b.( +R)
<EFBFBD>#?$d<00>$a\ +<2B>!<21><13>5<1F><16>5<EFBFBD><1D>!$d<00>$b\\
+d<>!$3$$`<00>3BLy+ `<00>3 -TRAILIN
GW3<EFBFBD> <20><16><07>&<18><07>%<25>'<27>$<18><13><>&I <20> HP<02>%<25>h<EFBFBD>%l<>
<1B>P<EFBFBD>F'F%<10><>lZ<1B>I3SPACE +C3<43>>$<13>
4SPAC
ES +<2B>:<3A>4<><34><EFBFBD><EFBFBD>$ +<2B> m$<13>4HOLD +[84
#84<38><13>$<13>b4<# +8484$<13>[4#> +<2B>84<38>
84<38>1$<13><00>4SIGN +kbR-i4$<13><00>4# +
F<11><13><1F>R <09><08>bR-<2D>'l<><<3C>(E,<2C>)<29>-<2D> <0B>,<2C>
$<24>,<2C>$lH<<3C>,<2C>$<24>-<2D>%l<><l} +<12><13>b<00><08><12>1
<16><O <1B><>$ +]<12><16><08>]1b(<00><15>s<08> <20>b
<00><08><13><16><13>/ <00> N<><4E>$ +<12><<3C>,)<29>
<00><15><><EFBFBD>"<15>b
<00>-<2D><><08><17><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>o,<2C>"<15>
b
<00>-o,$ +<2B><08><(=N<,(s1<16>'<27><08>*'
$<13><00>;CLEAR +<2B> <20>]<12>=<3D>$<13>QUIT +<2B><11>
<13>0<>2^<00>2 STANDARDI/O +<2B>*T<11><17>$^K2
'ABORT]0<>^<00>2ABORT +X'c<11>2Y2<59>2_<00>2SCR
Z)_3R#Z)_<00>3(ERROR +Y24<> G** ?
4<EFBFBD>><3E>!<21><13>b3<08>!<21>3<08>2_%3<>(ABORT" +
3$sb<00>X'O<12><11>$h$ +3$sb<00><11>$h
$_z3FABORT" +<2B> <20>3$$_<00>3FERROR" +<2B> ~
*;<3B><13>s<08>6*;#$<13><00>; ALL-BUFFERS +*;<3B>
>;*;<3B>1b<1B><>$ +<2B>R <20>$ +<2B>*d<15>Js@(|
$ +,(<12><13>O<12><13>b^<00><08><12>1<16>O<12><13><12>
/<17><08>Js<08> <17>*J<18>b.<00>@(bZ<><5A> <17>;b
<00><08> <17>;b <00> * <17> <1B><> <1B><>$<13><<3C><05>
<EFBFBD>$<00><10><><18><04><06>*H<><04><00>+<2B><01>$<24>,<2C>$<24>-,<2C>5<EFBFBD>,E*<2A>
-<2D>+<2B> <0B>,E&<26><02>!<08>!<21>1<EFBFBD>!<21><17>1<EFBFBD>/$]<00>1+LOAD
+<2B>!<21><13><15>1$]O1THRU +<2B>s)<29>
<00><><EFBFBD>1<EFBFBD><31><EFBFBD><EFBFBD>$]
<00>1+THRU +<2B>s)<29>
<00><>W1<57><31><EFBFBD><EFBFBD>$]2c--> +<2B>
<EFBFBD>!#<08>!<21><17>1$] 2RDEPTH +<2B><11><13> 1<16>$]
82DEPTH +<12><11>s1<16>$ +<2B>#<23>b<00>$
com
piling$<13>$ ok$^s2(QUIT +<2B>1?<3F>!<21>/<2F>2 <1B>
<EFBFBD>^<00>2'QUIT]0<>2^<00>2[<17><17><><EFBFBD><16>o:<3A><><EFBFBD><EFBFBD> 
O<12>:<3A><00>o:<3A><17><17><16><><EFBFBD><EFBFBD><EFBFBD>9<EFBFBD>$<13>?:COPY +<2B>
}:$<13><00>:CONVEY +s<08><16>u1<16>q<16>3nein
}:$<13><00>:LIMITy+<00><>;FIRSTZ)<14><>"; ALLO
TBUFFER +*;<3B><13><11>1<16>6 J;<13>6<EFBFBD>*;#*;<3B><13>
<EFBFBD>8<EFBFBD>6<EFBFBD><13><08>6$<13>0;
FREEBUFFER +*;<3B>;<3B>6
1Jb(<00>9<EFBFBD><08>*;<3B>1b<00> <1B><>V.<2E><08>0<EFBFBD>*<2A>
#<23>b
<00> <20>0I $$ +[2R <20><18>3 tight stac
k`'.'b<00>@(b<00>* <00>1<16>=[<17>3diction
ary full$[<00>0?STACK/1<> 8<><07><04>$H<><14>P <09>
<20>Y0$<13><14>EH<><04><14><01>l <20>[<17>3 stack em
pty\$1.STATUS]0ikZ)OO$\<00>1<EFBFBD>PUSH +O
s<08><08><12><13>}1<><12>$\<00>1LOAD +<2B><08>;<13>!<21>1
R +<2B>9<EFBFBD>9$<13><00>9BLOCK +<2B>9<EFBFBD>9$<13><00>9UPDATE
+R<17><>6<EFBFBD>"<17><16>$<13>H9 SAVE-BUFFERS +<2B>669
<EFBFBD>b,8 <1B><><EFBFBD>686$<13><00>9
EMPTY-BUFFERS +<2B>6
6<EFBFBD>6<EFBFBD><13>b
<00><08>8 <1B><><EFBFBD>686$<13>:FLUSH +<2B>9:
$ +<2B><08>9y9b<00>6<EFBFBD><13>879b<00>9<EFBFBD><11><13>s<08>9mm
Q9$ +<2B>9<EFBFBD><12><08><12><15>#<19><12>JO<12>b$<00><12>
<EFBFBD>O<12>:<3A>ly/;<13>&<26>b<00>/s/ +-1V#<23>.<2E>b
b_s/I s//;<13>&<26>bbs&&
<00>/s/y<00>/a[ +<2B><17>/<2F>0u/<2F>#<23>$y0] +<2B>Q
/<2F>0u/<2F>#<23>$ +[<17>3Crash$z%0DEFER +<2B>)<29>
90I <20>(<28><02>hH<68><1C>ȅ<1C>lzi0(IS +O<12> <17>
<12>$ +<2B><13><17>/<2F><13>1s<08>s/<2F>1|q<16>3 not
deferred$z<00>0bIS +<15><08>R<14>"<15>(8b
<00>$read 8 Y<>O$ +<2B>6<EFBFBD><08>b<00><13> <17>[
1b<1B><><EFBFBD>66<>,8$ + <17><12><15><08><11><13><15> O
<17><17>686$ +<2B>6<EFBFBD><13>b<00>"<17>kb<1B><>$ +<2B>6
<EFBFBD><13><08><13>b<1B><>"<17>k$<13>"8CORE? +i7<69><15>$<13>
q9(BUFFER +i7S8<53>8 <1B><><EFBFBD><00>9(BLOCK +i7S8<53>
8<EFBFBD>8 <1B><><EFBFBD>9<EFBFBD><1C>hH<68>l<><1B>}9BUFFEsm <1B><>
2<15>$v<00>.' +V#<23>.<2E><18>3Haeh?$vR.I[COMPI
LE] +V.I $v<00>.C['] +V.&$v/ NULLSTRIN
G? +<2B><08><13><18>b2$H<18><1C><02>H<><1C><00><0F>l w
/
>INTERPRET0/<2F>/xf/NOTFOUND]0<>/xy/
N
O.EXTENSIONS +~3Haeh?$x<00>/ INTERPRET +s
/ +-1V#<23>.<2E>b<00><17>b_s/<2F>3 compile on
 <08><13><08>6<EFBFBD><13><08>6 <1B><><EFBFBD><00>6(DISKER
R +<2B>$error ! r to retry <20>?<3F>Rr1sRR1
|q<16>3aborted$<13>L7DISKERR]0W7<57>8R/W
]0<>g +<2B>"<17>kbj <17><08><13>b3<00><11>1T<11>1Y2<59>
"<17> <17><13>u<15><13>(8b<00>$write 8 <1B><>R<17>
<EFBFBD><17>Vh$ + <17><08><17>$ +<2B><08>8<EFBFBD><11>1T<11>1Y
2<EFBFBD><12><08><11><13>
<1B><>h$t<00>-(FINDV-<2D><03><07>$<00><10>
<EFBFBD>&)<1F>(<28><00>$<24>H<EFBFBD>$<24>%<25>$$P<07><01>ltH<>$)E(P<><18>
<EFBFBD>$<24>)<29><00>%<25>*<2A>(<28>&Q)PK<50>P<EFBFBD><50><03>*<2A><07><>)<29><07><>lq1.<2E>
<07>$<24><07>%<25>$<24>&)8<>$<24>$<24><02>%<25>&) P <09>$<24><07>%l].<2E>$<24>
<EFBFBD>$<24><07>8<><02><07>F<14>&H
0<05>i<EFBFBD><69>H<EFBFBD><48><03><>$<24><><01>
l vL-FIND +_,<2C><08><13>m<17>1bmd<15>T-b
2/.$<13>1, #b
 6<><03><07>$<00><10><><18><04>&<26>
&H<><04>'<27>'<27><>6<EFBFBD>(<28><>6<EFBFBD>) <20>6P<1D><18><02><07><02><14><01><18>(
<EFBFBD><07>)<29><00>l&<13>(<28>*<2A>)<29>+<2B>*<2A>(<28><01>*<2A>)(Pl <20>6P<36>
<EFBFBD>(<28>*<2A><01>(<28>*<2A><>6<EFBFBD>(<28><>6<EFBFBD>(<28>(<28><>6<EFBFBD>)<29><>6l<36>6 +<2B><17>
s <17>p$ +<2B><08><11><13><15><08>6<EFBFBD>77b<13><15>6<EFBFBD>R
<14>$<13><15><12><11><13><15><12>6<EFBFBD><13><08><13><08>b
h$
<13>OO<12><15><12><12>77<37>b2 R<><52> $r<00>,
V
OCABULARY +<2B>)<29>I <20>I <20> <12>I <08>(l<>(_,
$rJ,FORTH<54>,lzlzr<00>,ONLY-@@
-<2D>(l
<EFBFBD>(<28>1,_,<08>,$r- ONLYFORTH +--<2D>,z-$
s2- DEFINITIONS +_,<2C>o,$ +<2B>mu*G*$
sl-ORDER +<2B>,)<29><00><><EFBFBD>-<2D><17><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(4o,<2C>-$s
<00>-WORDS +_,<2C><13><13><08>><3E><18>b<00>><3E> G*4

l5<6C>$Dr _d=5<>5<EFBFBD>)<29>&?<3F><><EFBFBD>543<><13>9<EFBFBD><39>
<EFBFBD>5<EFBFBD><1D><15>5/U3?<3F><><EFBFBD><EFBFBD>?$<13><00>5PAUSE <00><00>5LO
CK +<2B><08>]1bh$<13><08>b<00>5 <1B><>]s$
<13><00>5UNLOCK +<2B>6<>$<13>8<EFBFBD><05><04><><00><05>l<EFBFBD><04><06>
<EFBFBD>H<><04><14><01><07><02><07><03><18><02><07><02><14>l<><12>/6FIL
EV+<1C><00>6PREVZ)<10>Z)<00><00>6B/BUFy+<04><02>(Y"
PH<>P<>`<60><00>=(FORGET +<2B>@(<28>3 is symbol
<EFBFBD>;<3B>=$<13><00>=FORGET +V.<2E><08>$<10>J<18>3 protect
edu*<2A>@(b<00>* mm<17>=$<13>H=EMPTY +<2B>$
<10>]<12>=<3D>2<10>$<13>>SAVE +<2B> ]<12>=<12><13>
mm<17><13>m<08><13><08>b<1B><>]<12><11><01>$<13>'>B
YE +g:
><3E>c$ +<2B>?<3F>1b[$<13>`>STOP?
+<2B>?b<00>><3E>><3E>$<13><00>><17><>R0<>i4$<13><00>4#
S +<2B>4<EFBFBD>ab<1B><>$<13>D4D.R +"d<15>`4I4<49><08>4<EFBFBD>4
<EFBFBD><08><08><19>1(4?$<13>Y4.R +sX<19><08>4$<13>5U
.R +<2B>s<08>4$<13>5D. +<2B><17>44$<13>(5. +X-5
$<13>95U. +<2B>-5$<13>g5.S +<12><11><13>1R E
<EFBFBD><EFBFBD>:<3A><00><><EFBFBD>l5<6C><17><><EFBFBD><EFBFBD>$<13>v5C/Ly+)<00><00>5L/Sy
+<00><00>5LIST +3<08>$Scr 3<><13><11><> <20><16>&
Id<EFBFBD>&<26>><3E> <20><><EFBFBD>?<3F><>$ `<60>><3E> <20><><EFBFBD>?<3F><>&<26><>lca<63><00>eBUS
IN +<2B>d6<>e$<13><00>eBUS!|e<><07>><3E> <20><><EFBFBD>?<3F>l<EFBFBD><12>Se
BUSTYPE +<2B><>:<3A> <00><><EFBFBD>Ze<5A><65><EFBFBD><EFBFBD><EFBFBD>5$<13><00>eBUS@f
<EFBFBD>><3E> <20><><EFBFBD>?<3F>lZ<1B>fBUSINPUT +<2B><>:<3A> f<><66><EFBFBD><13><>
<EFBFBD><EFBFBD><EFBFBD>5$<13>%fDERROR? +dRGef<>R01b<00>
>f<><08>a1b<1B><><EFBFBD>?<3F><18>d$y+<2B>y+<2B>y+v +<2B><08>
s1?<3F>$ +<2B>R
<EFBFBD>)<29>h_n<5F>bb<1D><><EFBFBD><EFBFBD>$
 +R<05>)<29> R<17><>b<EFBFBD><62><EFBFBD><EFBFBD><EFBFBD>$ +g?<3F>1?<3F>k<EFBFBD>l<EFBFBD>bn
$ +<2B>m<EFBFBD>lC3<43> <20>$ +<2B>m<EFBFBD>lw?1C3<43> <20>$ +<2B>m<EFBFBD><08>
l<EFBFBD>s<08>m<EFBFBD><17><03><15><08><12>1<16>O<12>lC3<43> <20>$ +<2B>mq
<EFBFBD>;<13>m<EFBFBD><08>l<EFBFBD><15>m<EFBFBD>l<EFBFBD><15>1<16>Sn$ +_n<5F>;R<08>b
$ +<2B>l<EFBFBD>k<EFBFBD><15><16>l<EFBFBD><13>m<EFBFBD>#<19>;<13>m<EFBFBD><13>l<EFBFBD>k<EFBFBD><15><13><17>
l #$ +nF<>d<EFBFBD>><3E> L<><4C>?<3F><><01> <20><11>d86$<13><00>
<20><11>d<EFBFBD>686[<17>3 no device<63><65><EFBFBD>><3E> <20><><EFBFBD>?<3F><>`<60>><3E> <20>
<EFBFBD><EFBFBD>?<3F><>><3E> <20><><EFBFBD>?<3F><><EFBFBD><EFBFBD><05><>l<EFBFBD>d`<60>d<EFBFBD> Id<49><18><02><07><02>
l<EFBFBD>d<EFBFBD><00>d?DEVICE +<2B>d6<>d$e<><65><EFBFBD> <20><16>& Id<49>&
<EFBFBD>><3E> <20><><EFBFBD>?<3F><>$ `<60>><3E> <20><><EFBFBD>?<3F><>&<26><>lca<63> eBUSOUT
+<2B>d6e$<13>leBUSOPEN +R<17>|ue$<13><00>eBUSC
LOSE +R<17>|ue<75>d$<13>e<EFBFBD> +<12>l<EFBFBD>1$<13>m<EFBFBD>h<EFBFBD>>
l<EFBFBD><1B>m<EFBFBD>JI(<28><><02>'<27>Hh<48>I<EFBFBD>l<><1B>m<18>J<EFBFBD>Hh<48>I<EFBFBD>l<> +
<EFBFBD>m<EFBFBD><17><03><15>lU32<15><18>l<EFBFBD>|$ +<2B>m<EFBFBD>m<EFBFBD>l<EFBFBD>/1<19>l<EFBFBD>
<13><18>$ +<2B>l<EFBFBD><13>b<EFBFBD>$ +Wm<57>;[<17>m<EFBFBD>l<EFBFBD>/<17>C3
1q<16><15>mq<16><15>;R<17><>b$ +Wm<57>;<13>l<EFBFBD>b<00>m
<EFBFBD>;<13>m$ +<2B>l<EFBFBD><13>g?<3F>lm#<19><15>;R<11>b$ +Wm
<EFBFBD>;R<1D>b$ +<2B>m<EFBFBD>lU32<15>l/<17><19>l<EFBFBD><02><><00><07>lZ
<EFBFBD><00>cC64TYPE<50>c<EFBFBD> <20><16>D$<24><16>& <20>b<EFBFBD><02>.<2E>><3E> l<><6C>
?<3F>Hl<48>cl<63>b<EFBFBD><00>cDISPLAY<41>><3E>bc<>c#c?crc<72>c<EFBFBD>c<EFBFBD>>
<EFBFBD>lr<EFBFBD><EFBFBD>TcB/BLKy+<04><00>cBLK/DRVy+<2B>Z) +
d<EFBFBD>R<14>$<13>dDRIVE +d<><1D>$<13>'d>DRI
VE +d<><1D><15><11>1$<13>=dDRV? +<2B><11><13>d$
<EFBFBD>xdDRVINIT +<2B>$<13><00>dI/OZ)<00><00>dBUSOF
)Z)Z)eZ)<29><>Z)Z)<29>^Z)<29>^Z)a^Z)
<00>^y+Hy+Jy+<19>y+;y+<15><>$<18>)<29>$<24><02>%<25>&<18>(<28>
&<26><02>'`<60>l<EFBFBD> <20><16>&<26>><05>'<27><19>'<27>$ l<>&<26><10> DlJP<4A><50>;
<05><14> <09>
<EFBFBD> <0B>P<EFBFBD>l<EFBFBD>km<> <20><16>&<26>><05>'<27><19><00>& <20>k
<EFBFBD>$H<>(<28><>J<EFBFBD>
<EFBFBD> <20>$ Dll ml<6D>k@m<> <20><16>D$Pl<>k<EFBFBD>(
l<>&HP<48>ym<79> <20><16>&<26>><05>'<27><19>'<27>$ lQ&<26><05><>lP<1B><10>
DlJP<4A><50>lP!<21>b<EFBFBD><07>><3E> l<><6C>?<3F><><18><02><07><02><14>K<EFBFBD>O
<EFBFBD> <20><11>5$I<><49>I `I<><49>I<>``<60><00>b
PRINTABLE?<3F>
b<EFBFBD> <20>b<EFBFBD>J<>lP<1B>QbC64EMIT<49>b<EFBFBD> <20>b<EFBFBD><02>.l<>b<EFBFBD>
<EFBFBD>bC64CR +<2B>a<EFBFBD>b$<13>cC64DEL +R<17><>b4R<17><>b
$<13><00>cC64PAGE +R<17><>b$<13>5cC64ATtc<74> <20><16>
&<26>$<18>><3E> <20><><EFBFBD>?<3F>lca<63>jcC64AT?<3F>c<EFBFBD>8<><02><07>F<14>
<EFBFBD>8<>><3E> <20><><EFBFBD>?<3F><>(<28><><02>(h<05><07>$<24><07>%<25>8<><02><07>F
<EFBFBD><03>$<24><07><10>lca<00>k 2VARIABLE +<2B>)<29><17> $<00>k
2CONSTANT +<2B>)I I <20>(l<>(<28>k$<00>kUNLINK +<2B>
<EFBFBD><17><17><07>k$<13><00>l <00>*)?*$* <09><> @`<60>*)I <20>
I@<40>)$* @`<60>.`<00>kCBM>SCR4l<34> l<>l
(lSCR>CBMll<6C> <20>k<EFBFBD>l @lEDITOR<4F>,5z5z
<EFBFBD>jy+(y+y+<2B>SHADOWZ)uZURON<4F>a<EFBFBD>J
<EFBFBD>H<EFBFBD>
<EFBFBD><EFBFBD>I<EFBFBD><00> <0B> <0C>l <00><00>aCUROFFBa<42><61><EFBFBD> <0C><>
<EFBFBD>l
<EFBFBD><00>aC64KEY +<2B>a<EFBFBD>5<EFBFBD>ab<1B><><EFBFBD>a<EFBFBD>a$<13>Oa#BSy+
<EFBFBD><00>a#CRy+
<00><00>a C64DECODE +<2B>a<EFBFBD>b<00>b
?/$<13>a<EFBFBD>b
<00><08>!$<13><12><15><15>s<08>O<12>><3E>
$<13>b C64EXPECT +<2B>!<08><17><08>!<21>Jb
<00>?<3F>?
<1B><><EFBFBD>4$<13>lbKEYBOARD<52>?Xa<58>abxb<78><00>bCON
PUSHAy+P{<00>jPUSH0Ay+Z{<00>jPUSHy+<2B>{
<EFBFBD>jRPy+{<00>jUPy+{<00>jSPy+{FjIPy+
{QjNy+${|jPUTAy+{<00>jWy+{<00>jSE
TUPy+<2B>{<00>jNEXTy+ { kXYNEXTy+ca{kP
OPTWOy+<2B>{'kPOPy+}.<00>j.BLK +<2B>!<21><13>b
<00>$ Blk l5<6C>>$bk2!<21>k<EFBFBD> <20><16><03><07>$<24><10><>l<>
<00>k2@<40>k?va<76>t@'RESTART]0<>i +<2B><17>2<EFBFBD>0<EFBFBD>
2<EFBFBD>d<EFBFBD>@<40>.<10><13><08><17><11>0<EFBFBD>23<><00>@COLD<4C>@<40>@h<><68>
h jx<6A><18> <10><06>$<24>!<10><00>%<25><10>$HP<48> j<><1B><11>
<EFBFBD><10><18> <10><06><04>!<10><00><05><14><04>H<><04><14>
<EFBFBD><04>H<><04><03>
<00><01><><02>ȅȅ<0F><00>l <00>U@RESTARTxa<78>@h<><68>h
la<>laC64KEY?<3F>a<EFBFBD><61>
]<05><02><>hl<68><1B><00>aGETKEY
<EFBFBD>a<EFBFBD>><3E> <20><><EFBFBD>?<3F>lZ<1B>~aC <15><>2i<32>@<05><><EFBFBD>@<05><13> <04>
<13> nixlca<63>_i(BSAVE<56>i<EFBFBD><69><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>><3E> X<><58>?<3F><>
<EFBFBD>lP<1B><>lP<1B><00>i(BLOAD<41>i<EFBFBD><69><EFBFBD><00><><EFBFBD><EFBFBD><EFBFBD>><3E> U<><55>?<3F>l
Ei<EFBFBD>><3E><><07><07>h<>h<><68>h<><00>l<><6C><EFBFBD>?<3F>@8<>><3E> <20><><EFBFBD>
;<3B>;<3B><1E><>i<EFBFBD><07><10><><07><><EFBFBD><EFBFBD><00><><EFBFBD><EFBFBD>?<3F>`<60>Sia) +$<13>
9jd(C16 +$<13>cjd(C64 +<2B>$$<13>pjFORTH-83
+${_j ASSEMBLER<45>,6k6k-{
?<00><00>?KE
Y?<3F>?<02><00>?DECODE<44>?<04><00>?EXPECT<43>?<06>SEA
L +<2B><17>-<2D>*$<13>K?$ONLY-<2D><00>?%FORTH-<2D><00>
?%WORDS<44>-<2D><00>?$ALSO<53>,<2C>@+DEFINITIONSz- +
<12><13>m<17><13><08>1<08><13><08>b<1B><>$ +<2B><17>6;*;
I;$<13><00>?'COLD]0<>i + @@@'?\@>-<2D>$ultraF
ORTH-83 rev3.51 ;<3B> 1l5<6C>$
bytes free
 E<19><15>bs<08>s$<13><00>gINDEX +<2B>h)<29>!?<3F>
<EFBFBD><EFBFBD>5<><35><EFBFBD>9<EFBFBD>R%?<3F>>bb<1D><><EFBFBD><EFBFBD>$<13><00>hFINDEX
+<2B>gb<00>$<13>h)<29>1?<3F><><EFBFBD>5<> <20><08><><EFBFBD><1D><1D>fg<>
<12>R%?O<12>>|bb<1D><><EFBFBD><EFBFBD><EFBFBD>g$<13>ThINK-POTZ
)<29><><00><><00><><01><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>J0 <09><i<>]
lpi`<60>$iC64INIT<49>iآ<69><D8A2><EFBFBD>><3E> <20><><EFBFBD>?<3F><>><3E> <20><><EFBFBD>?<3F>
<EFBFBD>0i<EFBFBD><19><>1i<31> ?CR +w?<3F>5R
1#b?$ +<2B>)<29>
| <17>(l<>(<28>T<11><13><15>$<13><00>>OUTPUT: +<2B>))0<>
(l<>(T$<13>V>EMITE><00><00>>CRE><02><00>>TYPE
E><04> ?DELE><06>?PAGEE><14> ?ATE>
<EFBFBD>,?
AT?E> <0C>6?ROW +<?h$<13>a?COL +<?2$ +<2B>
)<29>| <17>(l<>(<28><13><11><13><15>$<13>q?INPUT: +<2B>))0
<EFBFBD>(l<>(<28>$<13><00>?KEY<45>
Ruel$u2:13,0,* <20>
e<EFBFBD>f<EFBFBD>e<EFBFBD>d<EFBFBD>5rf$<13>vgDISKOPEN +dR
<EFBFBD>eR#Ze<5A>
drf$<13><00>g DISKCLOSE +dR
<EFBFBD>e<EFBFBD>d$<13>Rg1541
R/W +s<08>3no file"d<><1E>d<08>#b<1B>=5<>$
beyond capacity2$<13>gbh2$<13>s<08><1D><1D>
<17><>)<29>.h<08><15><><EFBFBD>b
<00>fg <00>f<EFBFBD>g<EFBFBD> g<>O<12>
bb<1D><><EFBFBD><EFBFBD>"<15><15>g$ +R<17>EsR<17>o<>;_n$
+no<6E>;?o$ +<2B>l <17><13><18>;<13>m<EFBFBD>;[<17>l #<08>
l<EFBFBD>k<EFBFBD><15><13>m<EFBFBD>$ +<2B>l<EFBFBD>k<EFBFBD><15>m#<19>;<13>m<EFBFBD>l<EFBFBD>k<EFBFBD><15>l<EFBFBD>
<EFBFBD>l<EFBFBD>l #$ +<2B>o<EFBFBD>;bn$ +<2B>o<EFBFBD>;<13>n$ +<2B>l<EFBFBD><16>
l #<08>l<EFBFBD>k<EFBFBD><15>m<EFBFBD>l<EFBFBD>$ +<2B>l <17><13><18>;o<>;<13>o
$ +<2B>l<EFBFBD><17>$ +<2B>l<EFBFBD><17>$xlRVSON +R<12>b$
dpRVSOFF +R<17><>b$wp***ULTRAFORTH83
fJb R<15>$<13><17><15><08>fJb<00>f1R<13>R
<11>$<13><08>fJb<00>f1R<12>R<18>$<13>f1R<11>R
<1E>$ +<2B>f<EFBFBD>s$ +F<11>1%<25>`4I4hR,i4I4<49>4
$y+<01>hf
READSECTOR +dRuel$u1:13,0,
* <20>e<EFBFBD>f<EFBFBD>e<EFBFBD>d<EFBFBD>5rf;dR
Ge g0f<30>d<EFBFBD>$<13>g WRI
TESECTOR +<2B>dRuel$b-p:13,0* <20>e<EFBFBD>ddR
ue g<>e<EFBFBD>dd<13>1b3nr<6E><17>1?<3F>1<EFBFBD>q<EFBFBD>ah
$*Ps(LOAD +<2B>!<21>1<EFBFBD>!<08><08>;<13>!<21>1<EFBFBD>!<08>1<EFBFBD>/$
*<00>wSHOWLOAD +3<>13<>3<>1<EFBFBD>jw6w<08>w:w$
 +.i<><15><08><13>l<EFBFBD><13><08><16><13>l<EFBFBD> <17><13>l<EFBFBD>$ +<2B><17>w
R<17><>bnrh<08>l<EFBFBD><17>?<3F><08>l<EFBFBD><13>?v_<13>v<EFBFBD>b<1B><><EFBFBD><17>1?
<EFBFBD>nh<08>l<EFBFBD><17><17>w<EFBFBD><17><17><07>$+<00>wEDIT +3#q&w
xR<18>1?<3F>$Scr 3<>=5<><08><17><15>b <00>$no
t <20>$changed<65><08><17>b<00>9<EFBFBD>R<06>R1b <00>
$, savedR<14>b<1B><00>$ , loading?3<>3<>C
w$,hxL +3<>ox$,WxR +3<>ox$,<00>x+
L +3<><13><15>x$,<00>xV +V.u*<2A>b<00>1<16>$,
yVIEW +y<>b<00>x <00>$
from keyboard$
+<2B>l<EFBFBD><13>l<EFBFBD><13>$,<00>vCURLIN +R<00><><EFBFBD><EFBFBD>$
+<2B>l<EFBFBD>1<EFBFBD><17>v<EFBFBD><17>v<EFBFBD><17>v<EFBFBD><17>v$ +<2B>[1b<00>v<EFBFBD>$
(Vp(PADZ) +<2B> <20><08>v<08>l<EFBFBD><1D><15><08>l <08>l<EFBFBD>
<EFBFBD><08>l <08>l<EFBFBD><15><08>l<08>l<EFBFBD><1D><15>l<08>l <17><17>l <17><17>
<17>p* <20><12>l <17><13><12>O<12>l<08><17>p* <20><12>l <17><13><12>
O<12>l$ +<2B> <20>v<EFBFBD>1;<13>v$y+<2B># +<2B>$6w`p<>
a$ +<2B>!<21><13><08>b:w$<13>!<21>/3`p<>alp3<>
<10>bRj<>bmyR<1B>bRk<>bR<1D>bmy<6D>1$-]y ED
IDECODE +R<17><>b
<00>l<EFBFBD>?$<13>a<EFBFBD>b<<00>l<EFBFBD><17>y<EFBFBD>
<08>!<21>#bh<08>!<21><13><>:<3A><00><15><15><><EFBFBD>jls<08><13><16><>
<EFBFBD><EFBFBD><EFBFBD><08>!$<13><08>l<EFBFBD>R?v_<13>vh$-<00>y EDIEXPE
CT +&w<>!<08><17><08>!<21>Jb
<00>?<3F>? <1B><><EFBFBD>4$-
zEDIBOARD<52>?Xa<58>a<EFBFBD>yz0$yTOOLS<4C>,<2C>]<5D>]<5D>lZ)
Z)P<><50>zN<7A>z1b<00>s<EFBFBD>b2$<13>1<19>; S
<EFBFBD>3<><13>l<EFBFBD>1<16>><3E><18><15>bkb
<00>rh <00>rh
<1B><>[$ +<2B>#R@1$Z)<1F>
<EFBFBD> <0C><><EFBFBD><EFBFBD><EFBFBD><1E>
<EFBFBD><EFBFBD><EFBFBD><11><><13><> <0F>Z)<29>r<EFBFBD>r<EFBFBD>r<EFBFBD>rzu<7A>oAnAnrr8r
cro<>np<>o<EFBFBD>p<EFBFBD>q<EFBFBD>o<EFBFBD>o<EFBFBD>o<EFBFBD>n<EFBFBD>n_nbn<62>m<EFBFBD>m<EFBFBD>m<EFBFBD>n<EFBFBD>m<EFBFBD>m?
oSn<EFBFBD>n.p8p(nav<61> <20><16>$<24>H<EFBFBD>NuI<75><49>E&P<><50>
<EFBFBD><EFBFBD><EFBFBD>uh<EFBFBD>
<EFBFBD>ul<EFBFBD> +<2B>l<EFBFBD><13>5R<17><>)<29> <09><><EFBFBD>$ +<2B>[<5B>1<EFBFBD>ańa<>
<EFBFBD>ańa<>$ +<2B>[1bx<><78>$(<00>_(PADZ)g<>
+<2B> <20><08><>h[<5B><1D><15><08>[ h[<5B><15><08>[ h[<5B><15>
<08>[h[<5B><1D>}[<08>[ <17>}[ <17><17>l_* <20><12>[ <17>
<EFBFBD><12>O<12>[<08><17>_* <20><12>[ <17><13><12>O<12>[$ +<2B> <20>
<EFBFBD><EFBFBD>1;<13><>$y+<2B># +<2B>$<15>?_<>a$ +<2B>!<21><13><08>
b<19>$<13>!<21>/3?_<>a+_3<><13>h: <?<3F>l<EFBFBD>k
t<><17><17>1?<3F>l<EFBFBD><13>5<>1?<3F> <20><16>YsF?<3F>!<21><13>b
<00> d<15> 'h<08>l1?<3F>l<EFBFBD><13>5<>b<EFBFBD>1?<3F>l <17><13>lm
w?1F?<3F>!<21><13>b<00>l1?<3F>l<EFBFBD>kt<>1?<3F>l <17><13>lm
w?1F?<3F>!<21><13>b<00>l1?<3F>l<EFBFBD>kt`phq1?$ +nr
h<08>l<EFBFBD>k3<>3<><13>9<EFBFBD>d3<>1Jr<4A>b<00> 

3<EFBFBD><13>913<08>q$ +rh4tu3<>b'<00>?<3F>Rr
B¥b2$<13>1<19>; S<>3<><13>[<5B>1<16>>
<EFBFBD><18><15>bkb
c<>h s<>h <1B><>[$ +<2B>#R
@1$Z)<1F>
<EFBFBD> <0C><><EFBFBD><EFBFBD><EFBFBD><1E><><EFBFBD><EFBFBD><11><><13><>
 <0F>Z)c<>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD>9<EFBFBD>C^<5E>]<5D>]<5D>`<60>`<17>"<22><>]R]<5D>^O^<5E>_o
`[^<5E>^<5E>^<5E>]<5D>]>]!]N\N\N\m]Z\N\^<5E>]<5D>]
__] <20>
<EFBFBD> <20><16>$<24>H<EFBFBD><48><EFBFBD>I<EFBFBD><49>E&P<><50>
<EFBFBD><EFBFBD>T<EFBFBD>h<EFBFBD>U<EFBFBD>l<EFBFBD> +<2B>[<5B><13>5
R<17><>)<29><00><00>r DIGDECODE +<2B>a<EFBFBD>b<00>b
?/$<13>a<EFBFBD>b
<00><08>!$<13>"<22>%%bh<08><12><15><15>
s<08>O<12>><3E>$h$"<00>sDIGITS<54>?Xa<58>a<EFBFBD>sxb +<2B>
l<EFBFBD><13>)<29>
<00>a<EFBFBD>b<EFBFBD><62><EFBFBD><EFBFBD><EFBFBD><17>l<EFBFBD><13>)<29>
<00>m|<15><><EFBFBD><EFBFBD><EFBFBD>;
<EFBFBD>l<EFBFBD>k<EFBFBD>ms>mrh$ +?R<<3C>><3E>l/w?1(4$ +<2B>
<EFBFBD>1<EFBFBD>k/q<?lp<6C><17>1?<3F>$replace with: <?<3F>l<EFBFBD>kt
<EFBFBD><17>1?<3F>$> searc 1b3-<2D><><17>1?<3F>
1A`<60>ah$*<00><>(LOAD +<2B>!<21>1<EFBFBD>!<08><08>;<13>!<21>1<EFBFBD>!
<08>1<EFBFBD>/$*<00><>SHOWLOAD +3<>13<>3<>1<EFBFBD>)<29><15>
<08><><19>$ +.i<><15><08><13>[<5B><13><08><16><13>[<5B> <17><13>[<5B>$
 +<2B><17><>R<17><>b-<2D>h<08>[<5B><17>?<3F><08>[<5B><13><1E>_<13>ťb<1B>
<EFBFBD><EFBFBD><17>1?R]h<08>[<5B><17><17><><EFBFBD><17><17><07>$+<00><>EDIT +
3`<05><><EFBFBD>R<18>1?<3F>$Scr 3<>=5<>[3#nr
$ +rh<08>l<EFBFBD><13>3<>Jb<00>3#nr$ +rh<08>
l<EFBFBD>3<><13>l3nr$ <00>p(SEARCHLr<4C><07><07>$<00>
<10><>()<29>ɥ$%<25>á&A*<2A><11>$PF%F$<24>&P<02>'l|r<><07>$
<00><07><10><>&P<02>'<27>*P<02>+<2B>$PF%F$<24>(PF)F(<28>()P<><50>
<18><04><07><02><14><03>'<27><07>&<26><><07>lq<18>$%P<10><18><06><07><02>
<14>lt<18>&A*<2A><><EFBFBD><07><07>$<00><10><>$PF%F$<24>&P<02>'lVr"

<08><17><15>b <00>$not <20>$changed<65><08><17>b<00>
9<EFBFBD>R<06>R1b <00>$, savedR<14>b<1B><00>$ ,
loading?3<>3<><13><>$,'<27>L +3<>.<2E>$,<00><>
R +3<>.<2E>$,F<>+L +3<><13><15><>$,V<>V +V.
u*<2A>b<00>1<16>$,<00><>VIEW +<2B>ǥb<00><> 
<EFBFBD>$
from keyboard$ +<2B>[<5B><13>[<5B><13>$,<00><>CURL
IN +R<1B>bR
1?<3F>$Scr # 3<><13>=5vq<76>b <00>
$not <20>$updated<65><17>1?<3F><17>p* ?<3F>(4<><17>p* 
?`p1?`qhq<68>$ +<?s<08>l<EFBFBD><16><1D>3$ +3<><13>
<EFBFBD>l<EFBFBD><1F>l11d/<17><19>l<EFBFBD><16>s1?$ +<2B>kRNq$
+r3<><13>9wmb<00>ph3<><13>9mQ9R|$ +r
R|$ +8rR|$ +3<><13>9<EFBFBD>l<EFBFBD>l<EFBFBD><17>k<EFBFBD>q<EFBFBD>$
+rh<08>3#nr$ +rhj<>b,<2C>R<1B>bRk<>bR
<EFBFBD>b,ȼ1$-<<3C> EDIDECODE +R<17><>b
<00>[<5B>?
$<13>a<EFBFBD>b<<00>[<5B>eȀ<08>!<21>#bh<08>!<21><13><>:<3A><00>
<15><15><><EFBFBD>)[s<08><13><16><><EFBFBD><EFBFBD><EFBFBD><08>!$<13><08>[<5B>R<1E>_<13>
<EFBFBD>h$-<00><> EDIEXPECT +Ə!<08><17><08>!<21>Jb
<EFBFBD>?<3F>? <1B><><EFBFBD>4$-<00><>EDIBOARD<52>?Xa<58>a<EFBFBD><61><EFBFBD><EFBFBD>l<03>
PRINT<4E>,<2C>ɐ<EFBFBD>f[lPRINIT +<2B>R *** <00>p
FORTH-GESELLSCHAFT <00>lSTAMP$Z)clv26
.4.87) +<2B>p<EFBFBD>* <20>m<EFBFBD>l<EFBFBD><15>1s>m<>$<00>p
GETSTAMP +<2B><11>1<EFBFBD>b<EFBFBD>p<EFBFBD>?<3F>$ your stamp: lpR
(4g?R 1?<3F>p RF?`p<>!<21><13>p<EFBFBD><16>$ +<2B>p<EFBFBD>;
<13>p$ +<2B>m<EFBFBD> <20>l<EFBFBD><1D><1F>m<EFBFBD>l<EFBFBD>R<17><> $ +<2B> <20>m<EFBFBD>l<EFBFBD><1D>
$ +<2B>9m<17>$ +<2B>a<EFBFBD>5<EFBFBD>?b<1B><><EFBFBD>a$ +<?/qlp<6C><17>
ue$l=<3D>CRET +R
Ze$ls<>PSPACES +<2B>
:<3A>
C3Ze<5A><65><EFBFBD><EFBFBD>$m<00><>PCOLZ) m<00><>PROWZ)
+Ze<5A><17><>#$ +zɄ<17><>#<08><17><>$ +$ +R<17><>
<EFBFBD><EFBFBD><08><17><>$ +<2B><08><><EFBFBD><13>b<00><><EFBFBD><17><08><><EFBFBD>1<16><>:
<EFBFBD><00>Ɉ<EFBFBD><C988><EFBFBD><EFBFBD><08><><EFBFBD>1<16>Ɋ<EFBFBD>$ +<2B><><EFBFBD><13><><EFBFBD>$ +<2B>
<EFBFBD><EFBFBD>#<08><>:<3A> <00><><EFBFBD>Ze<5A><65><EFBFBD><EFBFBD>$Z)<29>ɧ<EFBFBD>ʹɽ<CAB9>P<EFBFBD><06>m+
<EFBFBD>PRINTER <0F><02><0E><02><0F><18><02><02><02><03>^z<><1C>_z<5F>
lZ)<29>zZ)<29>* <20><15><15>Os<08>$2NPUSH +O
"<15><08><12><12><08>1<16><08> <20>z<EFBFBD><12>$ +<2B>14<>!<21>/<2F>~
<EFBFBD><EFBFBD> $<13><18><02><0E><02><0F>M<>z<EFBFBD>l<00>M<>zP<7A><50><EFBFBD>z<EFBFBD><1C>
^z<><1D>_z <20><11><12>z<EFBFBD><12><11>1<EFBFBD>bT<11>1<EFBFBD>c?m<17><08>5<><13>
R5<>(4u*G*Rw?1<16><17>(4[5<>#<23>1<EFBFBD>!<21>1<EFBFBD>!<21>1
<EFBFBD><17>2<EFBFBD>1<EFBFBD>u/<2F>1
!<21>1<EFBFBD>!
!+f<>,<2C>T$m><3E>DIS
PLAY +?<3F>d<EFBFBD>c$nv<>B/SCRy+n<00><>.LINE +<2B>
9s<08>5<EFBFBD><1D><15>5/?$n<00><>.=== +Rp<>)<29> R=<3D>
><3E><><EFBFBD><EFBFBD>$n<00><>PRLIST +<2B><08>9hh<>R<0E>><3E>$ Scree
n Nr. <20>=5R<08>>?<3F><>R<19>)<29><00><><EFBFBD><08><>?<3F><><EFBFBD><EFBFBD>h
<08><>???`<60>$6kEND-CODE +_,m<17>_,$
<0F>INDEXZ) <11> <09>
<19><><EFBFBD><EFBFBD>CLV
̸
c<EFBFBD>DEX
<EFBFBD>Jn<>DEY
̈y<>INX
<EFBFBD><EFBFBD><00><>INY
<EFBFBD>
H<00><>NOP
<EFBFBD><EFBFBD><00><>PHA
<EFBFBD>h<00><>PHP
<EFBFBD><00><>PL
A
<EFBFBD><EFBFBD><00><>PLP
<EFBFBD>(<00><>RTI
<EFBFBD>@<00><>RTS
<EFBFBD>`<00><>
SEC
<EFBFBD>8G<>SED
<EFBFBD><EFBFBD>R<>SEI
<EFBFBD><EFBFBD><00><>TAX
̪
<00><>TAY
̨<00><>TSX
̺<00><>TXA
̊ <09>TXS
̚<08>TYA
̘<1F>M/CPU +<2B>)| I <20>(l<>(<28><08>
<02>R<17><>b Rt<>#<08><08><00><><15>˼<EFBFBD>b<00><>[<17>
3invalid<69>t<><74>2˿<15><13>| t<><74>R<07>bt<><74>
R<0F>R<07>b| I <20><>$*<2A>ADC<<3C>`<60>
<00><>AND<<3C> <20><00><>CMP<<3C><><EFBFBD>J<>EOR<<3C>@<40>W
<EFBFBD>LDA<͠<><00><>ORA<<3C><00><00><>SBC<<3C><><EFBFBD><00><>
STA<̀<> <0B>ASL<<3C>
<18>DEC<<3C>A %<25>IN
C<<3C><> 2<>LSR<<3C>a
?<3F>ROL<<3C>!
l<>RO
R<<3C><>
y<>STX<́<00><>CPX<<3C><><EFBFBD><00><>CPY<
<EFBFBD><EFBFBD><EFBFBD><00><>LDX<͢<><00><>LDY<͠<> <00><>STY<̀
<EFBFBD><00><>JSR<<3C><08><00><>JMP<<3C>@<40><>A<>BIT<<3C> <20>
+<2B><08>R#<19>3
out of range $ N<>[[ +<2B> $
 <00><>?] +| <20> <20>1Y<>| $ <05>?[ +| <20> <20>|
$ <1C>?[[ +!<21>s$ /<2F>]? +<2B> <20><08>b
s
 <00><08>1Y<>s<08>$ ?<3F>][ +<2B> <20><16>G<>s<08>
<EFBFBD><08>1Y<>s<08>$ <00><>]] +G<>$ <00><>]]? +G<>d<EFBFBD>
$
<00><>CSy+<2B>
<00><>CCy+<2B>
<00><>0=y+P
<00><>0
<>y+<2B>
I<>0<y+
U<>0>=y+0
<00><>VSy+p
<00><>VCy+<2B>
<00><>NOT +R $
<02>BEQ +O<>
<EFBFBD>
$
<13>BMI +<2B><>
<EFBFBD>$
#<23>BNE +C<>
<EFBFBD>$
3<>
BPL +Z<>
<EFBFBD>$
c<>BCC +<2B><>
<EFBFBD>$
s<>BVC +<2B><>
<EFBFBD>
$
<00><>BCS +<2B><>
<EFBFBD>$
<00><>BVS +<2B><>
<EFBFBD>$ <00><>2I
NC +<2B><08><>(̎<17>˶̀έ<>!<21>s<08>8<>d<EFBFBD>$ <00><>2D
EC +<2B><08><>M̎<17><>΀θ<>!<21>s<08>+<2B>d<EFBFBD>$ <00><>WI
NC +<2B>8<>C<EFBFBD>!<21>s<08>8<>d<EFBFBD>$ <00><>WDEC +<2B><08><>C<EFBFBD>!<21>
<EFBFBD><08>+<2B>d<EFBFBD>+<2B>$ <02>;C: +<2B><11><><EFBFBD><EFBFBD>)0<>*'<08>$
 <00><> ASSEMBLER +<2B>j<EFBFBD><6A>$ =<3D>e;CODE +<2B>(<28><17>
<EFBFBD><EFBFBD> 4+<2B><17><><EFBFBD> i<>$ s<>CODE +<2B>)<29> <20>mi<>$
<00><>>LABEL +<2B> )<29>)sI <20><17>',(<28><17><15>'<27> <20>1,
(<28><17>,(*'<27>* R<1F><15><08><08>(l<>(<28>$ <00><>L
ABEL +<2B> <20><>i<EFBFBD>$0Y<>TOOLS<4C>,2<>2<EFBFBD>9<EFBFBD>Z)$Z)<29>~
<EFBFBD>Nҡ<02><0E><02><0F><18><02><02><02><03><>х<1C>҅lZ)<05>Z
)<29>* <20><15><15>Os<08>$2NPUSH +O"<15><08>
<EFBFBD><12><08>1<16><08> .Ұ<12>$ +<2B>14<>!<21>/<2F>~<7E><> $
<13><18><02><0E><02><0F>M<03><>l<00>M<04>P<EFBFBD><50>ҥ<1C><>ѥ<1D>
<EFBFBD> <20><11>*Ұ<12><11>1<EFBFBD>bT<11>1`<60>?m<17><08>5<><13>R5
<EFBFBD>(4u*G*Rw?1<16><17>(4[5<>#<23>1<EFBFBD>!<21>1<EFBFBD>!<21>1<EFBFBD><17>2<EFBFBD>1
<EFBFBD>u/<2F>1
!<21>1<EFBFBD>!
!<21>lҢ<11>1<EFBFBD><12>R<17><> <20><17><><EFBFBD>0<EFBFBD>2
<EFBFBD>2'ө҅<15><><EFBFBD><08>l<EFBFBD>l 4d<>TRACE' +<2B>m<01>
V.%<25>_c$48ӅBREAK +<2B> <01>%<25>$4w<>T
RACEL: +<2B>)I <20>(l<>(<28><01>#$4<00><>+DO<44><4F><EFBFBD><EFBFBD>4<00><>
-DO<44><4F>4<00><>+R<><52><EFBFBD><EFBFBD>4<00><>-R<><52>4<00><>+PUSH<53>
<EFBFBD><EFBFBD><EFBFBD>4<00><>-PUSH<53><48>Z)<29><>"<15><18><02><0E><02><0F>XӅ$<24>Y
Ӆ%<25>$MZ<4D><5A><15><02>ҥ<03>ҩ҅<15><><EFBFBD>l<>ұ$M<><4D>P<EFBFBD>l
ԩӅ<15>|<7C><08>l<EFBFBD>l 6J<>WATCH' + <09>V<><08>V
<EFBFBD> V.<17>_c$6*<2A>CONT +V<><56><13>V<> <17>$
 +<2B><08>5<>$:$ +<2B><08>R5$ +<2B><08><13>5$
+R$w?1<16><17>(4$7o<>S +<2B><>4<>Ԣ(4<>* ?<3F>
<08><13><15><16><>$7<00><>N +<2B><><EFBFBD>Ԏ(4<><08>u*G* <17><>$
7F<>L +<2B><><EFBFBD><EFBFBD> <17><>$8<00><>D +<2B>s<08>Ԙ(4s<08>)
<EFBFBD>
<00><><EFBFBD><16><><EFBFBD><EFBFBD><EFBFBD>(4"?<3F><>$8<00><>C +<2B><17><>$8$
S<>B +<2B><><EFBFBD>Ԁ<08><13><08>R5 <17><>$<00><>T +<2B>$
halo_<EFBFBD><EFBFBD>$laber $q<>V1Z)$<00><>T2 +<00><>
T2 +<2B>$hallo<6C><6F><EFBFBD><13><17><>#$<00><>GR<47>ա<07><><EFBFBD>5<EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><07><08><><06> <20><06><><07>)<29>$<24>0 <10><07><><12>)C <14><12><>
<EFBFBD>) <18><08>l֭<06>)ߍ<06><><07>)<29><><07><><12> <04><12><><08>)
<14><08>l}l<>ұ$M<><4D>P<EFBFBD>lԩӅ<15>|<7C><08>l<EFBFBD>l 6J
<EFBFBD>WATCH' + a"F<17>"<08><17>8<EFBFBD><00>$write <20>
8x<1B><>
<18><>t#<08>\y+a<17><08>t<17>\y+<2B><08>8
|1<>|1%3P<12>Z"<08><15>
<14>z<15><17>8<EFBFBD><00>$
read <20>8xY<><59>\y+<2B>6<EFBFBD>"<08>"<08>a"<08><17><19>
<EFBFBD><EFBFBD><EFBFBD>6]6<><08>8\y+aP<12>;Z"<08>a;<08>t<17>
<17>6<EFBFBD>6\y+<2B>6"<08><08><00>z"<08><18><1B><>\y+<2B>6"<08>
"<08><18><1B><>z"<08>\<13><00>8 CORE?y+<2B>7<EFBFBD><15>\<13><00>
9(BUFFERy+<2B>7+9q9x<1B><><EFBFBD><00>9(BLOCKy+<2B>7+9<>8q
9x<1B><><EFBFBD>9<EFBFBD><1C>hH<68>l<1C>U9BUFFERy+<2B>9G9\<13><00>9
BLOCKy+<2B>9<EFBFBD>9\<13>:UPDATEy+
<18><>6"z#<17>\
<13> : SAVE-BUFFERSy+<2B>6]6<>9<EFBFBD><08><00>8x<1B><><EFBFBD>6<EFBFBD>
6\<13><:
EMPTY-BUFFERSy+<2B>6]6<>6"<08><08>
<00><08>8
x<1B><><EFBFBD>6<EFBFBD>6\<13><00>:FLUSHy+k:<3A>:\y+ <0B><08>9<EFBFBD>9<EFBFBD>
<00>6"<08>8<EFBFBD>9<EFBFBD>k:Z"<08><15>:<3A><17>;):\y+k:P
<EFBFBD><13><15>[P<12><19>1<16>$<13><16><12><17><><00>/
<18><><EFBFBD><16><15>:<3A><><EFBFBD><EFBFBD>x<00><12><17><><00><15>:<3A><17><17><16><><EFBFBD><EFBFBD>k:
<EFBFBD>\<13><00>:COPYy+<2B>U:\<13>3;CONVEYy+<2B>#F<17>
<15><16><<19><16>3neinU:\<13>d;LIMIT<49>+<00><><00>;FI
RST*<00><00>; ALLOTBUFFERy+<2B>;"B"<08><16>6a
m(4s<08>)<29>
<00>\<5C><16><><EFBFBD><EFBFBD><EFBFBD>(4"?<3F>\$8v]C +
<EFBFBD>z]$8<00>]B +H\V\<5C><08><13><08>R5 <17>\$4<00>
[<5B>BREAK +<2B> `z<08>[$4<00>[TRACEL: +<2B>)I <20>(
l<EFBFBD>(<28>`z#$4N[+DO<44>[<5B><>44<00>[-DO<44>[4<00>[
+R<>[<5B><>4\-R<>[4\+PUSH<53>[<5B><>4\-PUSH
<EFBFBD>[Z)*\A<><18><02><0E><02><0F>8\<5C>$<24>9\<5C>%<25>$M:\<5C><15><02>
<EFBFBD>z<EFBFBD><03><>z<EFBFBD>z<EFBFBD>
<15>߅l<>z<EFBFBD>$M;\P<>l<00>\<5C>\<5C><15><<3C><08>
l<EFBFBD>l 6*\WATCH' +<2B>6\<08>6\ V.<2E>\_c
$6<00>\CONT +6\<5C><13>6\ <08>\$ +<2B><08>5<>$:
$ +<2B><08>R5$ +<2B><08><13>5$ +R$w?1<16><17>(
4$7<00>\S +H\4<>\<5C>(4<>* ?<3F><08><13><15><16>\$7
]N +H\V\<5C>(4<><08>u*G* <17>\$7&]L +H\V\
<17>\$8d]D +<2B>sH\<5C><0E><13>z<EFBFBD><11>1<EFBFBD><12>R<17><>
<EFBFBD>Kz<4B>0<EFBFBD>2<EFBFBD>2<EFBFBD>[<5B>z<EFBFBD><15>߅<08>l<EFBFBD>l 4<00>zTRACE' +<2B>
m`zV.<2E>[_c$4<00>[<5B>BREAK +<2B> `z<08>[$
4<00>[TRACEL: +<2B>)I <20>(l<>(<28>`z#$4N[+DO<44>[
<EFBFBD><EFBFBD>44<00>[-DO<44>[4<00>[+R<>[<5B><>4\-R<>[4\
+PUSH<53>[<5B><>4\-PUSH<53>[Z)*\A<><18><02><0E><02>
<EFBFBD>8\<5C>$<24>9\<5C>%<25>$M:\<5C><15><02><>z<EFBFBD><03><>z<EFBFBD>z<EFBFBD><08><><EFBFBD><EFBFBD><EFBFBD> 
<1C><>,Z)*<2A>MODE: +<2B>)| <20>(l<>(<28>t<>$z<>
.A<><41><00><>#<23><><01><><00><>,X<><58><00><>,Y<><59><00>
<EFBFBD>X)<29><><00><>)Y<><59><00><>)<29><> +bt<><74>R|
t<EFBFBD><08>t<><74>R<0F><15>b<00>)<29>
<00><08><15><><EFBFBD><EFBFBD><EFBFBD><08><16>
<EFBFBD><15>$<00><>CPU +<2B>)| <20>(l<>(<28>| <20><>$<00><>BRK
<EFBFBD><17>CLC
<EFBFBD>"<22>CLD
<EFBFBD>X-<2D>CLI
<EFBFBD>x8<>
ERROR?y+yd
 fzf<7A>
0<><16>v?zf<7A>6b<36><19>
<1B><><EFBFBD>`?<3F>Wd\<13>+<2B><01>+<2B><01>+vy+<2B>Ef<19>
,
dP<17><15>If<19>Ef<45>
,
<11>d<13>Mf<19>
If<49>
,
<18>dMf<4D>
,
<1E>\y+Qf#<17>
\y+<2B>|1j%<25><17>45<>
,<2C>45<>4\<13>+<01><00>f
RE
ADSECTORy+yd
<0F>e<EFBFBD>$u1:13,0,<2C> ;f6g;fWdr6<72>
f<EFBFBD>yd

f USOUTy+Hd]6`e\<13><00>eBUSOPENy+
<18><16>e\<13><00>eBUSCLOSEy+
<18><16>eWd\Ue<55><65><EFBFBD>
S<16>&
e<EFBFBD>&<26>><3E> <20><><EFBFBD>?<3F><>$ `<60><><EFBFBD>><3E> <20><><EFBFBD>?<3F><>&<26><>l<EFBFBD>a
<EFBFBD><00>eBUSINy+Hd]6Se\<13>fBUS!!f<><07>><3E> <20><><EFBFBD>?
<EFBFBD>l<EFBFBD><12>fBUSTYPEy+<2B><><EFBFBD><EFBFBD> Jf<><66><EFBFBD><EFBFBD>r6\<13>1
fBUS@\f<>><3E> <20><><EFBFBD>?<3F>l<1C>sfBUSINPUTy+<2B><><EFBFBD><EFBFBD>
zf<1B><13><><EFBFBD><EFBFBD>r6\<13><00>fD \<13>~dDRV?y+Z"<08>
hd>\<13><00>dDRVINITy+<2B>\<13><00>dI/O*<00>Bd
BUSOFFYd<EFBFBD>><3E> L<><4C>?<3F><><01> <20>Hd<48>6\<13><00> <20>Wd<57>6
<EFBFBD>6<EFBFBD><17>3 no device<63><65><EFBFBD><EFBFBD><EFBFBD>><3E> <20><><EFBFBD>?<3F><>`<60>><3E> <20><><EFBFBD>?<3F><>
><3E> <20><><EFBFBD>?<3F><><EFBFBD><EFBFBD><05><>l<EFBFBD>d`7e<37>
e<EFBFBD><18><02><07><02>l<>d<EFBFBD>
Nd?DEVICEy+Hd]65e\<13>e<EFBFBD><65><EFBFBD> S<16>&
e<EFBFBD>&<26>><3E> <20>
<EFBFBD><EFBFBD>?<3F><>$ `<60>><3E> <20><><EFBFBD>?<3F><>&<26><>l<EFBFBD>a<EFBFBD>leB ><3E> <20><><EFBFBD>?<3F>l
<EFBFBD>a<EFBFBD><00>cC64AT?<3F>c<EFBFBD>8<><02><07>F<14><>8<>><3E> <20><><EFBFBD>?<3F><>(
<EFBFBD><EFBFBD><02>(h<><68><00><07>l<1C><00>cC64TYPE<50>c<EFBFBD> S<16>D$<24><16>
& <20>b<EFBFBD><02>.<2E>><3E> l<><6C>?<3F>Hl<48>cl<63>b<EFBFBD>ZcDISPLAYd?0ch
c<EFBFBD>c[c<>c<EFBFBD>c<EFBFBD>c(d<>><3E>lr<6C><72> dB/BLK<4C>+<04>0dBLK
/DRV<52>+<2B><00>>d(DRV*y+ud"
<14>\<13>ndDR
IVEy+hd<68>Z;\<13><00>d>DRIVEy+hd<68><1E>Z"<08>
G!"<19>
<00>?@x<1B><><EFBFBD><15>4\<13><00>bKEYBOARD<52>
?b<>ahb<68>b<EFBFBD><00>bCON!Tb<54><07>><3E> l<><6C>?<3F><><18><02><07><02>
<14>K<EFBFBD>O<EFBFBD> <20>r6\I<><49>I `I<><49>I<>``<60>Kb
PRINTA
BLE?c<> <20>b<EFBFBD>J<>l<1C> cC64EMIT2c<32> <20>b<EFBFBD><02>.
lVb<EFBFBD>&cC64CRy+6bRb\<13>@cC64DELy+
<18>Rb<52>4
<18>Rb\<13>rcC64PAGEy+
<18>Rb\<13><00>cC64AT<41>c<EFBFBD>
 S<16>&<26>$<18> KEY?<3F>a<EFBFBD><61>
]<05><02><>hl<1C><00>aGETKE
Y<EFBFBD>a<EFBFBD>><3E> <20><><EFBFBD>?<3F>I<EFBFBD>P<02> l<1C><00>aCURONYa<59>J<18>H<EFBFBD>
<EFBFBD>
<EFBFBD>I<EFBFBD><00> <0B> <0C>l <00>OaCUROFF<46>a<EFBFBD><61><EFBFBD> <0C><>
<EFBFBD>l <00><00>a
C64KEYy+War6<72>a<EFBFBD><1B><><EFBFBD>a<EFBFBD>a\<13>b#BS<42>+<00>$b
#CR<43>+
<00>0b C64DECODEy+*b6<1C><00><08><00>?<3F>
d6b6<1C>
<00>G!;dP<12><15><13><08><13>v?#\<13><
b C64EXPECTy+G!;<08><17> +<2B><17>6;<08>;<3B>;;'<\<13>
@'COLD<4C>0<EFBFBD>iy+<2B>@<40>@<40>?<3F>@<40>-<11> <20>?`?<3F>a<EFBFBD><00>@'R
ESTART<EFBFBD>0<EFBFBD>iy+/<18>2C0<43>2<EFBFBD>d<EFBFBD>@/.";/<18>C0@
3l3<EFBFBD>T@COLDa<>@h<><68>h jx<6A><18> <10><06>$<24>!<10><00>%
<EFBFBD><10>$HP<48> j<><1B>9<11><00><10><18> <10><06><04>!<10><00><05><14>
<EFBFBD>H<><04><14>
<EFBFBD><04>H<><04><03><00><01><><02>ȅȅ<0F><00>l <00>
aRESTART<52>a<EFBFBD>@h<><68>hl3a<33>~aC64 ROWy+<2B>?<3F>
\<13><00>?COLy+<2B>?<3F>\y+<2B>)<29>!aR(l<>(J"<08>
<15>\<13><00>?INPUT:y+<2B>)<29>0R(l<>(;\<13>X?KEY
G?<00><00>?KEY?G?<02><00>?DECODEG?<04> @EXPECTG
?<06>SEALy+<2B>/<18>-<2D>*;\<13>'@$ONLY<4C>-<2D>>@%
FORTHp-<2D>i@%WORDS<44>-<2D>u@$ALSOL,<2C><00>@+DEFINI
TIONS<EFBFBD>-y+%"<08><08>"<08>Z<17>;"<08><08><18><1B><>\y
<08>;"<08><08><18><1B><>}<12>/<01>\<13><00>>BYEy+k:
&d\y+<2B>?P<17><19><00>9\<13><00>>STOP?y+@<40>L
>L><3E>\<13><00>>?CRy+<2B>?T5

<EFBFBD>[<19>`?\y+<2B>)<29>
!aR(l<>(J<13>"<08><15>\<13><00>>OUTPUT:y+<2B>)<29>0R
(l<>(<28>;\<13>2?EMIT!?<00>o?CR!?<02>[?TYPE
!?<04><00>?DEL!?<06><00>?PAGE!?<14><00>?AT!?
<EFBFBD><00>?
AT?!? <0C><00>? -;/<18><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><15>,"z<15><18>
/
r-<2D>,;\y+<2B>j=<3D>=,=<3D>(<28><08>0(L;<08><17>';\<13>
<CLEARy+N <20>}H=L;\<13><00>=(FORGETy+<2B>{(
<EFBFBD>3 is symbolx<H=\<13>>FORGETy+"/<2F>/$"
<19>3 protected<65>*<2A>{(<28>Q*x<00><17> >\<13>&
>EMPTYy+/$"}H=/2"0;\<13><00>>SAVEy
+N }H=%"<08><08><17>"<08> <00>af<<3C> a
<EFBFBD>*a<17>x<1B><>9x<1B><>\L<<3C><05><07>$<00><10><><18><04><06>*H<>
<04><00>+<2B><01>$<24>,<2C>$<24>-,<2C>5<EFBFBD>,E*<2A>-<2D>+<2B> <0B>,E&<26>-<2D>'l=<3D>
(E,<2C>)<29>-<2D> <0B>,<2C>$<24>,<2C>$l&=<3D>,<2C>$<24>-<2D>%l<><l<>y+%"<08>
<08><00>PZ<17>J<<3C>x<1B><>\y+}#<17>"}<12><16>(
<EFBFBD>"<08>N <20><18><00>"#"<08>;<08>x"xN<><4E>\
y+%J<<3C>,<2C><> <00>"z<15><18>
/r
<19><13>6<EFBFBD><16>;
[<08>;"<08><08>8<EFBFBD>6"<08>;<08>6;\<13><00>;
FREEBUFFERy+
<EFBFBD>;"<08>;<3B>6<EFBFBD><19>.<00>;"<08>8<EFBFBD>6<EFBFBD>"<08>;"<08><16>"x
<1B><><EFBFBD>;""<08>;<08>6<EFBFBD>;[\<13>J; ALL-BUFFERSy+<2B>;
"<08>;<3B>;"<08><19><1B><>\y+J
 1\y+Q*<2A>#<19>{(
\y+<2B>(%"P<12>"<08><08>^<00>PZ<17>P<12>"P<12>
<08><17><19>aQ*1<16>.{(<28>Z<>a;<<3C>
qg<EFBFBD>fWd<EFBFBD>\<13>wg WRITESECTORy+yd
<0F>e<EFBFBD>$
b-p:13,0<> ;fWdyd

<EFBFBD>eqg;fWdyd
<0F>e<EFBFBD>$u2:
13,0,<2C> ;f6g;fWdr6<72>f\<13><00>gDISKOPENy+yd

<EFBFBD>e
#fWd<57>f\<13><00>g DISKCLOSEy+yd

FeWd\<13>
h1541R/Wy+<2B><08>3no filezhd,<1F>ud;P[
<EFBFBD><1B><00>5<EFBFBD>$beyond capacity<74>dh<><00><08>d<13>
<17>))Z<17> <0E><><EFBFBD>.<00><08><15>
,g<>gx,g<>g
Pqg<71><15><12><08><00><1D><><EFBFBD><EFBFBD>z<15>#h\y+
<18><><19>
<18><>
<19>-<19><00>#<17>\<13>2hINDEXy+Fh<46><68>!`?F
t5:#
%<25>?<3F>><3E><00><1D><><EFBFBD><EFBFBD>\<13><00>hFINDEXy+
h<EFBFBD><00>dFh<46><68>1`?Ft5<74> <20>)),g<>gP#
%<25>?<3F><12>><16><00><1D><><EFBFBD><EFBFBD>#h\<13>iINK-POT*<2A><>
<00><><00><> <0F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><00>iC64FKE
YS<EFBFBD>i<EFBFBD>J0 <09><>i<EFBFBD>]l<>il<69>a<EFBFBD><00>iC64INITAiآ<69><D8A2><EFBFBD>>
<EFBFBD> <20><><EFBFBD>?<3F><>><3E> <20><><EFBFBD>?<3F><><EFBFBD>i<EFBFBD><19><><EFBFBD>i<EFBFBD><15><><EFBFBD>i<EFBFBD>@<05><><EFBFBD>@<05>
<EFBFBD> <04><13>xl<78>a<EFBFBD>><3E><>j<>j<>jh<6A>h<><68>h<><00>l<><6C><EFBFBD>?<3F>@
؍><3E><>i<EFBFBD><69><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?<3F>x`<60><00>ic(64y+$<24> <20><18>3
C)
missing"/C)<29><19><1B><>\<13>.jbC)y+\<13>yjc(16y
+\<13><00>jFORTH-83y+\{<00>j ASSEMIBLER=-g
k<EFBFBD>-{PUSHA<48>+{<00>jPUSH0A<30>+{<00>jPUSH
<EFBFBD>+{<00>jRP<52>+{AjUP<55>+{LjSP<53>+{Wj
IP<49>+{<00>jN<>+${<00>jPUTA<54>+{<00>jW<>+{
kSETUP<55>+S{kNEXT<58>+ {kXYNEXT<58>+<2B>a
{)kPOPTWO<57>+<2B>{8kPOP<4F>+<2B><12>><16><00><1D><><EFBFBD><EFBFBD>
#h\<13>iINK-POT*<2A><><00><><00><>
!#<00>G(14):<3A> switch to lower case;
<00>750:<3A> Seitenanfangx<00>" ultraFORTH 83
ist ein<00><00>" Public-Domain-Programm.}
(<00><00>2<00>" Es darf (und soll) zu private
nH<<00>" Zwecken weitergegeben werden.P
f<00>:<3A><00>p<00>" Die komerzielle Verwertung
z<00>" Beha!

<00>(4112)<00>l<EFBFBD>a<EFBFBD>l<EFBFBD>al<06>
<EFBFBD>6<00><00>{<7B>kqdcB3Pj
!
o*ultraFORTH-83 3.59-C16+
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><0E><1D><><EFBFBD><EFBFBD><18><0E><02><0E><03><><EFBFBD><EFBFBD><0F><> END-TRAC
E<EFBFBD><11><><EFBFBD><13><0E><08>Ʌ<15><02>l wRECOVERo*ȅȅ
<1D>PFFl<>+<00>NOOP <00>ORIGIN<49>+<00>
S0],<00>R0],
<00>DP], GOFFSET],
QBASE],<00>OUTPUT],<00>!INPUT],
<00> ERRORHANDLER],VOC-LINK],<00>
UDP],<2C>*SP@=<12><07>$<24><14>%<25>$<24>8<><02><07>F<14><01>
<EFBFBD><00>l5SP!<21><12><07><><07><14><07>l _UP@
<EFBFBD>lg<00><12>UP!<21><12><04><07><01><><07><00><00><01><18><02><07><02>
l <00>RP@<40><12>lg<00><12>RP!D<12>l<><00><12>>RR
<12>8<><02><02>F<03><07><02><07>l<>K<12>R><3E><12>8<><02><07>
!F<14><02><07><02><07><18><02><02><02>l <00>R@<13>8<>
<EFBFBD><07>F<14><02><07>l<13>RDROP1EXITf<13><02>
<0E><02>l=UNNEST^<13><02><0E><02>ls?EXI
T<EFBFBD><13><14><18><02><07><02>(P<>l <00>EXECUTE<54><13>
<EFBFBD><1C><07><1D><18><02><07><02>l<00>PERFORM<52>+"<08>\
<00>C@L<13><07>$<24><07>%<25><00><07>$lEC!<21><13><07>$<24><07>
%H<><07>$<24><>!<05><04><07><02>l <00>CTOGGLE<4C>+<2B>J
<EFBFBD><16><08>\<13>@$<08><07>$<24><07>%<25>$<24><07>$l<00>!=
<EFBFBD><07>$<24><07>%H<><07>$H<><07><01>$l<><13>7+!]<08><07>$<24><07>%H
<EFBFBD><18>$<24>$H<><07><01>$lovDROP<4F><00>SWAP<41><08>
<EFBFBD><EFBFBD><03><07>$<24><><07>$<24><01>H<><00><07>$<24><07><07><>$l<00>DUP
<EFBFBD><08>8<><02><07>F<14><03><07><01>H<><07>l<00>?DUP<55><08>
Pl l<>VOVER<45>!<08>8<><02><07>F<14><04><07>H
<EFBFBD><07><01>l <00>ROT<15><03><07>%<25><01><07><03><07><05><07>$<24>%
<EFBFBD><07><01>$<24>H<><07>%<25><07><07><04><07><07>%<25><07>l -ROT
<EFBFBD>+\sNIP<49>+<2B><08>\<00>UNDER<45>+<2B><08>\
<00>PICK<43>+q<17>;%"\<00>ROLL<4C>+<2B>P<12>
;<12><08><17>q<17>! <20>\<00>-ROLL<4C>+P<12>;<12><08><17>
<08><17><13><1E><1F>q<17>%;\<00>2S!WAP<41>+P
<15>\<00>2DROP<4F>2DUP<55>+<2B><08>\ +
'H<><07><07><07><><07><03><07>l<> !ORdH<><07><07><>
<EFBFBD><07>l<> =AND<4E>H<>1<07><07><><07>1<07>l<> y
XOR~H<>q<07><07><><07>q<07>l<>!<00>-<2D>H<>8<><07>
H<><07><01><07><03>l<>!<00>NOT<4F><18><><07><07><><07>l !
<EFBFBD>NEGATET8<><38>"IDNEGATE<54>H8<48><38><07>H<><48><07>
!<07><><07><07><01><><07>l
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><07>$<00><10><><18><07><07><02><14>
<00>`"YD+%<17> H<><18>&<26>H<><07>'<27><07><07>$<24><07>
<EFBFBD><07>%<25>l #1+s<17><18><07>l<00><07><07><00>l #
l2+<2B><17>P<>#<00>3+~<17>PS<50><17>PM<50><17>PG#<00>
1-<2D>8<><07><01>l<00><07><07><00>l #<00>2-<2D><18><>$<00>
TRUE<55>+<2B><>$<00>FALSE<53>+$G"-1A$U!0O$
<00>1<>+$! lten wir uns aber vor!!! <09>
<EFBFBD>7 <09><00> 640:<3A> seitenvorschubx <09><00>" Zum L
ieferumfang gehoeren<00> <09><00>" zwei beidseit
ig beschriebene<00> <09><00>" Disketten und ein
200-seitiges<00> <09><00>" Handbuch.<00> <09><00><00> <09><00>
" Beides zusammen kostet ca. 50.-DM<00> <09><00>
<EFBFBD><00>" Forth besitz!
t sein eigenes3
H
<EFBFBD>" Diskettenverwaltungssystem, daher[
R
<EFBFBD>" bitte immer die ganzen Disketten<00>
|<00>
" kopieren und nicht nur die Files!!!<00>
<EFBFBD>
<00><00>
<EFBFBD><00> 640:<3A> seitenvorschubG
<EFBFBD><00>" Die
Disketten enthalten:M
<01><00>
<01>" Seite 1
-- System-Diskette <01>" - ! File c16u
ltraforth3.6. "<01>" - File c64ultraforth3
.6d ,<01>" - File c16demoz 6<01>" - File c6
4demo<00> @<01>" - Hilfstexte & Kontaktadress
en<00> j<01>" - Diskettenutilities<00> t<01>K ^
<EFBFBD>" Seite 2 -- Quelltext des SystemsT <0B>
<EFBFBD>640<00> <0B><01>" Seite 3 -- Forth-Quellexte
!  <0C><01>" - 6502-Assembler+ <0C><01>" - Full-S
creen-Editord <0C><01>" - Debugging Toolsy <0C>
<01>" - Multitasker<00> <0C><01>" - Drucker-Treibe
r<00> <0C><01>:<3A>:<3A><00> B<01>" Seite 4 -- Grafik/Tap
e<00> L<01>" - Grafik (nur fuer C64)W V<01>
" - Kassettenversion<00> <0C><01>" - Supertape (
nur fuer C!
16/+4)
<EFBFBD><01>640#
<EFBFBD><01>" Hardwa
reanforderungen:)
<EFBFBD><01>s
<02>" C64/SX64
mit Diskettenlaufwerk~
<02>"
oder Kassetttenrekorder<00>
<02>:<3A>" ode
r":<3A><00>
&<02>" C16/C116 mit min. 32kB RAM
<00>
0<02>" mit Diskettenlaufwer
k<00>
:<02>:<3A>" oder":!<0E><00>d<02>" C16/C116/P
lus4 mit 64kB RAMdn<02>" mi
t Diskettenlaufwerk<00>x<02>" o
der Kassetttenrekorder<00><0E><02>:<3A><00><0E><02>" Vie
l Spass mit ultraFORTH83 /clv25sep87<00><0E>
<EFBFBD>C<0E><02> ****************X<0E><02> ende der s
eite<00><0E><02> ****************<00>!<0F><02> <0F><02>
"":<3A> positionierenn<0F>
<02>"**** (C) 1985,1987 bp/ks/re/we/clv ***
*<00><0F><02>"*Mitglieder der:<00><0F><02>"*FORTH-Ges
ellschaft e.V. c/o R. MertinsAF<02>"* Ant
ilopenstieg 6a,D-2000 Hamburg 54 *<00>Z<02>"
>>>>bitte eine beliebige Taste<<*******
<00><10><02> e$: <20> e$<24>"" <20>740<10><02> **********
******4<10><02> anfang der seitek<03> *****
***********q <03>z<03>"<22>"<00> <03>"
ultraFORTH 83 - rev 3.8<00>*<03>:<3A><00>4<03>R
TH83 /clv25sep87<00><0E><02>C<0E><02> ************
****X<0E><02> ende der seite<00><0E><02> *********
*******<00>"<00>2<>+$<00>3<>+$<00>4<>+
$ON<4F>+A<17>;\$OFF<46>+O<17>;\%<18>C
LIT:<18>8<><02><07>F<14><0E><07><><07>P<02>l %1<18>LIT_
<18>8<><02><07>F<14><0E><07><0E><07><18><02><0E><02>l %wGLI
TERAL<EFBFBD>+<2B>]<00>_<16>
<00>!]:!d<13>!8m!\&<00>0
<<3C><18><03><>$<24><>l&<00>0=I<18><07><>P<EFBFBD>&BUWI
THIN<EFBFBD><18> <17><01>E$<24><07>"REVEAL<41>+<2B>'<27>
<00>U,"
;\hL'IRECURSIVE<56>+U'\<13>+<2B>'<27> <00>Jb<16>
<EFBFBD><13>\h<00>' IMMEDIATE<54>+8@<40>'\h(RESTRIC
T<EFBFBD>+8<18><>'\i*(
CLEARSTACKo(<28><14><04>H<><04><14>l
i@(HALLOT<4F>+<2B>"<08><08><16>;<12><17><15><16><08>;
<EFBFBD><17><15><08>[ m(<28>;\i<00>(HEAP<41>+<2B>"<08>\i<00>(
HEAP?<3F>+<2B>(}<12>\<13>+<2B>!<21><08><16><08>(".<2E>b\<13>+
c&"A<17><19><13>c&[\o*g=&NUMBER?<3F>+<2B>2<>
<08> <20>&;c&OP88&g&'&8-<2D><1C>9A
P&g&'&&<26> <00>;&g&'&<26>%Gg&<26>%X&&y&'&
<EFBFBD>%G<18><1B><>3&D&Gg&c&%&y&'&<26>T<>\g<00>&NUMB
ER<EFBFBD>+<2B>&<26>G<18>3?<3F><18>f<>\h<00>'LASTo*<00>+<2B>'
"<08>\h<00>'HIDE<44>+<2B>'<27> <00>"U,";\h<00>'
"ACCUMULATE<54>+<2B>P<12><08>"M<1D><15>"M#<17>\
eP%CONVERT<52>+q<17> <20>%<25><00>%<25><1B><><EFBFBD>\<13>+<2B>&"
G\<13>+<2B> A<17>&[\<13>+<2B><17> \f<00>%DPLo*<2A><><EFBFBD>+<2B>
9 <16>9O\<13>+<2B> 9<13><08><12><00><15>c&"q
<EFBFBD><08><13>A\<13>+8&<26><1C> 8
Ad8$<24><1C> 8A
d8H<><1C> 8Ad8%<25><1C><00>AdO\<13>+8
,<2C><08><19>8"dH$<24>(."<22>+<2B>$<24> <20>?\dX$B."<22>+<2B>
!<21>$<24>$\d<00>$a(<28>+8)$ \d<00>$b.(<28>+8)$<24>?
\d
%a\<5C>+<2B>!"6<>q6s<1E>!;\d%b\\<5C>+<2B>d
<EFBFBD>!;\d;%\NEEDS<44>+j$/<2F><15>#%\dl%HEX
<EFBFBD>+8<10>;\d<00>%DECIMAL<41>+8
<EFBFBD>;\e<00>%DI
GIT?<3F>+80<><16>8 <09><19>8<18><><16>8 <09><19><00>"
<08><08><19><08><13>O\e<00>%
" b<00>"SOURCE<43>+<2B>!"
<EFBFBD><08><00>:<3A>dd "~!"\b<00>#WORD<52>+<2B>##\b$
PARSE<53>+P<12>#<23>!"<08>"<22><08><08>b"P<12><08><16><08><12><19><16>
![\b$NAME<4D>+y4$<24>"d\cc$STATEo*c
x$eASCII<49>+y4$qJ`$"<08><00>\c<00>$,"<22>+8
"$!<21>q,!} \c<00>$<24>"LIT<49>+<2B><12><12><15> %PP
\c<00>$<24>("<22>+<2B>$\c<00>$A"<22>+<2B>!<21>$<24>$\" <20>"<22>l
>L"
CAPITALIZE<EFBFBD>"<22><07>$<24><07>%<25>$<24>&<26>D&P<05>l H<>
$ <20>"<22>$l##<23>*<2A><03><07>$<00><10><><18><>!<21>&<26>&<26><>!<21>'<27>'8
<EFBFBD>$<24><>!<21>$<24>%<25><>!<21>%<25>
<EFBFBD><07><>!<21><07><>!l<>#<23><04>$%<25>=<3D>&Q
P<11>&P<02>'<27>$PF%F$ls#<23>&<26>(<28>'<27>)<29>&Q<14>&P<02>'<27>$P
F%F$(<28><14>*<2A>$%P<>8<EFBFBD><02>&<26><07><>!H<>'<27><07><>!<18><04><07>
<EFBFBD><02><14> <0C><04><07>$H<><04><01><07>%<25><>*<2A>$<24>(HF*<10><> <20>$<24>l
";<00>!>INo*;<00>!BLKo*;<00>!SPANo*
;<00>!TIB<49>+<2B>!"\;"QUERY<52>+ "8p<>@""
~!;<08>!%<18>!%\<"SCAN<41>+P<12><08><1B><00>J<13>
<EFBFBD><00><17>q<17><08><1B><>9\<;"SKIP<49>+P<12><08><1B><00>
J<13><19><00><17>q<17><08><1B><>9\<<00>"/STRING<4E>+<2B>
1<><15>%z<15>\Ia<49>I{<7B> I)<29>I[<5B> <09>`=<00>"
CAPITALX"<22>"<17><>$<24>'<27>
<EFBFBD>(HP<48><50>)JP<4A><50>&<26><06>(HJP<4A><50>
l :P HERE<52>+L"\:!PAD<41>+!8b%\:
!ALLOT<4F>+L[\:$!,<2C>+!;<08>,!\:6!C
,<2C>+!<21><13>,!\:h!<21>COMPILE<4C>+<2B><12><08>P":!\
;[!#TIBo*;<00>!>TIBo*<2A>!
"<07>P<12><1E>\7JCMOV
E<EFBFBD><1F> <17>D$P F%<05>l <00>(<28>&HP<48><50>)<29>'l<>7<00>
CMOVE># <20> <18>%<25>'<27>'<18>%<25>)<29>)<29>%<25>$<18><05><>(<28>&<26>P
<EFBFBD>F'F)F%P<><50>l 7 MOVE<56>+P0<19><00>! d
<EFBFBD><12>\8t PLACE<43>+<2B>P<15>q<17>[ <20>\8<00> 
COUNT<EFBFBD> <20><07>$<18><01><07><07>%<25><00><07>8<><02><07>FlT8<00>
ERASE<53>+OW \9<00> FILLY <20> "<14><01>$<24>%<25>
<EFBFBD><11>\<13>&<26>H<>%<25>H<>$<24><07><01>'l5<00>M/MOD<4F>+<2B>
P<12><><EFBFBD><08><18><00>%<16><08><13><18>R<16><08> <00>%
<16><08>9\52/n<1F>
<EFBFBD>ʑ<07><07>l6g/MOD
<EFBFBD>+Pf<><66>\6^/<2F>+<2B><1F>\6<00>MOD<4F>+<2B><1F>\
6<00>*/MOD<4F>+P<1E>\6<00>*/<2F>+<2B><1F>\6<00>
U/MOD<4F>+O<17><08>\6<00>UD/MOD<4F>+PO<13><1E>
" %&$<24><18><07>'<27>'H<><07><>&<26>&<26><06>%P<02>$JP|<7C>'<27>H<>&<26>
<07><01>$<24><07>%<25>l 3GM*<2A>+<2B><08><18>P<12>R<16><08>
<EFBFBD><18>
R<16><12>PM<1D><12><00>\3<00>*<2A>+M<1D>\3
o2*<2A><1E>
<EFBFBD><07>*<2A>l <00>+A<17>3division over
flow\4]UM/MOD<4F><1E><07>)<29><07>(<28><18><02><07><02><14><07>
%<25><07>$H<><07>'H<><07>&<26><18>*8<>%<25>)<29><>$<24>(<28>&*<2A><04>$<24>%&
'&&&%&$JP<4A>"
HILE<EFBFBD>+<2B>+<1C><17>!<21>T]<18><><EFBFBD>\<00>+
<1C>]<18><><EFBFBD><19>
<00><08><1B><1B><>\0<00>FREPEAT<41>+<2B>+
<EFBFBD>!<21>\0EUNTIL<49>+<2B>+<1C>!<21>\15BDO<44>+
<EFBFBD>!<21><>T<1B>\1mC?DO<44>+<2B>!<21><>T<1B>\1`DLOOP<4F>+
<EFBFBD>+<1C>!<21><><EFBFBD>!<21><><EFBFBD>\1<00>E+LOOP<4F>+<2B>+<1C>!)<1B>!<21><><EFBFBD>
\1<00><1D>LEAVE<56>+<2B><><EFBFBD><12><17>"%P\2<00>UM*O
<EFBFBD><07>$<24><07>%H<>&<26>'<27>'&&&" OLVE<56>+!<21><08><16>;\.
<00><MARK<52>+!\.<00><RESOLVE<56>+!<21>:!\.
?PAIRS<52>+<2B><16>3 unstructured\Ih<><68>lmh<>
<00><>8<><02><07>F<14><><01>Ȣl/"CASE?<3F><1C> 
<EFBFBD>$AP <09>%QPl<><18>lj0<00>BIF<49>+<2B>!<21>T<1B>\0<00>
DTHEN<45>+<2B><><EFBFBD>+<1C>\0<00>DELSE<53>+<2B>+<1C>!<21>T<1B>
<EFBFBD>A\0<00>EBEGIN<49>+<1C>\0OEW" <0C>l+<00><>
<EFBFBD>(LOOP<4F><50><18><01><02><02> <0B><02><00><02>l <00><05><02><0F><><02><0E>
l +<00><><EFBFBD>(+LOOP+<18><07><02><02><07><02><02>q<14><18><02><07>
<02>(Dl , <1B>Iu<1B><00>8<><02><07>F<18>HH<48><02><07><>
HH<48><02><01>l ,o<1B>J<EFBFBD><1B>PR-{<1B>BRANCH<43><18><0E>
<0E>$<24><0F><0E><0F>$<24>l -<00><1B>?BRANCH<43><1B><14><18><02>
<07><02>(<28>Kl<4B>.<00>>MARK<52>+!O:!\.L>RES
"
<EFBFBD><08>\)BMIN<49>+[<19>\)<00>MAX<41>+<19>
\)<05>UMAX<41>+0<19>\)<17>UMIN<49>+<16><19>\
)*<2A>EXTEND<4E>+<2B><08>\)=<3D>DABS<42>+f<><66><00>\)
p<>ABS<42>+f<><66>R\<13>+9<13><12><17>PP<12>PP
\*<00><><EFBFBD>(DO<44>+<2B><08><16><>\*<00><><EFBFBD>(?DO<44>+<2B><08><16><08>
<EFBFBD><EFBFBD><EFBFBD><12>"%P<12>\*<00><>BOUNDS<44>+<2B>%<16>\*H<>
<EFBFBD>ENDLOOP<EFBFBD><EFBFBD>"%<25>
<EFBFBD>E&<26><07>'<27><>l<EFBFBD>'S<<19><07>$<24>
<07>%<25><18><02><07><02><14>%q0<><30>E$<24><07>%l<>'<00>U<2<19>
<07>$<24><07>%<25><18><02><07><02><14>E$<24><07>%<25>l<>l<>(+><3E>
+<2B>\(w0><3E>+R<16>\(<00>0<><3E>+G<18>\(<00>
U><3E>+<2B>0\(<00>=<3D>+<2B>G\(<00>D0=<3D>+bG\
(<00>D=<3D>+<2B>#<17>\(<00>D<<3C>+<16><16> [<19>
<EFBFBD><15> 0\<13>+9<13>#<0F>(<28><08><1F>(<28><08><16>'[U'\
<13>8<><02><02>F<03><0F><02><0E><18><1C><03><0E><><1C><0F><18>h<><68>
lm<1C>+<2B><12>'" +;\j<00>(EDOES><3E>+<2B>! )8lm!<21>!<21>
(\<13>+<2B>8<18>_8<18><><19>\<13>+!8<18>_8<18><><19><00>
<EFBFBD>q!<21><08>q! <20><17>'[<08>,!\k)?HEADo*k
<00>)|<7C>+)"<08>A);\l<00>)WARNINGo*<00>+<2B>)
"<08><13>'"U,"z.<2E><15><00>4<EFBFBD>'"<+<2B>$#orted\<13>
<EFBFBD>8DISKERR<52>0{8<><00>8R/W<>0<EFBFBD>h<EFBFBD>+<2B><08>"<08><18>j<00>
<17>"q<17>32<>2<>3<EFBFBD><08><17><08>"<08><17>"OL8
<EFBFBD><00>$write <20>8<EFBFBD><1B><>8<18><><08>q<08>\<13>+<2B><17>
<18>%\<13>+<2B>*92<>2<>3P<12>Z"%<16>8%
z<15>L8<4C><00>$read <20>8<EFBFBD>Y<><59>\<13>+-7<>"<08>
"<08><08>"A<17><19><1B><>17<31>6<EFBFBD>P8\<13>+<2B>P;Z
#l c7P<37><50>(<28>*<2A><01>(<28>*<2A>/7<>(<28>07<30>(<28>(<28>/7<>)<29>07
l}7<>+<2B><08>"<08><08>"<08>\<13>+<2B>Z"%<16>-7"Y7<59>
9 -7"8%dPZ"%P-7"<08>"<08>G
<EFBFBD>
99<13>d<13><08><12>PPY7G<18><00><15>R<><52>
";-7"<08>;-7;99<13><1B><>\<13>77(DISKER
R<EFBFBD>+<2B>$error ! r to retry j@<40>8r<><19>8R<>
b<16><16>3ab#<01><00>d<13>"<08><00>6<EFBFBD><1B><>}<12>;\
<13><00>6UNLOCK<43>+<2B><08>6%\<13>8<EFBFBD><05><04><><00><05>l<EFBFBD><04><06>
<EFBFBD>H<><04><14><01><07><02><07><03><18><02><07><02><14>l<><12>Q6FIL
E],<1C><00>7PREVo*o*<00>&7B/BUF<55>+<04><02>(Y"
PH<>P<>`t7<74><03><07>$<00><10><><18><04>&<26>&H<><04>'<27>'<27>/7<>
(<28>07<30>) c7P<1D><18><02><07><02><14><01><18>(<28><07>)<29><00>lf<13>
(<28>*<2A>)<29>+<2B>*<2A>(<28><01>*<2A>)(P#+O<17><08>5\<13><00>5D.<2E>+O
<17>5<EFBFBD>4\<13><00>5.<2E>+f<>C5\<13>O5U.<2E>+OC5\<13><00>5
.S<>+;<12>"<08><08>8 1<>Q<EFBFBD><51><EFBFBD>s"<08>5<EFBFBD>)<1B><>\<13>
<EFBFBD>5C/L<>+)<00>6L/S<>+<00>$6LIST<53>+<2B>3;<08>$S
cr <20>3"<08><08>d<EFBFBD><1F>5<EFBFBD>$Dr <20>dS5*6O<17><>.8?<3F><00>
<EFBFBD>?s<1B><17>5<EFBFBD>4<EFBFBD>3"<08>:s6s%6<><17>4<EFBFBD>?<3F><><EFBFBD><EFBFBD><EFBFBD>?\<13>
06PAUSE <00><00>6LOCK<43>+<2B>"}<12>#<03>4SPACES
<EFBFBD>+O<17><><00>4<EFBFBD><34><EFBFBD><EFBFBD>\<13>+!<21>\<13><00>4HOLD<4C>+AN4[
N4"<08>\<13>X4<#<23>+N4N4;\<13><00>4#><3E>+ N4"N
4<EFBFBD><08>\<13>5SIGN<47>+<2B><18>8-<2D>4\<13>5#<23>+<2B>
"S8 <09><19>8<18>%80%<16>4\<13>15#S<>+5
5<16><19><1B><>\<13>z5D.R<>+z<15>w<><77>4_5 55<15>
<0B><><08><16>4<EFBFBD>?\<13><00>5.R<>+<2B>f<><15>5\<13><00>5U.R<>
#_<00>3(ERROR<4F>+<2B>3<EFBFBD>4!<+<2B> <20>?<3F>4p?<3F>!"<08><08>
<EFBFBD>3;<08>!"<08>3;m3\_<00>3<EFBFBD>(ABORT"<22>+<2B>$<24><08>Pm
(<28><12>d<13>\<13>+<2B>$<24><08><12>d<13>\_<00>3FABO
RT"<22>+<2B>!<21>3<EFBFBD>$\_*4FERROR"<22>+<2B>!4<>$\`?4BL
<EFBFBD>+ `t4 -TRAILING<4E>4<EFBFBD> <17><07>&<18><07>%<25>'<27>$<18><13>
<EFBFBD>&I <20> HP<02>%<25>h<EFBFBD>%lm<1C>P<EFBFBD>F'F%<10><>lj<1C>_4SPACE
<EFBFBD>+y4<79>?\<13>#![<08>!%2\]<00>2RDEPTH<54>+B"<08>
<12><17>l\]F2DEPTH<54>+;<12>"<08><08>l\<13>+`$"
<EFBFBD><00>$
compilingd<13>$ ok\^<00>2(QUIT<49>+2
<EFBFBD>?"<22>0<EFBFBD>2<EFBFBD><1B><>\^3'QUIT<49>0$3^83QUIT<49>+B
"B<12>0@3\^f3 STANDARDI/O<>+]*<10><18>\^
]3'ABORT<52>0<EFBFBD>^{3ABORT<52>+m(<28><11>3<EFBFBD>3m3\_<00>
3SCRo*_<00>3R#o*#<06> 8<><07><04>$H<><14>P <09>
<EFBFBD><11>1\<13><14>EH<><04><14><01>l <20>A<17>3 stack emp
ty\\<00>1.STATUS<55>0<EFBFBD>o*<2A><12>;\\<00>1<EFBFBD>PUSH<53>+
<EFBFBD><12><08>P"P 2PP\\2LOAD<41>+<2B>G<18><13>!2
<EFBFBD>!;<08>!2<>!%2<>0\]62+LOAD<41>+<2B>!"%=2\]
]2THRU<52>+q<17><08><>
s=2<><32><EFBFBD><EFBFBD>\]<00>2+THRU<52>+q
<17><08><>
s<1B>2<EFBFBD><32><EFBFBD><EFBFBD>\]<00>2c--><3E>+<2B><17>#<07>/`$\<13>
+A<17>3Crash\z<00>0DEFER<45>+<2B>)]E0:! )<29><02>hH
<EFBFBD><1C>ȅ<1C>lzU0(IS<49>+<2B><12><08>P";\<13>+"]
<18>/"<08><08><19>]Y/"<08>b<16><16>3 not deferred\z
<00>0bIS<49>+\/<2F>1,+`$"<08>
<00>!1:!d;\<13>+<2B>28
 [<19>3 tight stackU'<27>'<27><00><08>(<28> +<2B>
<18>\>A<17>3dictionary full\[b1?STACK<43>1
#<14><1C><00><0F>l w<00>/
>INTERPRET<45>/ 0xL/NOTF
OUND<EFBFBD>00x<00>/
NO.EXTENSIONS<4E>+4Haeh?\x<00>
/ INTERPRET<45>+Y/\<13>+<2B>1j$/<2F><08><00>_<16><00>
Y/<2F>3 compile only<6C>/<2F><13>&G<18><00>/Y/\<13>+<2B>1j$
/<2F><08><00><19><00>Y/:!Y/<2F>/<2F><13>&<26><08><00><19><00>
<08><18><18><00>/Y/\y0a[<5B>+] 01<>/`$%\y<00>0
]<5D>+][01# <09>&)8<>$<24>$<24><02>%<25>&) P <09>$<24><07>%l<>.<2E>
$<24><07>$<24><07>8<><02><07>F<14>&H
0<05>i<EFBFBD><69>H<EFBFBD><48><03><>$<24><>
<01>l vr.FIND<4E>+<2B>,<2C>"<08><08>"<08><19><00><17>"
z.<2E><00><15>.d<13><08>,<2C><17><19>
<00><08><17><1B><><EFBFBD>O\v
/'<27>+j$/G<18>3Haeh?\vx/I[COMPILE]<5D>+\/:!
\v<00>/C[']<5D>+\/<2F>\v<00>/ NULLSTRING?<3F>+<2B>JG
<18><08><00>\H<18><1C><02>H#
H<EFBFBD>+<2B>-<2D>--<2D>-\s<00>- D
EFINITIONS<EFBFBD>+<2B>,"U,;\<13>+"<08>J*<+\sR-OR
DER<EFBFBD>+<2B>,<2C><>s<1B>-]<18><>)<1B><><EFBFBD><17>4U,<2C>-\s<00>-WOR
DS<EFBFBD>+<2B>,""<08>8?G_<16>p?<3F><08><+<2B>4<EFBFBD><1B><><EFBFBD>\t
".(FIND\.<2E><03><07>$<00><10><>&)<1F>(<28><00>$<24>H<EFBFBD>$<24>%<25>$$
P<07><01>l<>H<>$)E(P<><18><02>$<24>)<29><00>%<25>*<2A>(<28>&Q)PK<50>P
<EFBFBD><EFBFBD><03>*<2A><07><>)<29><07><>l<><18>.<2E><07>$<24><07>%<25>$# q<00>,
CURRENTo*qK,CONTEXT<58>+<2B>,<2C>"%<16>\<13>+<2B>,
<EFBFBD><17>,\q<00>,ALSO<53>+<2B>,"8
[4Vocabulary s
tack full<6C>,"<08><17>,[<08>,;\q<00>,TOSS<53>+]<18><><EFBFBD>
,[\r;-
VOCABULARY<EFBFBD>+<2B>)O:!O:!!%":!%
; )l<>(<28>,;\rp-FORTH<54>-<00>jr<00>-ONLY
<EFBFBD>-<00>@<40>- )l<>(O<17>,;<08>,;-\r<00>- ONLYFORT
# U'\o<00>+CONSTANT<4E>+<2B>):! )<29>8<><02><07>F<14><02>
<1C>H<><1C><01>l oM+VARIABLE<4C>+<2B>)<29>,!\p<00>+
UALLOT<EFBFBD>+<2B>0"%8<18><><19>3
Userarea full0"
<EFBFBD>0[\p,USER<45>+<2B>)<29>,m! )<29>8<><02><07>F<14>
<02><18><04><07>H<EFBFBD><05><01>l pj,ALIAS<41>+<2B>)<29>'"<08>J
8 _<16> ]<18><>,!<21>8 <20>'<27>*;\q~,VPo*
#
E<EFBFBD>+%"<08><08><18><16>r*<2A><08>
z d<13><1B><><EFBFBD>\<13>+<2B> 8_%\nB*NAME><3E>+<2B>
<EFBFBD>*<2A>J8 _<16>"\n+>BODY<44>+<2B>\n$+.
NAME<EFBFBD>+<2B><08><00><08>(<28><00>$|<7C> 8_<16>?<3F><00>$?
??<3F>4\o4+CREATE:<3A>+<2B>)<29>'U,"<08>,;<08>0O\o<00>
+:<3A>+<2B>+ )<29>8<><02><02>F<03><0E><02><0F><02><18><02><0E><><1D>l
o<00>+A;<3B>+O+<1C>!\<13>0#exists p?\l<00>)CR
EATE<EFBFBD>+!<21>!":!U,"":!j$J<13><08>8 <20><18><16>3 i
nvalid name!<21>';q,!<21>))"<08><00>)[<08>5)
:!<21>(8 <20>'5)L;<08>g)<29>U'O:! )l)t*<2A><07>(<28>
<07>)<29><18><02><07><02><14><07>&<26><07>'&Pl<><18>&<26><07>%<25>&<26><07>$
%Pl <00>$<18><02>$<24><02>%<25>$h8)<1F>$<24>$<24><02>%<25>) <20>
<EFBFBD>$h<>
$<24>$ȅ%<25>$E(P<><50>%E)P<>l<EFBFBD>nY)>NAM#FF<46>i<EFBFBD><69><EFBFBD> <0C>
<EFBFBD>
<EFBFBD>l <00>i#BSy3<00>i#CRy3
<00>iC64KEY
3<>i<EFBFBD>=pib#<23><><EFBFBD>i<EFBFBD>i$<1B>Di C64DECODE 3<>i<EFBFBD>#b#
<00>b#g/$<1B>i<EFBFBD>#b#
<00><1C>)$<1B><><EFBFBD><1D><1D><>s<1C>
O<EFBFBD><EFBFBD>f<EFBFBD>$<1B><00>i C64EXPECT 3<>)<1C><1F><1C>)<29>J b#
<00>g<EFBFBD>g #<23><><EFBFBD><$<1B>)jKEYBOARD<52>gMipi<70>i5j<35>y
jCON!<21>j<EFBFBD> l<><6C><18><02><07><02><14>K<EFBFBD>O<EFBFBD> <20><19>=$I<><49>
Reference in New Issue View Git Blame Copy Permalink