mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-01 06:41:37 +00:00
928 lines
170 KiB
Plaintext
928 lines
170 KiB
Plaintext
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>$ +Oa2b O<12>k1b OO <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 <00>l COMMODORE +<2B>#l$a )lFLOPPY +R#l$b alSETNAME +R<17><>R<17>$ +RR<17><><13><17><17>l$ +#l
|
||
PUSHAy+P{ <00>jPUSH0Ay+Z{ <00>jPUSHy+<2B>{ <00>jRPy+ { <00>jUPy+ { <00>jSPy+ { FjIPy+ { QjNy+$ { |jPUTAy+ { <00>jWy+ { <00>jSETUPy+<2B>{ <00>jNEXTy+ { kXYNEXTy+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><>$c wlBLOAD +<2B>lR<17>R<17>|i<>l$c <00>lBSAVE +<2B>lR<17>R<17><08>i<EFBFBD>l$c <00>lBLOAD: +<2B><17>#<23>l<EFBFBD>lEkbuh$c LlBSAVE: +<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<>I P<>`
|
||
*** supertape clv 2/10 ***
|
||
<00><><EFBFBD> <00><><0E><>I<07>lp<6C><70><EFBFBD>Z <1B><>Hإ<48>h<EFBFBD> <00><> `<60> <20><> Op <20><> <20>p<EFBFBD><70><EFBFBD>H<07>* xn<78><6E> J<><4A> <00>2 R<>H<EFBFBD>P<><50><EFBFBD>HD<48><44> <1E>?<3F><><EFBFBD><EFBFBD>><3E>Y2<03><>I?<3F><><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 xnl1n<31> ,<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><>Ey<>IE<49>Tl4n<34> <00>]<5D>^<5E> <20>n<EFBFBD>P<EFBFBD><50><EFBFBD><EFBFBD>]<5D>å^<5E><> <20>n <20>n<EFBFBD><6E>P<04><><EFBFBD>_ <20>n <20>n<EFBFBD><6E>Q_<51><01> <20>n <20>n<EFBFBD>_P<02>` <20>n <20>n<EFBFBD><6E><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<4F><70><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>0 F<><46> <0C>2H<><48><EFBFBD><10>
|
||
<EFBFBD>䫰<05><>l<EFBFBD>o`<60><>l p<> <00>*pH R<>I P<>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<5F>P<EFBFBD><50>`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><> <00><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>tapeFORTH83.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<><47> l~<7E><> <00>]<5D>^<5E> <20><05>P<EFBFBD><50><EFBFBD><EFBFBD>]<5D>å^<5E><> <20><05><><EFBFBD>_ <20> <20><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><78><EFBFBD>x <20><05>w`<60><><EFBFBD><02><> <00><03><><10> <09>`<60>* <20><03>c<03>_<EFBFBD>d<03>`<18>e<03>_<EFBFBD><5F><EFBFBD>f<03>`<60>©E <20> G<>l<EFBFBD><6C>**p2-ende*** e m
|
||
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 +R R<17><>$f sMSGALL +R<17>R<17><>$ <00>kRAMDISK<53>,<2C>x<EFBFBD>x<EFBFBD>kv 9sCMB>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<17>1|b R`<60>$ +<2B><08><13>$ +<2B>C3<43> <20>$w <00>sEXPAND +<2B><08><12>s<08><>)<29>$ <00><><EFBFBD><13>R<>b
|
||
R1Ws <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>sCOMPRESS +<2B><08><12>s<08><><EFBFBD>")<29>$<24> <00><><EFBFBD>C31b <00> &t<><74><EFBFBD>xsMs<4D><17><><EFBFBD><EFBFBD>&tO1$ RDy+ ! <00>tRDFIRSTZ) ! <00>tRDLIMITy+ <00> +<2B>t<EFBFBD>$ +Kt1Ktm$! <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>u1b <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>^BIT%] <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'sisiu<69>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><49>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><>.*<2A><>.*<2A><12> <20><15>B<12><12>D \1 CPUSH<53>+<2B>z<15>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
|
||
<1D>bjy<6A><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>
|
||
<00>?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><15><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> <00>]CMP%]<5D><> <00>]EOR%]@<40> <00>]LDA%]<5D><> M]ORA%] <00> Z]SBC%]<5D><> <00>]STA%]<5D><> <00>]ASL%]
|
||
|
||
^DEC%]A ^INC%]<5D> ^LSR%]a
|
||
|
||
(^ROL%]!
|
||
|
||
5^ROR%]<5D>
|
||
|
||
b^STX%]<5D> 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"<08>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?\<13>+<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<41>+/?<3F><>]\ <0C>SYS<59>+<2B><><EFBFBD>^<12>\/ N<>TOOLSv-6<>6<EFBFBD><36>l0 <1E>WCMP<4D>+<2B>S]<5D><08>]<5D>#S]F1<16><18> <00>$not <20>$changed<65>Z1<16> <00>9<EFBFBD>
|
||
1
|
||
<06><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 keyboard\<13>+,m"0mJ<13>\, <00>vCURLIN<49>+
|
||
<1B>b
|
||
a<>TRACE'<27>+;/<2F>'ŗ<13>\<13>+<2B>><3E>Z<17>5<EFBFBD>$:\<13>+<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><>\6 J<>K<>+<2B><><EFBFBD><EFBFBD>a<17><>\7 <00><>D<>+<2B><15><08><>P<17>4<EFBFBD><08><17><>
|
||
<00><>#J<><4A><EFBFBD>Z<17>4z#?<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<54>[` <00>\SEC<45>[8 <00>\SED<45>[<5B> <00>\SEI<45>[<5B> F\TAX<41>[<5B> Q\TAY<41>[<5B> |\TSX<53>[<5B> <00>\TXA<58>[<5B> <00>\TXS<58>[<5B> <00>\TYA<59>[<5B> ]M/CPU<50>+A) ! !<21>(l<>(<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>[<5B>]<5D><08>]<5D>_
|
||
_<EFBFBD>#!^-_\ <00>`2DEC<45>+<2B>S]<5D>\F<17>[<5B>]<5D><08>]<5D>_
|
||
_<EFBFBD>#^-_\ <00>`WINC<4E>+<2B>!^<5E>_
|
||
_<EFBFBD>#!^-_\ N`WDEC<45>+<2B>S]<5D>_
|
||
_<EFBFBD>#^-_^\ <00>`;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<>!;<08><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<>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\5 X<>NEST<53>+<2B><>""/Ā<08><><EFBFBD>\5 C<>UNNEST<53>+<2B><><EFBFBD><17><><EFBFBD>\55 <00><>ENDLOOP<4F>+<2B><>"Z<17><15><>;\5 <00><>%UNBUG<55>5 <12>(DEBUG<55>+/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><17><><EFBFBD><17><><EFBFBD>8<> <1E>\5 0<>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><>
|
||
<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>[J 7\DEY<45>[<5B> b\INX<4E>[<5B> m\INY<4E>[H x\ <15><>2i<32>@<05><><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>?<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>,!<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<56>+p
|
||
U_VC<56>+<2B>
|
||
<00>_NOT<4F>+
|
||
n\
|
||
<00>_BEQ<45>+<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;<08>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<49>3"<08><08><16> <00>3;M<>¥<0F><>°Jl<4A>Î<EFBFBD><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>"/<18>+"@ <1C> +d/<18>?"@ <1C> +JAVESYSTEM<45>+<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
|
||
save-error\ <00>jEND-CODE<44>+D,<2C>"D,;\ <00>zINDEX.* <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>]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-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><14>
|
||
<EFBFBD><04>H<><04><03> <00><01><><02>`<60> <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> <00>l <00> -aC64KEY?]a<><61>
|
||
]<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>>l n<>JI(<28><><02>'<27>Hh<48>I<EFBFBD> l -n<18>J<EFBFBD>Hh<48>I<EFBFBD> l <1C>+ 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<><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><>`<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> qeBUSOPEN<45>+
|
||
<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>l3 D n<>l3
|
||
<18><> \<13>+<2B> n<>l3 D \<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<65><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>%3 3 <1E>f&gP#
|
||
%#?<3F><12>><16> <00> J<><4A><EFBFBD><EFBFBD>g\<13> <00>hINK-POT.*<2A><> <00><> <00><> <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<><19><> i<><15><> i<>@<05><><EFBFBD>@ <01>(;\<13> <00>?KEY~? <00> <00>?KEY?~?<02> <00>?DECODE~?<04> <00>?EXPECT~?<06> SEAL<41>+<2B>/<18>- +;\<13> |?$ONLY<4C>-<2D> <00>?%FORTH<54>-<2D> <00>?%WORDS .<2E>
|
||
@$ALSO<53>,<2C> @+DEFINITIONS<4E>-<2D>+%"<08><08>"<08>Z<17>;"<08><08><18><1B><>\<13>+<2B>7;;#;;H;\<13> N?'COLDI0<49><11>+1@q@<40>-<2D>@:? <11> #??<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-2z2zej<65>+( <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<><6C>?<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>\ TlRVSON<4F>+
|
||
<12>b\ ApRVSOFF<46>+
|
||
<18><>b\ Tp***ULTRAFORTH83*** <00>prFORTH-GESELLSCHAFT<46>+%\ <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:13,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><17>3 3 Z<17><><EFBFBD><EFBFBD>. <00><08>%<15>
|
||
<00>f&g<> <00>f<EFBFBD>gPg<><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<>(<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<10><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 2VARIABLE<4C>+A)Z<17> \ $l 2CONSTANT<4E>+A) ! !<21>(l<>(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<><49>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>+<2B>a<EFBFBD>b\<13> <00>bC64DEL<45>+
|
||
<18><>b<EFBFBD>4
|
||
<18><>b\<13> cC64PAGE<47>+
|
||
<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><13>o\<13>+ma"<08><18><08><13>n<EFBFBD><08><13>ma[ml<>J+n<>\<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>
|
||
6 dP<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<79>d
|
||
|
||
Neg7f<37>d<EFBFBD>\<13> g WRITESECTOR<4F>+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 DIGDECODE<44>+<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> <00> <00>jPOP<4F>+<2B>. 3j.BLK<4C>+D!"<08><08> <00>$ Blk H5<48>>\ 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>aCUROFF<46>a<EFBFBD><61><EFBFBD> <0C><>
|
||
<EFBFBD>l <00> <00>aC64KEY<45>+<2B>a<EFBFBD>6[a<><1B><><EFBFBD>a<EFBFBD>a\<13> Ca#BS<42>+ <00> <00>a#CR<43>+
|
||
<00> <00>a C64DECODE<44>+<2B>a@ <1C> <00><08> .?<3F>d<13>a@ <1C>
|
||
<00>Q!;dP<12><15><13><08><13>
|
||
?#\<13> <00>a C64EXPECT<43>+Q!;<08><17>Q!"<19>
|
||
<00>?I?<3F><1B><><EFBFBD><15>4\<13> @bKEYBOARD<52>?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\<13>+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><>
|
||
<18><>bJ<62><4A><EFBFBD><EFBFBD>\<13>+z?<3F>d?<3F>lm<><17>n\<13>+n<>l?4<> <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<65><4A><EFBFBD><EFBFBD>6\<13> <00>eBUS@ f<>><3E> <20><><EFBFBD>?<3F>l <1C> fBUSINPUT<55>+<2B><><EFBFBD><EFBFBD> f%<1B>J<><4A><EFBFBD><EFBFBD>6\<13> ,fDERROR?<3F>+d
|
||
Ne f<>
|
||
0<><16>
|
||
? f<><08>a<EFBFBD><19><1B><><EFBFBD>?<3F><18>d\<13>+<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<>+/*<10>ZD \^ c3'ABORTI0<49>^ <00>3ABORT<52>+,(<28><11>3q333\_ <00>3SCR.* _ <00>3R#.* _ <00>3(ERROR<4F>+q3<71>4X +<2B> #?<3F>
|
||
<12>,"" !$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><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<>lcn <00>)>NAME<4D>+%"<08><08> <00>Z<17><16>1*<2A><08> z<15>
|
||
;\<13> <00>6UNLOCK<43>+<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<>`: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-\s Y-WORDS<44>+D,""<08><08>><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><07><> l<><18>.<2E><07>$<24><07>%<25>$<24>&) 8<>$<24>$<24><02>%<25>&) P <09>$<24><07>%lB.<2E>$<24><07>
|
||
<16>h:J<><4A><EFBFBD><EFBFBD> <00><12><17><> <00>h:<3A><17><17>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>+ <00><>
|
||
;FIRST.* <00><> ; ALLOTBUFFER<45>+#;"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.STATUSI0
|
||
k.*<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\] 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><>\<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<>+) <00> <00>5L/S<>+ <00>
|
||
6LIST<53>+<2B>3;<08>$Scr <20>3"<08>dx H5<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> 6PAUSE <00> <00>6LOCK<43>+<2B>"}<12><19> <00>d<13>"<08> <00>6<EFBFBD><1B><>}<12>
|
||
+<2B>,<2C>"<08>a\<13>+<2B>,aD,\q <00>,ALSO<53>+<2B>,"
|
||
|
||
-<19>3Vocabulary stack fullD,"F<17>,[D,;\q <00>,TOSS<53>+/<18><><EFBFBD>,[\r <00>-
|
||
VOCABULARY<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-BUFFERS<52>+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>9Z"<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>l z <00>0(IS<49>+<2B><12>aP";\<13>+"/I/"<08><08><19>/<18>/"<08><16><16>3 not deferred\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>;
|
||
CUSTOM-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><19><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<45>+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<> <00>$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<48>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>3Haeh?\x O/ 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>=(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> <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><19> <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 +CREATE:<3A>+A)<29>'<27>,"D,;<08>0<EFBFBD>\o h+:<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>3aborted\<13> A7DISKERRI0L7<4C> 8R/WI0<49>g<EFBFBD>+<2B>z"<08><18>j a<17>"#<17>3 2<>2q3<71>z<17>a"F<17>"<08> 8<> <00>$write 8<><1B><>
|
||
<18><>t#<08>\<13>+a<17><08>t<17>\<13>+<2B>{82<>2q3P<12>Z"<08><15>
|
||
<14>z
|
||
$<24><07>8<><02><07>F<14>&H
|
||
0<05>i<EFBFBD><69>H<EFBFBD><48><03><>$<24><><01>l v 1.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?\v 7/I[COMPILE]<5D>+;/ !\v o/C[']<5D>+;/^\v <00>/ NULLSTRING?<3F>+<2B>J<13><18><08> <00>\H<18> <1C><02>H<> <1C> <00><0F>l w <00>/
|
||
>INTERPRET<45>/ 0x <00> $ <00>OFF<46>+<2B><17>;\% <00><17>CLIT <18>8<><02><07>F<14><0E><07><><07>P<02>l % <18>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 PAD<41>+X
|
||
b<>\: <00> ALLOT<4F>+L[\: <00> ,<2C>+X ;F<17> \: !C,<2C>+X <20><13><17> \: !<21>COMPILE<4C>+<2B><12>aP" !\; ,!#TIB.* ; h!>TIB.*`!savesystem @:*>body ! cold ; u!>IN.* ; <00>!BLK.* ; <00>!SPAN.* ; J!T E<>+X <20> !\. <00>?PAIRS<52>+<2B><16>3 unstructured\I h<><68>l h<> <00><>8<><02><07>F<14><><01>Ȣ l / <00>CASE?b <1C> S<16>$AP <09>%QPl<><18>l 0 8 BIF<49>+6!<21><1B><1B>\0 \ DTHEN<45>+=<3D><><17><1B>\0 <00> DELSE<53>+<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>\d L$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>;\d 7%DECIMAL<41>+
|
||
|
||
<EFBFBD>;\e j%DIGIT?<3F>+
|
||
0<><16>
|
||
[<19>
|
||
<18><><16>
|
||
[<19> <00>"<08>[<19><08><13><08>\e <00>%
|
||
ACCUMULATE<EFBFBD>+<2B>P<12><08>"<08> <1D><15>"<08> <1D><16>\e <00>%CON D+<2B><16> SH<><18>&<26>H<><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<17>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>'lL 7 <00> CMOVE><3E> <1F> S<18>%<25>'<27>'<18>%<25>)<29>)<29>%<25>$<18><05><>(<28>&<26>P<EFBFBD>F'F)F%P<><50>l 7 <00> MOVE<56>+P<12><19> <00><12> 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>FlT8 <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>#<17> <1F>~'[<08><17> \k <00>(?HEAD.* k v)|<7C>+^)"<08><13>^);\l <00>)WARNING.* <00>+<2B>)"<08>~'"<08>,"9.<2E><15> <00>4~'"+<2B>$exists <20>>\l <00>)CREATE<54>+X D!" ! <02><0E>l + B<><42>(+LOOP<4F><50><18><07><02><02><07><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>?BRANCH<43><1B><14><18><02><07><02>(<28>Kld. <00>>MARK<52>+X <20> !\. <00>>RESOLVE<56>+X <20><08><16>;\. <00><MARK<52>+X \. M<RESOLV D<>+<2B>#<23>"\b Q#PARSE<53>+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 )$eASCII<49>+?4X##J1$"<08> ^\c 7$,"<22>+
|
||
"<22>#X <20>#<17> n \c w$<24>"LIT<49>+<2B><12><12><15> <20>PP\c <00>$<24>("<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<> +XORpH<>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>NEGATE<54>8<><38>" <00>DNEGATE<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>`" <00> +<2B>P=<3D><><08><18> <00><15><15><08> <13><18> <00><16><08> <00><13><15><08>9\5 X 2/ <1F>
|
||
<EFBFBD>ʑ<07><07>l 6 /MOD<4F>+P<18><><12> \6 / /<2F>+6 <1F>\6 d MOD<4F>+6 <1F>\6 r */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><13> <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><13>\h H' 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<17><15><08>, ,(<28>;\i @(HEAP<41>+<2B>"z\i <00>(HEAP?<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>DABS<42>+<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><>BOUNDS<44>+<2B><08><15>\* <00><><EFBFBD>ENDLOOP<4F><50><EFBFBD>l+ <00><><EFBFBD>(LOOPL<50><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<02>'<27>$PF%F$l$#<23>&<26>(<28>'<27>)<29>&Q<14>&P<02>'<27>$PF%F$(<28><14>*<2A>$%P<>8<EFBFBD><02>&<26><07><>!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<43>+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><08>\ <00>UNDER<45>+<2B><08>\ <00>PICK<43>+#3 ;<12>"\ <00>ROLL<4C>+<2B>P<12>;<12>a<17>#3 <1E> <1F>\ <00>2SWAP<41>+P<15>\ <00>2DROP<4F> V2DUP<55>+<2B><08>\
|
||
%<25>l 3 <00> M*<2A>+<2B><08><18>P<12> <00><16><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<>$<24><07><01>'l 5 ^ M/MOD<4F> 2<><08> <20>&;&<26><17>P<12><17><15>%&<26>%
|
||
-@ <1C> 9<13>P<12>%&<26>%o&<26> <00>;<08>%&<26>%<25>%<25>&<26>%<25>&<26>%)&<26>%<25>%<25><18><1B><>&<26>&<26>&&<26><17>%)&<26>%<25>T<>\g B&'NUMBER?I0L&g e'NUMBER<45>+p'<27><08><18>3?<3F><18> <18>\h v'LAST.* <00>+~'"<08>\h <00>'HIDE<44>+<2B>'<27> <00>"<08>,";\h <00>'REVEAL<41>+<2B>'<27>
|
||
<00><17>,";\h <00>'IRECU 0<><30>E$<24><07>%l<>' QU<<19><07>$<24><07>%<25><18><02><07><02><14>E$<24><07>%<25>l<>l<>( <00>><3E>+<2B>U\( )0><3E>+<2B><16>\( 70<><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>!<21>D!<21>\< <00>!SCAN<41>+P<12><08><1B> <00>J<13><16> <00><17>#<17><08><1B><>9\< "SKIP<49>+P<12><08><1B> <00>J<13><19> <00><17>#<17><08><1B><>9\< ;"/STRING<4E>+<2B><03><15><08>z<15>\Ia<49>I{<7B> I)<29>I[<5B> <09>`= <00>"CAPITAL<41>"<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 \1 BDO<44>+6!<21><><EFBFBD>P\1 C?DO<44>+6!<21><><EFBFBD>P\1 1 DLOOP<4F>+P<17>6!J<>6!<21><><EFBFBD>\1 e E+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><07>%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> \f M%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><6C> <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>ȅw <20>Ҡ <00>]<5D>^<5E>_<EFBFBD>w <20><><EFBFBD>_P<02>` <20>ҥ_E<5F>P<EFBFBD><50>`E<>P<EFBFBD><50>]<5D>^<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#<23>+
|
||
<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 RANGE ERROR!<21><>6 <1F><08> <00>P<12><17><> <00><08><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>J<><4A><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<>AUTOLOAD.* <1B>TAPE +;<3B>C<><03>\ <20>RDNEW<45>+b͋b͋<08>/ <05>[<19>3range!<21><08><><EFBFBD>;͋<08>
|
||
<10>;(͡<17>I<>\<13>+<2B> <00>$error \ p<>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>$8<><14>d<>J<>d<>$<24>%<25> <20><><EFBFBD>(<28>)<29>&
|
||
|
||
<00>(4112) <00>la<>l9al<06> J6 <00> <00> {k<>
|
||
Vc?z<>3><3E> ^<5E> QЈP<D088><50><EFBFBD><EFBFBD>]<5D>å^<5E><> Q<> QХ<51>P<04><><EFBFBD>_ Q<> QХ<51>Q_<51><01> Q<> Q<><51>_P<02>` Q<> QЅ<51><D085>`E<>PC<50>_E<5F>P<EFBFBD><50><EFBFBD>E<EFBFBD><45> <09><> `<60><>l<EFBFBD>Р QЈP<D088>E<EFBFBD>P<EFBFBD><50> <00><07><10><>l<EFBFBD><6C>`<60><><EFBFBD> <00><><EFBFBD><EFBFBD>I<07>lp<6C><70><EFBFBD>Z <1B><><EFBFBD>إ<EFBFBD>h<EFBFBD> <00><> `<60> <20><> <20><> <20><> <20>Щ<EFBFBD><D0A9>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>_<F1A5B485><5F><EFBFBD>`<60><> !??<3F>$Aber ohne Handbuch?<3F>$und die Hilfe der?<3F>$FORTH-Gesellschaft?<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><>>ADR<44>+<2B><>"<08>\ <09>ADR@<40>+<10>"<10>\ <1C>RD?<3F>+<2B><>"<08><08>"<08><><EFBFBD>1\ INIT<49>+??<3F>$ Tape2.00 <20><>/0<><30>0 8<>0d&<26>"<08> &<26><><17><>\ ,<2C> BAMALLOCATE<54>+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><>
|
||
FORMATDISK<EFBFBD>+
|
||
|
||
ze<7A>$n0:<3A> <20>e<EFBFBD><17>#<23>e<EFBFBD>dyf<79><13><>\.*<2A>տ+ <00>+?<3F>$Insert Source-Disk<73>?<3F>?<3F><><EFBFBD><15><> %<1B>9<EFBFBD>J<><4A><EFBFBD>?<3F>$Insert 3no file<6C><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<52>+<2B><>"H5pɀ<08><>H5
|
||
#<23>H5T<35><54> #?\ <00><>ID!<21>+
|
||
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> .*ultraFORTH-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> PF F l<>+ <00>NOOP <00>ORIGIN<49>+ <00>S0<, <00>R0<,
|
||
<00>DP<, GOFFSET<, QBASE<, <00>OUTPUT<, <00> RAMDISK<53>+pɧ<70>T<EFBFBD><54> <11>\ 6<> LOADRAMDISK<53>+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>, <09><><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<45> 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><>\6 <00><>K<>+;<3B>k<EFBFBD>a<17><>\7 <00><>D<>+<2B><15>;<3B>P<17>4<EFBFBD><08><17><>
|
||
x<>#J<><4A><EFBFBD>Z<17>4z#?<3F><>\7 K<>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<6C><30>+<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>$<24><14>%<25>$<24>8<><02><07>F<14><01><07> <00> l 5SP!<21><12><07><><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 <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>
|
||
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>+<2B><>"{<7B>Z<EFBFBD><5A><EFBFBD>load\ <00><>BSAVE<56>+<2B><>"<08><>Z<EFBFBD><5A><EFBFBD>save\ <09>N"<22>+
|
||
"<22>#\ &<26> SAVE F<14><02><07><02><07><18><02><02><02>l <00>R@<13>8<><02><07>F<14><02><07>l <13>RDROP 1EXITf<13><02><0E><02>l =UNNEST^<13><02><0E><02>l s?EXIT<49><13><14><18><02><07><02>(P<>l <00>EXECUTE<54><13><07> <1C><07> <1D><18><02><07><02>l <00>PERFORM<52>+"<08>\ <00>C@L<13><07>$<24><07>%<25> <00><07>$l EC!<21><13><07>$<24><07>%H<><07>$<24><> .Ӎ><3E>`<60><>I<07> 8)Pl<><6C><EFBFBD><EFBFBD>Z <1F> <19><><EFBFBD><EFBFBD> <20><> <20><> <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><>E X<> <20><>l<EFBFBD><6C>2 <> SUPERTAPE<50>+
|
||
<07><>;/<18><>/.;/=<3D>/0;<08>$ST2.20 \<13>+<2B>!4<>+<2B>\2 <00><>BTL<54>+/<18><>/
|
||
ETE<EFBFBD>+<2B>ɸ"<08><15><15>ɧ<EFBFBD><C9A7><08>D <1F><16><>\ c<>SEARCH<43>+pɸ"<08><15>"<08> <00>a"<08><19><1B><><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`<60>`<60><>` <00><>C>7<>ʡ L<>l <00><>7>Cˡ <20><>l <00> S<16>&<26>*<2A>'<27>+<2B><><EFBFBD>$P<0E>%P<07>ȩ l l/<2F><>%`8<>&<26>*h<>'<27>+l <00><>EXPAN <0E><04><07><02>l <00>CTOGGLE<4C>+<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>$lo vDROP<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<>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<>(<10><>?<3F>lha <00><>DERR?<3F>+<2B><08> ?<3F>H5<48>ί$error<6F>
|
||
<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>+Vv"<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]<5D><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>Fv;d?Fv"P
|
||
+X
|
||
<09>/ <00>[<19>3not here/><3E><>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(SEARCH<43>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$<24>(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>+<2B>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>/<18><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>$changed<65>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 <1F><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>P2<>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>"<08>"<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><17>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<44>+<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<45>+X <20>)A)<29>'<27> !Zi(<28>(<28>1i(X Z<17><16>(ZD <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>'<27><19>'<27>$ @vQ&<26><05><>l <1C><10> <20>vJP<4A><50>l <1C>+;<12>v3 <1E>\Cw<43>h<EFBFBD>>l Mw<4D>JI(<28><><02>'<27>Hh<48>I<EFBFBD> l <1C>w<18>J<EFBFBD>Hh<48>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 \1 CPUSH<53>+<2B>z<15>P<12><12>#<17><16>Bn l<>PP\<13>+
|
||
r<> {bTc<54>1<EFBFBD>4<EFBFBD>!<21>//<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ą l 2.*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ĥ <1C>2ĥ <1D>3<EFBFBD> <20><<3C>"<08>"
|
||
Aw<41> <20>v3 D Aw<41>v3
|
||
<18><> \<13>+<2B> Aw<41>v3 D \<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>$updated<65><17>d?/<18>z<EFBFBD> #?F<17>4/<18>z<EFBFBD>
|
||
1#?<3F>zd?<3F>[~[<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>rBNE<4E>+8rq\
|
||
<00>rBPL<50>+orq\
|
||
<00>rBCC<43>+"rq\
|
||
HrBVC<56>+<2B>rq\
|
||
XrBCS<43>+-rq\
|
||
<00>rBVS<56>+<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> <11><><13><> <0F>.*<2A>\L\|\<5C>\<5C>^z<>x<EFBFBD>x`\<5C>\<5C>\<5C>\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>vEDITORv-<2D><><EFBFBD><EFBFBD>ej<65>+( <00>+ <00>+<2B> SHADOW.*u .* .* .*h .*<2A><>.* .*A<> .*<11> .* <00><>.* <00>+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<>(<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> EDIEXPECT<43>+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><>.*<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-GESELLSCHAFT<46>+%\ <00>vSTAMP$.* clv17nov87 <00>+|z#<17> Aw<41>v<EFBFBD><15><08><16><08>w<EFBFBD>\ SzGETSTAMP<4D>+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<4F>+d<>"Z<17>4<>;\5 G<>%UNBUG<55>5 <00><>(DEBUG<55>+Ʊ<><<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!"<08><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"<08>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> <00><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> <00>l <00>*)?*$* <09><> @`<60>*)I <20>
|
||
I@<40>) $* @`<60>.` vCBM>SCR<43>v<EFBFBD> @v<>l
|
||
<00>$, saved
|
||
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"<08><15><>\, <00><>V<>+;/<2F>*<2A><08> Z<17>"\, <00><>VIEW<45>+<2B><><EFBFBD><08> <00><><EFBFBD> <00>$
|
||
from keyboard\,<2C>+<2B>v"<08>vJ<13>\, i`CURLIN<49>+
|
||
<1B>b
|
||
j<>b <00>
|
||
<1B>b
|
||
k<>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<4A>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>Pva[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>%3 3 <1E>f&gP#
|
||
%#?<3F><12>><16> <00> J<><4A><EFBFBD><EFBFBD>g\<13> <00>hINK-POT.*<2A><> <00><> <00><> <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<><19><> i<><15><> i<>@<05><><EFBFBD>@<12>(;\<13> <00>?KEY~? <00> <00>?KEY?~?<02> <00>?DECODE~?<04> <00>?EXPECT~?<06> SEAL<41>+<2B>/<18>- +;\<13> |?$ONLY<4C>-<2D> <00>?%FORTH<54>-<2D> <00>?%WORDS .<2E>
|
||
@$ALSO<53>,<2C> @+DEFINITIONS<4E>-<2D>+%"<08><08>"<08>Z<17>;"<08><08><18><1B><>\<13>+<2B>7;;#;;H;\<13> N?'COLDI0<49><11>+1@q@<40>-<2D>@:? <11> #??<3F>@\<13> <00>@'RESTARTI0<49>l<EFBFBD>+/mo<6D>kTAPEINIT<49>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
|
||
P3k<33>-<2D>$DEBUG
|
||
/P3k<33>-<2D>$HELP
|
||
|
||
<EFBFBD>3k<33>-<2D>$TAPEINIT
|
||
Z3k/<18><11>0<EFBFBD>@/<18>l<EFBFBD>0<EFBFBD>@<40>kEDITOR<4F>kEDIBOARD<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<><6C>?<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
|
||
|
||
<00>pDEC<45>oA <00>pINC<4E>o<EFBFBD> <00>pLSR<53>oa
|
||
|
||
<00>pROL<4F>o!
|
||
|
||
ApROR<4F>o<EFBFBD>
|
||
|
||
NpSTX<54>o<EFBFBD> <00>pCPX<50>o<EFBFBD><6F> <00>pCPY<50>o<EFBFBD><6F> <00>pLDX<44>o<EFBFBD><6F> qLDY<44>o<EFBFBD><6F> qSTY<54>o<EFBFBD><6F> qJSR<53>o<08> )qJMP<4D>o@<40><> 6qBIT<49>o <20><04>+<2B>=<3D>
|
||
[<19>3
|
||
out of range \ cq[[<5B>+X \ <00> g<>e<EFBFBD>dd
|
||
ze<7A>$u2:13,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><17>3 3 Z<17><><EFBFBD><EFBFBD>. <00><08>%<15>
|
||
<00>f&g<> <00>f<EFBFBD>gPg<><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<>(<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> <00> #?<3F>$ unsatisfied33\<13>+6!<21>k\$\ 3j64KB<4B>+/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<><49>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>+<2B>a<EFBFBD>b\<13> <00>bC64DEL<45>+
|
||
<18><>b<EFBFBD>4
|
||
<18><>b\<13> cC64PAGE<47>+
|
||
<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>3invalidJIm"<08>m<EFBFBD>J<13> !Im"
|
||
1<16> Im"
|
||
1
|
||
U<18> !<21> !<21>m\ <00>oADC<44>o`<60> %pAND<4E>o <20> 2pCMP<4D>o<EFBFBD><6F> ?pEOR<4F>o@<40> lpLDA<44>o<EFBFBD><6F> ypORA<52>o <00> <00>pSBC<42>o<EFBFBD><6F>v<02>+<2B><08>f<19>
|
||
6 dP<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<79>d
|
||
|
||
Neg7f<37>d<EFBFBD>\<13> g WRITESECTOR<4F>+d
|
||
ze<7A>$b-p:13,0<> <20>e<EFBFBD>dd
|
||
|
||
zeCLEAR<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> <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><19> <00>9\<13> <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> <00> <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>aCUROFF<46>a<EFBFBD><61><EFBFBD> <0C><>
|
||
<EFBFBD>l <00> <00>aC64KEY<45>+<2B>a<EFBFBD>6[a<><1B><><EFBFBD>a<EFBFBD>a\<13> Ca#BS<42>+ <00> <00>a#CR<43>+
|
||
<00> <00>a C64DECODE<44>+<2B>a@ <1C> <00><08> .?<3F>d<13>a@ <1C>
|
||
<00>Q!;dP<12><15><13><08><13>
|
||
?#\<13> <00>a C64EXPECT<43>+Q!;<08><17>Q!"<19>
|
||
<00>?I?<3F><1B><><EFBFBD><15>4\<13> @bKEYBOARD<52>?La[ablb\<13> <00>bCON!<21>b<EFBFBD><07>><3E> l (J !<21>m\ <00>nBRKn <00>nCLCn <00>nCLDnX <00>nCLInx <00>nCLVn<7F> <00>nDEXnJ CnDEYn<7F> NnINXn<7F> YnINYnH <00>nNOPn<7F> <00>nPHAnh <00>nPHPn oPLAn<7F> oPLPn( oRTIn@ &oRTSn` 1oSECn8 <oSEDn<7F> goSEIn<7F> 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<65><4A><EFBFBD><EFBFBD>6\<13> <00>eBUS@ f<>><3E> <20><><EFBFBD>?<3F>l <1C> fBUSINPUT<55>+<2B><><EFBFBD><EFBFBD> f%<1B>J<><4A><EFBFBD><EFBFBD>6\<13> ,fDERROR?<3F>+d
|
||
Ne f<>
|
||
0<><16>
|
||
? f<><08>a<EFBFBD><19><1B><><EFBFBD>?<3F><18>d\<13>+<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<13>
|
||
<00>;<08> <00>#<17>nq<6E><08>\ <00>q][<5B>+X #<17><q<>X <20>#<17>nq<6E><08>\ <00>q]]<5D>+<q\ r]]?<3F>+<q<>q\
|
||
|
||
rCS<43>+<2B>
|
||
rCC<43>+<2B>
|
||
(r0=<3D>+P
|
||
3r0<><3E>+<2B>
|
||
>r0<<3C>+
|
||
jr0>=<3D>+0
|
||
urVS<56>+p
|
||
<00>rVC<56>+<2B>
|
||
<00>r <0C><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>]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-<13>Ā-<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><14>
|
||
<EFBFBD><04>H<><04><03> <00><01><><02>`<60> <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> <00>l <00> -aC64KEY?]a<><61>
|
||
]<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> <00>jEND-CODE<44>+D,<2C>"D,;\ <00>mINDEX.* <11> <09>
|
||
<19><><EFBFBD><EFBFBD> <08><><EFBFBD><EFBFBD><EFBFBD> <1C><>,.* <00>mMODE:<3A>+A) !<21>(l<>(JIm;\ Om.A<>m <00>m#<23>m<01>m <00>m,X<>m n,Y<>m nX)<29>m n)Y<>m n)<29>m<0F>+<2B> Im"
|
||
Im;<08>Im"
|
||
1<16><08> <00><17><>
|
||
<00><08>J<><4A><EFBFBD><EFBFBD>#"1<16>\ *nCPU<50>+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><>`<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> qeBUSOPEN<45>+
|
||
<18>ze\<13> <00>eBUSCLOSE<53>+
|
||
<18>ze<7A>d #mO
|
||
m1000
|
||
x
|
||
list
|
||
////
|
||
x
|
||
poke 152,0
|
||
e$<24><>"" <20> 2030 4<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 <00>" 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 filenamens CR <00>"file:";f$ I| <00> <00><10><01> programam 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,2000,3000, 400,500 <00>2 <00> <00>H <00> einlesen des filenamens CR <00>"file:";f$ I| <00> <00><10><01> programam sichern <00><10><01>"@tapecopy.bas" <00><10><01> $<24><07>8<><02><07>F<14>&H
|
||
0<05>i<EFBFBD><69>H<EFBFBD><48><03><>$<24><><01>l v 1.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?\v 7/I[COMPILE]<5D>+;/ !\v o/C[']<5D>+;/^\v <00>/ NULLSTRING?<3F>+<2B>J<13><18><08> <00>\H<18> <1C><02>H<> <1C> <00><0F>l w <00>/
|
||
>INTERPRET<45>/ 0x <00>;""<08>;%7#;[\<13> <00>; 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>+<2B><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>/<2F>2<EFBFBD><1B><>\^ 3'QUITI0
|
||
3^ 3QUIT<49>+B"B0&3\^ ,3 STANDARDI/O<>+/*<10>ZD \^ c3'ABORTI0<49>^ <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><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<>lcn <00>)>NAME<4D>+%"<08><08> <00>Z<17><16>1*<2A><08> z<15>;\<13> <00>6UNLOCK<43>+<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<>`: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> <00>2 - list file" <12><07>8,e$:<3A>e$ ,<12><07> e$<24><>"" <20> 2030 4<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<50>+<2B><17>:\<13> T:CONVEY<45>+<2B>#F<17><15><16><<19><16>3nein<69>:\<13> <00>:LIMIT<49>+ <00><>
|
||
;FIRST.*<2A>{<7B> ; ALLOTBUFFER<45>+#;"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\] 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 <00>4of4<66>90<39>100<30>no<6E>hadows<77>>ramdisk<73>>fileLrddel<65>id"<22>c64<36>grafdemo"<22>4of4<66>144<34>164<36>no<6E>hadows<77>>ramdisk<73>165<36>binary<72>4of4<66>165<36>169<36>no<6E>hadows<77>>ramdisk<73>>fileL; <00><>en.<2E><>alls<6C><73>hr<68>denkt,<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>nhalt<6C>der<65><72> <00>2 - list file" <12><07>8,e$:<3A>e$ ,<12><07> e$<24><>"" <20> 2030 4<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$<24><>"" <20> 2030 <14> 8 <14> a<12> <0B> umleiten der standardeingabe tB <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 filenamens CR <00>"file:";f$ I| <00> <00><10><01> programam sichern <00><10><01>"@tapecopy.bas" <00><10><01> <00> <12><07> e$<24><>"" <20> 2030 <14> 8 <14> a<12> <0B> umleiten der standardeingabe tB <0B> f$<24>"" <20> <20>200 <00>V <0B> 8,8,2,f$<24>",seq,r" <00><12> <0B> 152,8 ~<12> <0B> 400,500 <00>2 <00> <00>H <00> einlesen des filenamens CR <00>"file:";f$ I| <00> <00><10><01> programam sichern <00><10><01>"@tapecopy.bas" <00><10><01> <00><12><07> e$<24><>"" <20> 2030 <14> 8 <14> @<12> <0B> umleiten der standardeingabe sB <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 filenamens CR <00>"file:";f$ I| <00> <00><10><01> programam sichern <00><10><01>"@tapecopy.bas" <00><10><01> <0B>'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>;
|
||
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>200 z<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> 8 G$<04> <00>P<07> drucken 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 //// to 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><04> 8 <00>$<04> CP<07> drucken eines files VZ<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>"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" <00><11><04> 8 <00>$<04> CP<07> drucken eines files VZ<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?\x O/ 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>0DEFERtape"<22>new<65>ame<6D>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>"<22>decompiler"<22>new<65>ame<6D>4of4<66>51<35>60<36>no<6E>hadows<77>>ramdisk<73>>file<6C> <00> \<5C>..makecopy<70>2of4<66>clv19nov87<38>rddel<65>"<22>1<EFBFBD>uf-quelle"<22>new<65>ame<6D>2of4<66>0<EFBFBD>50<35>no<6E>hadows<77>>ramdisk<73>>fileLrddel<65>"<22>2<EFBFBD>uf 8hallo
|
||
was ist das
|
||
was ist das
|
||
was ist das
|
||
was ist das
|
||
|
||
6<>46<34>with<74>hadows<77>>ramdisk<73>>fileLrddel<65>"<22>editor"<22>new<65>ame<6D>3of4<66>14<31>18<31>with<74>hadows<77>>ramdisk<73>3of4<66>19<31>45<34>with<74>hadows<77>>ramdisk<73>>fileLrddel<65>"<22>tracer"<22>new<65>ame<6D>3of4<66>47<34>56<35>with<74>hadows<77>>ramdisk<73>>fileLrddel<65>"<22>multitasker"<22>new<65>ame<6D>3of4<66>57<35>62<36>with<74>hadows<77>>ramdisk<73>>filehadows<77>>ramdisk<73>4of4<66>138<33>143<34>no<6E>hadows<77>>ramdisk<73>>fileLrddel<65>id"<22>editor"<22>3of4<66>14<31>18<31>with<74>hadows<77>>ramdisk<73>3of4<66>19<31>45<34>with<74>hadows<77>>ramdisk<73>>fileLrddel<65>id"<22>tracer"<22>3of4<66>47<34>56<35>with<74>hadows<77>>ramdisk<73>>fileLrddel<65>id"<22>multitasker"<22>3of4<66>57<35>62<36>with<74>hadows<77>>ramdisk<73>>sk<73>>fileLrddel<65>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<6E>hadows<77>>ramdisk<73>>file<6C><01> \<5C>..makecopy<70>3of4<66>clv19nov87<38>rddel<65>id"<22>kleinkram"<22>3of4<66>46<34>46<34>with<74>hadows<77>>ramdisk<73>4of4<66>61<36>63<36>no<6E> dows<77>>ramdisk<73>>fileLrddel<65>"<22>c64<36>grafdemo"<22>new<65>ame<6D>4of4<66>144<34>164<36>no<6E>hadows<77>>ramdisk<73>165<36>binary<72>4of4<66>165<36>169<36>no<6E>hadows<77>>ramdisk<73>>fileL; <01> \<5C>..makecopy<70>4of4<66>1.<2E>eil<69>cclv19nov87<38>rddel<65>"<22>c16<31>supertape"<22>new<65>ame<6D>4of4<66>32<33>50<35>with<74>hadows<77>>ramdisk<73>>fileLrddel<65>"<22>c16<31>fileLrddel<65>id"<22>printer"<22>3of4<66>63<36>84<38>with<74>hadows<77>>ramdisk<73>>fileS <00> \<5C>..makecopy<70>2of4<66>clv19nov87<38>rddel<65>id"<22>1<EFBFBD>uf-quelle"<22>2of4<66>0<EFBFBD>50<35>no<6E>hadows<77>>ramdisk<73>>fileLrddel<65>id"<22>2<EFBFBD>uf-quelle"<22>2of4<66>51<35>100<30>no<6E>hadows<77>>ramdisk<73>>fileLrddel<65>id"<22>3<EFBFBD>uf-quelle"<22>2of4<66>101<30>169<36>no<6E>had4<>0<EFBFBD>1<EFBFBD>no<6E>hadows<77>>ramdisk<73>>fileLrddel<65>"<22>assembler"<22>new<65>ame<6D>2of4<66>2<EFBFBD>13<31>with<74>hadows<77>>ramdisk<73>>file<6C><01> \<5C>..makecopy<70>3of4<66>clv19nov87<38>rddel<65>"<22>kleinkram"<22>new<65>ame<6D>1of4<66>14<31>25<32>with<74>hadows<77>>ramdisk<73>4of4<66>61<36>63<36>no<6E>hadows<77>>ramdisk<73>4of4<66>138<33>143<34>no<6E>hadows<77>>ramdisk<73>3of4<66>4 ows<77>>ramdisk<73>>file<6C><01> \<5C>kopieren<65>auf<75><66>amdisks<6B>1of4<66>clv19nov87<38>floppy<70>\<5C>wird<72>nachher<65>auf<75><66>ape<70>gespult<6C>:<3A>makecopy<70>\<5C>kopiert<72>alle<6C><65>isketten<65>base<73>push<73>decimal<61>limit<69>memtop<6F>rdnew<65>rddel<65>id"<22>sys+infos"<22>1of4<66>0<EFBFBD>36<33>with<74>hadows<77>>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>hadows<77>'<27>false<73><65>lias<61>no<6E>hadows$ <00> \<5C><>tilities<65>clv19nov87<38><37>nlyforth8 <00> \<5C><>irectory<72><79>ape-<2D>opy<70>clv19nov87<38><37>tilities<65>2<EFBFBD><32>nfo<66>86<38> <00> \<5C>..makecopy<70>4of4<66>1.<2E>eil<69>clv19nov87<38>rddel<65>id"<22>c16<31>supertape"<22>4of4<66>32<33>50<35>with<74>hadows<77>>ramdivey<65><79><EFBFBD><EFBFBD>;<3B>:<3A>>file<6C>filefloppy<70>saveramdisk<73>;w<01> \<5C>..makecopy<70>4of4<66>2.<2E>eil<69>cclv19nov87<38>rddel<65>"<22>c64<36>1-grafik"<22>new<65>ame<6D>4of4<66>0<EFBFBD>1<EFBFBD>no<6E>hadows<77>>ramdisk<73>4of4<66>6<EFBFBD>12<31>no<6E>hadows<77>>ramdisk<73>>fileLrddel<65>"<22>c64<36>2-grafik"<22>new<65>ame<6D>4of4<66>64<36>89<38>no<6E>hadows<77>>ramdisk<73>4of4<66>90<39>100<30>no<6E>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>>fileLrddel<65>id"<22>assembler"<22>2of4<66>2<EFBFBD>13<31>with<74>hadows<77>>ramdisk<73>>file<6C> \\<5C>zu<7A><75>ape-<2D>opy<70>clv19nov87<38><37>ier<65>ist<73>der<65>erste<74><65>eil<69>des<65><73>opier-<2D>vorgangs<67>(von<6F><6E>orth-<2D>creens<6E>in<69><6E>amdisks,<2C>die<69>auf<75><66>iskette<74>gesichert<72>sh<73>decimal<61>[<5B><>amdisk<73>]<5D>limit<69>$c000<30>u><3E>abort"<22>no<6E>room"<22>$c000<30>memtop<6F>rdnew<01> \<5C>..makecopy<70>1of4<66>clv19nov87<38>rddel<65>"<22>sys+infos"<22>new<65>ame<6D>1of4<66>0<EFBFBD>13<31>with<74>hadows<77>>ramdisk<73>1of4<66>26<32>36<33>with<74>hadows<77>>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>4ofwerden)<29>niedergelegt.D<>er<65>zweite<74><65>eil<69>(<28>loppy<70>-><3E><>ape)<29>folgt<67>anschliessend.<2E><>as<61><73>opieren<65>ist<73>eine<6E>leidige<67><65>ache,<2C>ich<63>hoffe,<2C>ich<63>habe<62>nichts<74>vergessen.<2E><>alls<6C><73>hr<68>denkt,<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>nhalt<6C>der<65><72> ."<22>einlegen!"<22>wait<69><74><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>disk:<3A>4of4Z <00> \<5C>sconvey<65>with/no<6E>hadows<77>clv19nov87<38>:<3A>sconvey<65>(<28>[from<6F>to]<5D>destination--)<29>2<EFBFBD>pick<63>2<EFBFBD>pick<63>2<EFBFBD>pick<63>convey<65>[<5B><>ditor<6F>]<5D>shadow<6F>@<40>>r<>r@<40>+<2B>rot<6F>r@<40>+<2B>rot<6F>r@<40>+
|
||
ame<EFBFBD>(<28>string--)<29>count<6E>[<5B><>amdisk<73>]<5D>id<69>place<63>;<3B> <00> \<5C>>ramdisk<73>clv19nov87<38>:<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<69>count<6E>type<70>;<3B>:<3A>>ramdisk<73>(<28>[from<6F>to]<5D>shadow<6F>lag--)<29>>r<>2dup<75>.scrs<72>over<65>disk#<23>@<40>blk/drv<72>*<2A>+<2B>r><3E><>ƀsconvey<65><79><EFBFBD><EFBFBD>ŀcon isketten<65>ist<73>im<69><6D>andbuch<63>beschrieben.<2E><>laus<75><73>ogt,<2C>19nov87 <00> \<5C>clv19nov87d<01> \<5C>..makecopy<70>4of4<66>1.<2E>eil<69>clv19nov87<38>rddel<65>id"<22>c64<36>1-grafik"<22>4of4<66>0<EFBFBD>1<EFBFBD>no<6E>hadows<77>>ramdisk<73>4of4<66>6<EFBFBD>12<31>no<6E>hadows<77>>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>ame<6D>2of4<66>101<30>169<36>no<6E>hadows<77>>ramdisk<73>>fileN <00> \<5C>kopieren<65>auf<75><66>amdisks<6B>1of4<66>clv19nov87<38>floppy<70>\<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>drive<76>base<73>pu #monitor
|
||
m1000
|
||
x
|
||
////
|
||
x
|
||
poke 152,0
|
||
e$<24><>"" <20> 2030 4<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 dLrddel<65>"<22>printer"<22>new<65>ame<6D>3of4<66>63<36>84<38>with<74>hadows<77>>ramdisk<73>>file <20>with<74>hadows<77>>ramdisk<73>>file<6C><01> \<5C>..makecopy<70>3of4<66>clv19nov87<38>rddel<65>"<22>kleinkram"<22>new<65>ame<6D>1of4<66>14<31>25<32>with<74>hadows<77>>ramdisk<73>4of4<66>61<36>63<36>no<6E>hadows<77>>ramdisk<73>4of4<66>138<33>143<34>no<6E>hadows<77>>ramdisk<73>3of4<66>4<0F>;<3B>\<5C>wartet<65>auf<75>taste<74><65>ariable<6C>disk#<23>-1<>disk#<23>!<21>:<3A>disk:<3A><>reate<74>,<2C><>oes><3E>@<40>dup<75>disk#<23>@<40>-<2D><>ƀcr<63>."<22><>itte<74><65>iskette<74>"<22>dup<75>.<2E>."<22>einlegen!"<22>wait<69><74><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>disk:<3A>4of4k <00> \<5C>new<65>ame<6D>clv19nov87<38>:<3A>new<65> <00>1 2
|
||
#
|
||
=<3D> <00> <00> <00> RD.tapecopy <00> \<5C>clv19nov87Z <00> \<5C>sconvey<65>with/no<6E>hadows<77>clv19nov87<38>:<3A>sconvey<65>(<28>[from<6F>to]<5D>destination--)<29>2<EFBFBD>pick<63>2<EFBFBD>pick<63>2<EFBFBD>pick<63>convey<65>[<5B><>ditor<6F>]<5D>shadow<6F>@<40>>r<>r@<40>+<2B>rot<6F>r@<40>+<2B>rot<6F>r@<40>+<2B>rot<6F>rdrop<6F>convey<65>;G'<27>true<75><65>lias<61>with<02>hadows<77>'<27>false<73><65>lias<61>no<6E>hadows<77> \\<5C>zu<7A><75>ape-<2D>opy<70>clv19nov87<38><37>ier<65>ist<73>der<65>(fast)<29>komplette<74><65>opier-<2D>vorgang<6E>von<6F><6E>iskette<74>rev<65>3.8<EFBFBD>auf<EFBFBD><EFBFBD>assette<EFBFBD>niedergelegt.<2E><>as<61><73>opieren<65>ist<73>eine<6E>leidige<67><65>ache,<2C>ich<63>hoffe,<2C>ich<63>habe<62>nichts<74>vergessen.<2E><>alls<6C><73>hr<68>denkt,<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>nhalt<6C>der<65><72>isketten<65>ist<73>im<69><6D>andbuch<63>beschrieben.<2E><>laus<75><73>ogt,<2C>19nov87<38> <00> \<5C>disk"<22>clv119nov87<38>:<3A>disk"<22>\<5C>folgender<65><72>tring<6E>wird<72>an<61>\<5C><>isk<73>gesendet<65>8<EFBFBD>&15<31>busopen<65>n"<22>bustype<70>busoff<66>derror?<3F>drop<6F>8<EFBFBD>&15<31>busclose<73>;<3B>\\<5C>z.<2E>.<2E>disk"<22>s:file"<22>\<5C>loescht<68>fileo <00> \<5C>tapecopy<70>clv19nov87<38><37>nlyforth<74>1<EFBFBD>6<EFBFBD>+thru<72>\<5C>kleinkram<61>7<EFBFBD>11<31>+thru<72>\<5C>makecopyc <00> \<5C><>irectory<72><79>ape-<2D>opy<70>clv19nov87<38><37>tilities<65>3<EFBFBD>makecopy<70>9<EFBFBD><39>nfo<66>86<01> \<5C>wait<69>disk#<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><F29F8793><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>鞄쇋<E99E84><EC878B><EFBFBD><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><4A>M<EFBFBD><4D><EFBFBD><EFBFBD><EFBFBD><EFBFBD>T<EFBFBD><54><EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> !"#v@gcagm+nlc/01245dry]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>defgh?/9%+7xclv<6C>sec8sed<65>sei<65>nop<6F>rti@rts`dexJdey<65>inx<6E>inyHphahphppla<6C>plp(brk bcc<63>bcs<63>beq<65>bmi0bnePbplbvcpbvs<76> rorEA<45>~<7E><><EFBFBD>adc<64>Z<EFBFBD>}<7D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>and<6E>Z-=9%51!)aslEA
|
||
bit<EFBFBD><EFBFBD>,$cmp<6D>Z <00><><14><06> <09><07> <00>[xI<78>P <20>V FU$<24> h<> 8<><38> <20>V<EFBFBD><56>`I<02><05><>lC <09> C e<05><>l<EFBFBD>8` <20>l<><02> <00><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>l<EFBFBD>rk-<2D>Ten<65>u<14> <09><12><12> <20> <0B>
|
||
<EFBFBD>#<23> <20> E
|
||
PI<14><10><12> <20><><EFBFBD>8 R<>l<EFBFBD> <0C> <00><0E><04> 3 h<>
|
||
<EFBFBD><19><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> <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><> 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><4D><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䂌<EFBFBD><E4828C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᇑ<EFBFBD><E18791><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʻ<EFBFBD><CABB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^<5E>RSTUVWXY<58><59>|ݮ<>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 *addr+<2B><>...end .mE<6D>!!!sbi16 .md (sddr sv<73><76> lda *sddR<64> sbi (sv<73><76> sta *sddR<64> bcs ...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> <20>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><16> <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>ABCDEFGHIJKLMNOPQRSTUVWXY<58><59><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> <20> <0B>!<21><><EFBFBD> <14>I<> <20> <0B>l<><0F><>8<EFBFBD><01><><EFBFBD>F<>lh <20> ؠ4<D8A0><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> lZP8<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>WV<57><56><EFBFBD><EFBFBD><EF9383><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B<EFBFBD>V<EFBFBD>HGNI<4E><49><EFBFBD>MNOPQ<50><51>TUVWXYZ<59>|<7C><><EFBFBD> !"#$%&'()*+,-./0123456789<38>
|
||
=>? 3<><33><EFBFBD><EFBFBD><EFBFBD>º <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> &<26><><EFBFBD><EFBFBD>Ω <1C>{<7B> <07><>hw<68><77><EFBFBD><EFBFBD><EFBFBD> <1D> <06>} 08bk*j3nh'<27>klmnopq4<&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<><66><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> <00> l3<6C><33><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> kk <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> kkkkkkkkkkk
|
||
|
||
|
||
<00>(2064) <00>lG8<47>la9l<39><6C> b. {<12><18>e<EFBFBD> F;<3B>q.+p_ $volksFOR VOC-LINKV# <00> UDPV#<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>$<24><07>%H<><18>$<24>$H<><07><01>$l DROP}
|
||
a SWAPu <0C><07><><03><07>$<24><><07>$<24><01>H<> <00><07>$<24><07><07><>$l l DUP<55> <0C>8<><02><07>F<14><03><07><01>H<><07>l <00> ?DUP<55> <0C>Pl l<> <00> OVER<45> <0C>8<><02><07>F<14><04><07>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<54>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><07><18><02><0E><02>l % <00>GLITERAL #<23> <0C> <00><>
|
||
b
|
||
<00><18>I$ <0B>R|$ & 0<m<10><03><>$<24><>l & f0=<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><02><14>%q0<><30>E$<24><07>%lo' <00>U<L<10><07>$<24><07>%<25><18><02><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><12>l<>
|
||
+ <00><12>(LOOP<4F><18><01><02><02> <0B><02> <00><02>l <00><05><02><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 {[$ 0 bEBEGIN #<23><13>$ 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>$ 1 DBDO #<23>#\h $ 3 <00>2*<2A><15>
|
||
<EFBFBD><07>*<2A>l #[<0F>+division 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>'l 5 M/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>
|
||
Jb O
|
||
<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>$ 9 mFILL<4C><18> <20><0E><>$<24>'<27>
|
||
<EFBFBD>(HP<48><50>)JP<4A><50>&<26><06>(HJP<4A><50>l : _HERE #<23> <09> $ : <00>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<><64>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><><19>'<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><0F><> END-TRACEe <09><><EFBFBD><13><0E><08>Ʌ<15><02>l 7 RECOVERZ!ȅ ȅ <1D> PF F l # z NOOP <00> ORIGINy# <00> S0V# <00> R0V#
|
||
<00> DPV# <00> OFFSETV# <00> BASEV# <00> OUTPUTV# 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><07><02>(PVl 3 EXECUTE<54> <0B><07> <1C><07> <1D><18><02><07><02>l u 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>%<25><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>
|
||
2SWAP #<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$ # b s h $ ) \MIN #<23>
|
||
<EFBFBD>}) <00>MAX #<23>
|
||
<EFBFBD>}) <00>UMAX #<23>
|
||
J}) <00>UMIN #<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>(<28>'<27>)<29>&Q<14>&P<02>'<27>$PF%F$(<28><14>*<2A>$%P<>8<EFBFBD><02>&<26><07><>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>PARSE #<23>
|
||
<EFBFBD><1B><19> 2<><32> s O
|
||
Q<19>
|
||
<EFBFBD> 1<0E> O
|
||
1<0E># $ b <00>NAME d F \NEEDS #V<1B>&2
|
||
b <00> $ d W HEX #RF $ d <00> DECIMAL #R
|
||
F $ e DIGIT? #R01<0E> R #b R<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>R N <1D><0F> <1D> <1D> T<>$ g } NUMBER #<23> <1E> <0C><10>+?kb X$ h LASTZ! #* <1F> <0B> $ h # HIDE #. b m<0F> o$<24> $ h : REVEAL #. b
|
||
mo$<24> $ h w IRECURSIVE #` $ #. 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>* <0C><0E>4!
|
||
!<21> b <00>
|
||
!# <0C> <0C> Ij R <20> <1F> <20> <0E> b <00> @ b <00> |*R <1F>
|
||
7 <00> ???,$ o <00>": #<23>!a o$<24> _$ )(<28><0F> <20>8<><02><02>F<03><0E><02><0F><02> <18><02><0E><> <1D>l o <00>"A; #<23><0F><13>$ (` $ o 0#CONSTANT #<23>!I<18> <20>8<><02><07>F<14><02> <1C>H<> <1C><01>l o f#VARIABLE #<23>!<21><0F>$ p <00>#UALLOT #<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<> _$ $ r J$FORTH<54>$U<>U<EFBFBD> r <00>$ONLY %88
|
||
%<25> l<> <20>1$ _$ <0C>$$ r % ONLYFORTH #%%<25>$z%$ s 2% DEFINITIONS #_$<24> o$ $ #<23> mu"G"$ s l%ORDER #<23>$) <00><12>%<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?$ v R&I[COMPILE] #V&I$ v <00>&C['] #V&&$ v ' NULLSTRING? #<23> <0C> <0B><10> b 2
|
||
$ H<18> <1C><02>H<> <1C> <00><0F>l w '
|
||
>INTERPRET0'<27>'x f'NOTFOUND](<28>'x y'
|
||
NO.EXTENSIONS #~+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 stack` . b <00> @ b <00>" <00>1<0E>5[<0F>+dictionary full$ [ <00>(?STACK/)<29> 8<><07><04>$H<><14>P <09> <20> Y($ <0B><14>EH<><04><14><01>l <20> [<0F>+ stack empty\ $).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 #X c <09>*Y*<2A>*_ <00>*SCRZ! _ +R#Z! _ <00>+(ERROR #Y*,<2C>G"*7,<2C>6<EFBFBD><19> <0B> b + <0C><19> + <0C>*_ %+<2B>(ABORT" #3 s b <00>
|
||
X O
|
||
<EFBFBD> <09> $ h $ #3 s b <00> <09> $ h $ _ z+FABORT" #<23><18>+ $ _ <00>+FERROR" #<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>-LIST #+ <0C> Scr +<2B> <0B>#C+<2B>}<7D>$ $ c OSTATEZ! 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 $ c g A" #<23>l $ d t <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[$ RH<>b R[$ R%<25>b <00>[$ <0B>$ #R,<2C> 1s R.1|
|
||
$ #N <1D> [1; <0B>N # $ Z! g H NUMBER? #F <09>)<29> *<18> N <1D><0F><0F>
|
||
R R <00> <0C> R <1D> R-<2D>b [<0F>
|
||
<EFBFBD> R <1D>
|
||
b F <0C> R <1D> %LEARSTACKZ <1F><14><04>H<><04><14>l i K HALLOT #<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<><02><02>F<03><0F><02><0E><18> <1C><03><0E><> <1C><0F><18> h<><68> l<> #O
|
||
* <1F> <0B>" $ j 8 EDOES> #<23><18> Rl|<18><18> $ #<23> R<0F><>
|
||
R<0F>1 R 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>$%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 #
|
||
<EFBFBD> <0B> b <00>
|
||
<EFBFBD>1s <0C>!<21> b "
|
||
<EFBFBD>
|
||
$ <13><>2
|
||
$ #*R <1F>
|
||
<EFBFBD>
|
||
$ n m"NAME> #<23> "s <0C> R <20>
|
||
b <00> $ n <00>">BODY # $ n <00>".NAME #SER #<23>!<21><0F>#|<18> <20>8<><02><07>F<14><02> <18><04><07>H<EFBFBD><05><01>l p C#ALIAS #<23>!* <1F> <0B> <0C> R <20>
|
||
b <00><0F><><EFBFBD> R <20> " $ q <00>#VPZ! %%%l_% q ,$CURRENTZ!%q e$CONTEXT #1$<24> <0C> <0B>
|
||
$ #1$ _$$ q u$ALSO #1$<24> R
|
||
<EFBFBD>~+Vocabulary stack full_$<24> <0B>1$# _$ $ q <00>$TOSS #<23><0F><>1$#<13><>h $ t <00>%(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><50><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 v L%FIND #_$<24> <0C> <0B> m<0F> 1b md
|
||
<EFBFBD> T%b 2
|
||
/&$ <0B> 1$ #b
|
||
ly '; <0B> <1E>b <00>'s' #-)V<1B>&<26> b b _ s'Is' '; <0B> <1E> b b s && <00>'s'y <00>'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<68> <1C> ȅ <1C>l z i((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><0F># <0C><19><0F>)$ ] *RDEPTH #<23> <09> <0B>
|
||
1<0E>$ ] 8*DEPTH #
|
||
<EFBFBD> <09> s 1<0E>$ #<23><1B> b <00>
|
||
compiling$ <0B> ok$ ^ s*(QUIT #<23>)7<><19>'<27>* <13><>^ <00>*'QUIT](<28>*^ <00>* + $ ` <00>+BLy# ` <00>+ -TRAILINGW+<2B> <20><0E><07>&<18><07>%<25>'<27>$<18><13><>&I <20> HP<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 #kb R-i,$ <0B> <00>,# #F <09> <0B><17> R <09> <0C>b R
|
||
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> ]
|
||
1b h $ <0B> <0C> b <00>- <13><>]
|
||
s $ <0B> <00>-UNLOCK #<23> .<2E>$ <0B>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<>
|
||
<EFBFBD> /.FILEV# <1C> <00>.PREVZ!<21><>Z! <00> <00>.B/BUFy#<04><02>(Y" PH<>P<>`<60> <0C> <0B> <0C>.<2E> <0B> <0C>. <13><><EFBFBD> <00>.(DISKERR #<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><> <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> <00>1UPDATE #R<0F><>.<2E> "<0F><0E> $ <0B> H1 SAVE-BUFFERS #<23>.. 1<> b ,0 <13><><EFBFBD>.8.$ <0B> <00>1
|
||
EMPTY-BUFFERS #<23>..<2E>.<2E> <0B> b
|
||
<00> <0C>0 <13><><EFBFBD>.8.$ <0B> 2FLUSH #<23>1 2$ #<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>
|
||
" <0F> <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(FORGET #<23> @ <20>+ is symbol<6F>3<EFBFBD>5$ <0B> <00>5FORGET #V&<26> <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<13><>]
|
||
<EFBFBD> <09> <01>$ <0B> '6BYE #g2
|
||
6T;$ #<23>7<EFBFBD>1b [ $ <0B> `6STOP? #<23>7b <00>6<EFBFBD>6<EFBFBD>$ <0B> <00>67 <00> <00>7KEY?<3F>7<02> <00>7DECODE<44>7<04> <00>7EXPECT<43>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+DEFINITIONSz% #
|
||
<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'RESTART](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 #<23>9<EFBFBD>b <00> b 7/$ <0B>9<EFBFBD>b
|
||
<00> <0C> $ <0B>
|
||
<EFBFBD>
|
||
<EFBFBD>
|
||
<EFBFBD>
|
||
s <0C> O
|
||
<EFBFBD>6<EFBFBD>$ <0B> <00>9 C64EXPECT #<23> <0C><0F> <0C><19> 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>:<3A><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>;<3B> R<14>
|
||
$ <0B> <00>;DRIVE #<23>;<3B><15> $ <0B> <>DRIVE #<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>=BUSTYPE #<23>: <00><12> <0B>=<3D><12><12>-$ <0B> <00>=BUS@A= <20><>lZ<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
|
||
$ `?b h 2
|
||
$ <0B>s <0C><15><15><0F>). h <0C>
|
||
<EFBFBD><12> b
|
||
<00>>C> <00>>?<3F>
|
||
<EFBFBD>><3E>
|
||
O
|
||
<EFBFBD> b b<15><12>"
|
||
<EFBFBD>
|
||
<EFBFBD>?$ #R<0F>Es R<0F>E<11>
|
||
<EFBFBD>b s <0C>s $ <0B> <00>?INDEX #%@)! 7<><12>-<2D><12>1<EFBFBD>R%7<>6b b<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>*<2A><>.<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>b 2
|
||
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>.<2E> <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> "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><<3C> <20><<3C><18><02><07><02>l{<<3C> <00><?DEVICE #<23><.<2E><$ <0B><<3C><><EFBFBD> <20><0E>& <20><<3C>& <20><><EFBFBD>$ ` <20><><EFBFBD>&<26><>l,9<> Q<BUSOUT #<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=l u1:13,0,*<18>=<3D>><3E>=<3D><<3C>-<2D>=; <0B>;R
|
||
<EFBFBD>=<3D>>T=<3D><<3C>$ <0B> <00>> WRITESECTOR #<23> <0C>;R=l b-p:13,0*<18>=<3D><<3C>;R
|
||
=<3D>><3E>=<3D><<3C>;R=l u2:13,0,*<18>=<3D>><3E>=<3D><<3C>-<2D>=$ <0B> <00>>DISKOPEN #<23>;R
|
||
'=R#<23>=<3D><<3C>=$ <0B> u? DISKCLOSE #<23>;R
|
||
?=<3D><$
|
||
%@)1 7<><12>-<2D><18> <0C><12><15><15>>C><3E>
|
||
<EFBFBD>R%7O
|
||
<EFBFBD>6|
|
||
b b<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<> <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><>l<> <00>b2@Ib<49><07>$<24><07>%<25>8<><02><07>F<14><03>$<24><07><10>l,9 Bb 2VARIABLE #<23>!<21><0F>$ <00>b 2CONSTANT #<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><><02>'<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<51>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>cGb<47>
|
||
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><15>YdGc<47>R<0F><>$ #<23>YdGc<47><15>$ #<23>1m<0F> $ #<23>9<EFBFBD>-<2D>7b<13><><EFBFBD>9$ #<7<>h<EFBFBD>g<EFBFBD><0F><0F>b<EFBFBD> Scr # +<2B> <0B> =-<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 DIGDECODE #<23>9<EFBFBD>b <00> b 7/$ <0B>9<EFBFBD>b
|
||
<00> <0C> $ <0B><><EFBFBD> % b h <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<> b 2
|
||
$ <0B>1<11> ; S<>+<2B> <0B>c<EFBFBD> 1<0E>6<EFBFBD><10>
|
||
<EFBFBD> b kb
|
||
<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 keyboard$ - 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> |<18>q$ ]rBRK<52>r <00>rCLC<4C>r <00>rCLD<4C>rX <00>rCLI<4C>rx <00>rCLV<4C>r<EFBFBD> <00>rDEX<45>rJ <00>rDEY<45>r<EFBFBD> <00>rINX<4E>r<EFBFBD> ErINY<4E>rH PrNOP<4F>r<EFBFBD> <00>rPHA<48>rh <00>rPHP<48>r <00>rPLA<4C>r<EFBFBD> <00>rPLP<4C>r( sRTI<54>r@ sRTS<54>r` sSEC<45>r8 (sSED<45>r<EFBFBD> 3sSEI<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 ASSEMBLER<45>$<24>w<EFBFBD>w%{ PUSHAy#P{ <00>aPUSH0Ay#Z{ NaPUSHy#<23>{ <00>aRPy# { <00>aUPy# { <00>aSPy# { bIPy# { bNy#$ { bPUTAy# { bWy# { -bSETUPy#<23>{ 7bNEXTy# { ebXYNEXTy#,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!u Z!- Z! Z!o Z!<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<>$H<>(<28><>J<EFBFBD>
|
||
<EFBFBD> <20>$ dl<64>d<03> ; <0B>c<EFBFBD> b re<72> ; fe$ #<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> b b<15><12>$ #R<05>) R<0F><>:<3A><12><12>$ #g7<67><0F>b*c<>c<EFBFBD><0F>e$ #<23>dGcC+<2B><18>$ #<23>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>gRVSOFF #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: <20>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(SEARCH#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>e f<>e<EFBFBD>efefefeEerefe<66>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> [1b Xm<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><0F>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>bjfh <0C>c<EFBFBD>$ + 1oEDIT #+ <0C>h<EFBFBD>nxoR<18><0F>b<EFBFBD> Scr +<2B> =-<2D> <0C><0F>
|
||
<EFBFBD>b <00> not <20> changed<65> <0C><0F>
|
||
b <00>1<EFBFBD> R<06>
|
||
R1b <00> , savedR<14>
|
||
b<13> <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>qINDEXZ! <11> <09>
|
||
<19><><EFBFBD><EFBFBD> <08><><EFBFBD><EFBFBD><EFBFBD> <1C><>,Z! <00>qMODE: #<23>!|<18> l<> <20> <0B>q $ <00>q.AKq Xq#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>$ rCPU #<23>!|
|
||
<EFBFBD> _sTXA<58>r<EFBFBD> <00>sTXS<58>r<EFBFBD> <00>sTYA<59>r<EFBFBD> <00>sM/CPU #<23>!|I<18> l<> <20> <0C><0E> R<0F><>
|
||
b R<10>q# <0C> <0C> <00><>
|
||
r rb <00>q[<0F>+invalid<69> <0B>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>
|
||
|
||
vCCy#<23>
|
||
v0=y#P
|
||
v0<>y#<23>
|
||
+v0<y#
|
||
7v0>=y#0
|
||
bvVSy#p
|
||
nvVCy#<23> u$ gwWDEC #<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;CODE #<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<> <20> $ <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>yTRACEL: #<23>!I<18> l<> <20> <0B>x# $ 4 Qy+DO<44>y<EFBFBD><79>4 <00>y-DO<44>y 4 <00>y+R<>y<EFBFBD><79>4 z-R<>y 4 z+PUSH<53>y<EFBFBD><79>4 z-PUSH<53>y Z!,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 CLRSCREEN #v_<76> <20><0F>$ Z! <1D>Z!<01>Z!<21><>Z!(<28>Z!PZ! ٩<1B>P<><06>P<>I_<49> P`<60>;<3B>P<><18>P<>M_<4D> P`<60>Q_8<5F>0jjj8<6A>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><>MOVE #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<>HIGH #<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<43>_ <00><>"PC!<21> <00><>"BG<05> <00><>*FULLSCREEN<45>` <00><>+SPLITSCREEN <09> <00><>XCOR #<23><><EFBFBD> _$ <00><>YCOR #<01><> _$ Q<>SETX #<23>^<5E><> $ <00><>SETY #<23>^<01> $ <00><>SETXY #<23><><EFBFBD><EFBFBD>$
|
||
<EFBFBD>PENDOWN # ȭ$ <1C>PENUP # <0C><>$ .<2E> TURTLESTATE # Ȓ ^_<> <0B> R<0F>
|
||
s R$ ?<3F>"FD<46><44> <00><>"BK5<4B> <00><>"TSm<53> #3 *<18>-<2D> 1<0E>(,77$ #<23><18><> $ #<23><>Forth Gesellschaft e.V.$ #<23><>*** ultraFORTH-83 ***$ #<23><>(c) 1985<38><35>!Bernd Pennemann Klaus Schleisiek<65><6B> Georg Rehfeld Dietrich Weineck$ #<23><>g
|
||
en<EFBFBD><EFBFBD>verfolgen und verhindern.7<><37>Die Mitglieder der<65><72>$ ? <00><> .MESSAGE2 #'7<><37>Wenn's gefaellt,7<><37> 2 Original-Disketten mit dem ...<2E><>"+ dem kompletten Quelltext des ...<2E><>"Graphic, Tools u.v.a. fuer das ...<2E><> ca. 200 Seiten Handbuch zum ...7<><37>7<><37> Fuer Mit 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>RG<>) <00>?RF<>1<0E><0F>-Ď<0F><12>$ ; <00><>STOP<4F>Υ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><0F>]
|
||
<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> sl v v v v v v 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<75><76>v<EFBFBD><76>v<EFBFBD><76>v<EFBFBD><76>v<EFBFBD><76>v<EFBFBD><76>v<EFBFBD><76>v<EFBFBD><76>v<EFBFBD><76><EFBFBD> <00>8 a<>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> <0C>:R1b<13><>$ TESTSLIDE LA<03><> <00><>PLP<03>( <00><>RTI<03>@ <00><>RTS<03>` <00><>SEC<03>8123BK<42>ED<03><> K<>SEI<03><> V<>TAXԪ <00><>TAYԨ <00><>TSXԺ <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>` <00> <00>` <00>` <00>` <00>` <00>` <00>` <00>` <00>` <00>` <00>` <00>` <00>` <00>` <00>` <00>` <00>`
|
||
<00>` <00>` <00>` <00>` <00>` <00>`
|
||
<00>` <00>` <00>` <00> <00>` <00>` <00> <00> <00> s <00> <00><14>$ +ud<15> d<>Gt#Ek RamDisk full $ +ud uSt$" >uDELBLOCK +<2B> u<>1"dus1<16> u<>St$ +<2B>,u1$# <00>u SEARCHBLOCK +<2B>Tuju<6A>h$ +<2B>ub <00>4u"<15><13>s d#<19>3damaged
|
||
h dC3<43> $ +<2B><08>ub <00>u h<08>u4u d<>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<16> Jb <00>$no space
|
||
; <17>t??$& <00>vRDNEW +<2B>v<EFBFBD>tb KtSt$& <00>v'RDCOLD]0<>& <00>vRDCOLD +<2B><17>v<EFBFBD>0*8<>tqb <00>v<EFBFBD>tb w$'
|
||
w?BREAK +<2B>>Ekbreak$' 3w?ERROR +<wb
|
||
<00>$error$' lw.RD<52> <00> +<2B>tF<11>1<EFBFBD>$?<3F>$ limit : ;l5?<3F>$ firstblock:Ktl5Ktm ;1quw?<3F>$ afterblock:ul5Ktu#uw?<3F>$ rdlimit :Gtl5uGt#uw?<3F>$ r/w is now:<3A>(8<>*<2A><08>u*G*<2A> #uw$ +<2B>?<3F>,u<> 54<><08> 5<><08><13><08> 54<><08> #uws4us<08>s<08>s<08><>)<29>a <00><><EFBFBD><13>R<>b
|
||
R1<16>/C3w?R#<23>b<> <00>` <00>` <00> <00>> h<08><16> d#b b <1D><><EFBFBD><EFBFBD> d#uw<75>$) <00>wRDCHECK +<2B>w??<3F>$)blk adr len headerline exp ?<3F>$(---- ---- --- --------------- ------ ---<2D> xjuh?<3F>$ end:<3A>l5u1uw$* wt SAVERAMDISK +<2B>tKtmu<>l$* !y LOADRAMDISK +<2B>tKtmGtUl$* ?yLOADDOWN +m<> <00>y<> <01>1$t ]y
|
||
SAVESYSTEM +3k<7F>3 3k<7F> 3<08>t<EFBFBD>k<7F>.><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<7F><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><>
|
||
<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)u Z) <00> <00>` <00>` Z) Z)q Z)<29><>Z) Z)<29><> Z)7<> Z) <00><>Z) <00><>y+H y+J y+<19>y+;y+<15><>$<18>)<29>$<24><02>%<25>&<18>(<28>&<26><02>'`<60>[<5B> <20><16>&<26>><05>'<27><19>'<27>$ <20>z<EFBFBD>&<26><10> <20>[JP<4A><50>;<05> <14> <09>
|
||
<EFBFBD> <0B>P<EFBFBD>lUz<55>[<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>\<5C>;[<17>\h[<5B>/<17>C31q<16><15>\q<16><15>;R<17><>b$ +<2B>\<5C>;<13>[<5B>b Z\<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?Gz<47>[<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_FORTH-GESELLSCHAFT v[STAMP$Z) clv04jun87 +<2B>_<EFBFBD>* <20>\h[<5B><15>1s \<5C>$ <00>_GETSTAMP +<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>$updated<65><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>$PF%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>lq<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>%%b h<08><12><15><15>s<08>O<12>><3E>$h$" w<>DIGITS<54>?Xa<58>a<EFBFBD><61>xb +<2B>[<5B><13>)<29>
|
||
<00>a<EFBFBD>b<EFBFBD><62><EFBFBD><EFBFBD><EFBFBD><17>[<5B><13>)<29>
|
||
Z\|<15><><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?1F?<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>z 3<>3<><13>9<EFBFBD> d 3<>1<16><><EFBFBD>b <00>
|
||
3<><13>91 3A`$ +<2B>`h<13><><EFBFBD> 3<>b' <00>?<3F>Rr1b
|
||
LEARSTACKZ'<27><14><04>H<><04><14>l i K'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<><02><02>F<03><0F><02><0E><18> <1C><03><0E><> <1C><0F><18> h<><68> l<> +O*'<27><13>*$j 8(EDOES> +<2B> <20>(Rl| <20> <20>($ +<2B>R<17><>R<17>1 1$ +<2B> R<17><>R<17>1b <00><08><08><16> <20>1<16><16> <1F>*'#<08><17> $k <00>(?HEADZ) k )| +
|
||
)<29>;[
|
||
)$l )WARNINGZ) +0)<29>;*'<27>o,<2C>T-2b 4*'<27>G*<2A>$exists <20>>$l &)CREATE +<2B> <20>!<21>I o,<2C><13>I V#<23><13><08>R <20>q<16>3 invalid name<6D> *'<08><16> 4)
|
||
)<29>b <00>
|
||
)#<08><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 +<2B>&<26><08><18>3?kb X$h 'LASTZ) +*'<27><13>$h #'HIDE +.'b m<17>o,<2C>$h :'REVEAL +.'b
|
||
mo,<2C>$h w'IRECURSIVE +`'$ +.'b d<15>|<15><08>h$h <00>' IMMEDIATE +R@<40>'$h <00>'RESTRICT +R<17><>'$i <00>'
|
||
C R(h`'<27>I <20>(l<>(<28>)<29><07>(<28><07>)<29><18><02><07><02><14><07>&<26><07>'&Plt<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>$n m*NAME> +<2B>*s<08>R <20>b <00>$n <00>*>BODY + $n <00>*.NAME + +b <13>h<13>$ +b hOb }<16>hN%<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) g H%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<><02><02>F<03><0E><02><0F><02> <18><02><0E><> <1D>l o <00>*A; +<2B><17><1B> $0`'$o 0+CONSTANT +<2B>)I <20>(<28>8<><02><07>F<14><02> <1C>H<> <1C><01>l o f+VARIABLE +<2B>)<29><17> $p <00>+UALLOT +<2B><12><13>R<17>#<19>3
|
||
Userarea full<12>s#$p <00>+U
|
||
d F$\NEEDS +V#<23>.2b <00>$$d W$HEX +RF$d <00>$DECIMAL +R
|
||
F$e %DIGIT? +R01<16>R #b R<17>1<16>R #b F<11><13>#<19>;h<08>$e %
|
||
ACCUMULATE +s<08>sF<11>\ h<08>F<11>\ <1D>O$e [%CONVERT +<2B>* %%b <00>% <1B><>/$ +<2B>&<26><13>$ +* [<17>&#$ +/* $f <00>%DPLZ)<29><> SER +<2B>)<29><17>+| <20>(<28>8<><02><07>F<14><02> <18><04><07>H<EFBFBD><05><01>l p C+ALIAS +<2B>)*'<27><13><08>R <20>b <00><17><><EFBFBD> R <20>'*$q <00>+VPZ) ---vz~j q ,,CURRENTZ)-q e,CONTEXT +1,<2C><08><13> $ +1, _,$q u,ALSO +1,<2C>R
|
||
<EFBFBD>~3Vocabulary stack full_,<2C><13>1,#_,$q <00>,TOSS +<2B><17><>1,#+C3<43>#}"$$c O#STATEZ) c <00>#eASCII +C3<43>#<23><16><13>#<23>b &$c <00>#," +R"<22>#<23> <20><08><16> $c $<24>"LIT +OOd* <20><15><12>$c ,$<24>(" +3$$c g$A" +<2B> l$$$d t$<24>(." +3$* ?$d <00>$B." +<2B> <20>$$$d <00>$a( +R)<29>#<23>$d <00>$b.( +R)<29>#?$d <00>$a\ +<2B>!<21><13>5 <1F><16>5<EFBFBD> <1D>!$d <00>$b\\ + d<>!$ 3$$` <00>3BLy+ ` <00>3 -TRAILINGW3<57> <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>
|
||
4SPACES +<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 +kb R-i4$<13> <00>4# +F<11><13> <1F>R <09><08>b R -<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>2SCRZ) _ 3R#Z) _ <00>3(ERROR +Y24<> G** ?4<>><3E>!<21><13>b 3<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><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>!<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><17>!#<08>!<21><17>1$] 2RDEPTH +<2B><11><13> 1<16> $] 82DEPTH +<12><11>s1<16> $ +<2B>#<23>b <00>$
|
||
compiling$<13>$ ok$^ s2(QUIT +<2B>1?<3F>!<21>/<2F>2 <1B><>^ <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><> "; ALLOTBUFFER +*;<3B><13><11>1<16>6 J;<13>6<EFBFBD>*;#*;<3B><13><08>8<EFBFBD>6<EFBFBD><13><08>6$<13> 0;
|
||
FREEBUFFER +*;<3B> ;<3B>61Jb( <00>9<EFBFBD><08>*;<3B>1b <00> <1B><> V.<2E><08>0<EFBFBD>*<2A>#<23>b
|
||
<00> <20>0I $$ +[2R <20><18>3 tight stack`'.'b <00>@(b <00>* <00>1<16>=[<17>3dictionary 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 empty\ $1.STATUS]0ikZ)OO$\ <00>1<EFBFBD>PUSH +Os<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>66 9<>b ,8 <1B><><EFBFBD>686$<13> <00>9
|
||
EMPTY-BUFFERS +<2B>66<>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>9mmQ9$ +<2B>9<EFBFBD><12><08><12><15>#<19><12>JO<12>b$ <00><12><12>O<12>:<3A> ly /;<13>&<26>b <00>/s/ +-1V#<23>.<2E>b b _s/I s/ /;<13>&<26>b b s&& <00>/s/y <00>/a[ +<2B><17>/<2F>0u/<2F>#<23>$y 0] +<2B>Q/<2F>0u/<2F>#<23>$ +[<17>3Crash$z %0DEFER +<2B>)<29>90I <20>(<28><02> hH<68> <1C> ȅ <1C>l z i0(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> }9BUFFE sm <1B><>2<15>$v <00>.' +V#<23>.<2E><18>3Haeh?$v R.I[COMPILE] +V.I $v <00>.C['] +V.&$v / NULLSTRING? +<2B><08><13><18>b 2$H<18> <1C><02>H<> <1C> <00><0F>l w /
|
||
>INTERPRET0/<2F>/x f/NOTFOUND]0<>/x y/
|
||
NO.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(DISKERR +<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><> <17>Vh$ + <17><08> <17>$ +<2B><08>8<EFBFBD><11>1T<11>1Y2<59><12><08><11><13>
|
||
<1B><>h$t <00>-(FINDV-<2D><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><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><07>$<24><07>8<><02><07>F<14>&H
|
||
0<05>i<EFBFBD><69>H<EFBFBD><48><03><>$<24><><01>l v L-FIND +_,<2C><08><13>m<17>1b md<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>(<28><07>)<29> <00>l&<13>(<28>*<2A>)<29>+<2B>*<2A>(<28><01>*<2A>)(Pl <20>6P<36><50>(<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>b 2 R<><52> $r <00>,
|
||
VOCABULARY +<2B>)<29>I <20>I <20> <12>I <08>(l<>(_,$r J,FORTH<54>,lzlz r <00>,ONLY -@@
|
||
-<2D>(l<>(<28>1,_,<08>,$r - ONLYFORTH +--<2D>,z-$s 2- DEFINITIONS +_,<2C>o,$ +<2B>mu*G*$s l-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>5LOCK +<2B><08>]1b h$<13><08>b <00>5 <1B><>]s$<13> <00>5UNLOCK +<2B>6<>$<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> /6FILEV+ <1C> <00>6PREVZ)<10>Z) <00> <00>6B/BUFy+<04><02>(Y" PH<>P<>`<60> <00>=(FORGET +<2B>@(<28>3 is symbol<6F>;<3B>=$<13> <00>=FORGET +V.<2E><08>$<10>J<18>3 protectedu*<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> '>BYE +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<19><>:<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<49>&<26>><3E> <20><><EFBFBD>?<3F><>$ `<60>><3E> <20><><EFBFBD>?<3F><>&<26><>lca<63> <00>eBUSIN +<2B>d6<>e$<13> <00>eBUS!|e<><07>><3E> <20><><EFBFBD>?<3F>l<EFBFBD><12> SeBUSTYPE +<2B><>:<3A> <00><><EFBFBD>Ze<5A><65><EFBFBD><EFBFBD><EFBFBD>5$<13> <00>eBUS@f<>><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>b b <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<16>;<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 #$ +n F<>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>?<3F><>><3E> <20><><EFBFBD>?<3F><><EFBFBD><EFBFBD><05><>l<EFBFBD>d`<60>d<EFBFBD> Id<49><18><02><07><02>l<>d<EFBFBD> <00>d?DEVICE +<2B>d6<>d$ e<><65><EFBFBD> <20><16>& Id<49>&<26>><3E> <20><><EFBFBD>?<3F><>$ `<60>><3E> <20><><EFBFBD>?<3F><>&<26><>lca<63> eBUSOUT +<2B>d6 e$<13> leBUSOPEN +R<17>|ue$<13> <00>eBUSCLOSE +R<17>|ue<75>d$<13>e<EFBFBD> +<12>l<EFBFBD> 1$<13>m<EFBFBD>h<EFBFBD>>l<><1B>m<EFBFBD>JI(<28><><02>'<27>Hh<48>I<EFBFBD> l<><1B>m<18>J<EFBFBD>Hh<48>I<EFBFBD> l<> +<2B>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>C31q<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<57>;R <1D>b$ +<2B>m<EFBFBD>lU32<15>l/<17><19>l<EFBFBD> <02><> <00><07>lZ<1B> <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>><3E>lr<6C><72> TcB/BLKy+ <04> <00>cBLK/DRVy+<2B> Z) +d<>R<14>$<13> dDRIVE +d<> <1D>$<13> 'd>DRIVE +d<> <1D><15><11>1$<13> =dDRV? +<2B><11><13>d $<13> xdDRVINIT +<2B>$<13> <00>dI/OZ) <00> <00>dBUSOF ) Z) Z)e Z)<29><>Z) Z)<29>^ Z)<29>^ Z) a^Z) <00>^y+H y+J y+<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> <00>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><>8<>><3E> <20><><EFBFBD>?<3F><>(<28><><02>(h <05><07>$<24><07>%<25>8<><02><07>F<14><03>$<24><07><10>lca <00>k 2VARIABLE +<2B>)<29><17> $ <00>k 2CONSTANT +<2B>)I I <20>(l<>(<28>k$ <00>kUNLINK +<2B><17><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<35>jy+( y+ y+<2B> SHADOWZ)u Z URON<4F>a<EFBFBD>J<18>H<EFBFBD>
|
||
<EFBFBD><EFBFBD>I<EFBFBD> <00> <0B> <0C>l <00> <00>aCUROFFBa<42><61><EFBFBD> <0C><>
|
||
<EFBFBD>l <00> <00>aC64KEY +<2B>a<EFBFBD>5<EFBFBD>ab<1B><><EFBFBD>a<EFBFBD>a$<13> Oa#BSy+ <00> <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>{ <00>jRPy+ { <00>jUPy+ { <00>jSPy+ { FjIPy+ { QjNy+$ { |jPUTAy+ { <00>jWy+ { <00>jSETUPy+<2B>{ <00>jNEXTy+ { kXYNEXTy+ca{ kPOPTWOy+<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>2 3<> <00>@COLD<4C>@<40>@h<><68>h jx<6A> <18> <10><06>$<24>!<10> <00>%<25><10>$HP<48> j<><1B><11> <00><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>hla<> laC64KEY?<3F>a<EFBFBD><61>
|
||
]<05><02><>hl<68><1B> <00>aGETKEY<45>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><><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>?<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>?KEY?<3F>?<02> <00>?DECODE<44>?<04> <00>?EXPECT<43>?<06> SEAL +<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>$ultraFORTH-83 rev3.51 ;<3B> 1l5<6C>$
|
||
bytes free E<19><15>b s<08>s$<13> <00>gINDEX +<2B>h)<29>! ?<3F><><EFBFBD>5<><35><EFBFBD>9<EFBFBD>R%?<3F>>b b <1D><><EFBFBD><EFBFBD>$<13> <00>hFINDEX +<2B>gb <00>$<13>h)<29>1 ?<3F><><EFBFBD>5<> <20><08><><EFBFBD> <1D> <1D>f g<><12>R%?O<12>>|b b <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><>0i<30><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>>TYPEE><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<>(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> Rg1541R/W +s<08>3no file"d<> <1E>d<08>#b<1B> =5<>$beyond capacity2$<13>gb h2$<13>s<08> <1D> <1D><17><>)<29>. h<08><15><><EFBFBD>b
|
||
<00>f g <00>f<EFBFBD>g<EFBFBD> g<>O<12>b b <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> <1F>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 WRITESECTOR +<2B>dRuel$b-p:13,0* <20>e<EFBFBD>ddR
|
||
ue g<>e<EFBFBD>dd <13>1b 3nr<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>wR<17><>bnrh<08>l<EFBFBD><17>?<3F><08>l<EFBFBD><13>?v_<13>v<EFBFBD>b<1B><><EFBFBD><17>1?<3F>nh<08>l<EFBFBD><17><17>w<EFBFBD><17><17><07>$+ <00>wEDIT +3#q&wxR<18>1?<3F>$Scr 3<> =5<><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<>Cw$, 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><15><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 EDIDECODE +R<17><>b
|
||
<00>l<EFBFBD>?$<13>a<EFBFBD>b< <00>l<EFBFBD><17>y<EFBFBD><08>!<21>#b h<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 EDIEXPECT +&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>z 1b <00>s<EFBFBD>b 2$<13>1<19>; S<>3<><13>l<EFBFBD>1<16>><3E><18><15>b kb
|
||
<00>rh <00>rh <1B><>[$ +<2B>#R@1$Z) <1F>
|
||
<EFBFBD> <0C><><EFBFBD><EFBFBD><EFBFBD> <1E><><EFBFBD><EFBFBD> <11><><13><> <0F>Z)<29>r<EFBFBD>r<EFBFBD>r<EFBFBD>rzu<7A>oAnAnrr8rcr o<>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<53>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<><61>ańa<>$ +<2B>[1b x<><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><13><12> O<12>[<08><17>_* <20><12>[ <17><13><12> O<12>[$ +<2B> <20><><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>lmw?1F?<3F>!<21><13>b <00>l1?<3F>l<EFBFBD>k t<>1?<3F>l <17><13>lmw?1F?<3F>!<21><13>b <00>l1?<3F>l<EFBFBD>k t`phq1?$ +nrh<08>l<EFBFBD>k 3<>3<><13>9<EFBFBD> d 3<>1Jr<4A>b <00>
|
||
3<><13>91 3<08>q$ +rh4t u 3<>b' <00>?<3F>Rr B¥b 2$<13>1<19>; S<>3<><13>[<5B>1<16>><3E><18><15>b kb
|
||
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><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>5R<17><>)<29> <00> <00>r DIGDECODE +<2B>a<EFBFBD>b <00>b ?/$<13>a<EFBFBD>b
|
||
<00><08>!$<13>"<22>%%b h<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>;<13>l<EFBFBD>k<EFBFBD>ms>mrh$ +?R<<3C>><3E>l/w?1(4$ +<2B><11>1<EFBFBD>k/q<?lp<6C><17>1?<3F>$replace with: <?<3F>l<EFBFBD>k t<><17>1?<3F>$> searc 1b 3-<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><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><> <00>$
|
||
from keyboard$ +<2B>[<5B><13>[<5B><13>$, <00><>CURLIN +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><08>l<EFBFBD> <1F>l11 d/<17><19>l<EFBFBD><16> s1?$ +<2B>kRNq$ +r3<><13>9wmb <00>ph3<><13>9mQ9R|$ +rR|$ +8rR|$ +3<><13>9<EFBFBD>l<EFBFBD>l<EFBFBD><17>k<EFBFBD>q<EFBFBD>$ +rh<08>3#nr$ +rh j<>b,<2C>R<1B>bRk<>bR <1D>b,ȼ1$- <<3C> EDIDECODE +R<17><>b
|
||
<00>[<5B>?$<13>a<EFBFBD>b< <00>[<5B>eȀ<08>!<21>#b h<08>!<21><13><>:<3A> <00><15><15><><EFBFBD>)[s<08><13><16><><EFBFBD><EFBFBD><EFBFBD><08>!$<13><08>[<5B>R <1E>_<13><>h$- <00><> EDIEXPECT +Ə!<08><17><08>!<21>Jb
|
||
<00>?<3F>? <1B><><EFBFBD>4$- <00><>EDIBOARD<52>?Xa<58>a<EFBFBD><61><EFBFBD><EFBFBD>l <03>PRINT<4E>,<2C>ɐ<EFBFBD>f[l PRINIT +<2B>R *** <00>pFORTH-GESELLSCHAFT <00>lSTAMP$Z) clv26.4.87) +<2B>p<EFBFBD>* <20>m<EFBFBD>l<EFBFBD><15>1s>m<>$ <00>pGETSTAMP +<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$l s<>PSPACES +<2B>:<3A>
|
||
C3Ze<5A><65><EFBFBD><EFBFBD>$m <00><>PCOLZ) m <00><>PROWZ) +Ze<5A><17><>#$ +zɄ<17><>#<08><17><>$ +$ +R<17><><17><><08><17><>$ +<2B><08><><EFBFBD><13>b <00><><EFBFBD><17><08><><EFBFBD>1<16><>:<3A> <00>Ɉ<EFBFBD><C988><EFBFBD><EFBFBD><08><><EFBFBD>1<16>Ɋ<EFBFBD>$ +<2B><><EFBFBD><13><><EFBFBD>$ +<2B><08><>#<08><>:<3A> <00><><EFBFBD>Ze<5A><65><EFBFBD><EFBFBD>$Z)<29>ɧ<EFBFBD>ʹɽ<CAB9>P<EFBFBD><06>m +<2B>PRINTER <0F><02><0E><02><0F><18><02><02><02><03>^z<> <1C>_z<5F> l Z)<29>zZ)<29>* <20><15><15>Os<08> $2 NPUSH +O"<15><08><12><12><08>1<16><08> <20>z<EFBFBD><12>$ +<2B>14<>!<21>/<2F>~<7E><> $<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>R 5<>(4u*G*R w?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>DISPLAY +?<3F>d<EFBFBD>c$n v<>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>$ Screen 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<>DEX
|
||
<EFBFBD>J n<>DEY
|
||
̈ y<>INX
|
||
<EFBFBD><EFBFBD> <00><>INY
|
||
<EFBFBD>H <00><>NOP
|
||
<EFBFBD><EFBFBD> <00><>PHA
|
||
<EFBFBD>h <00><>PHP
|
||
<EFBFBD> <00><>PLA
|
||
<EFBFBD><EFBFBD> <00><>PLP
|
||
<EFBFBD>( <00><>RTI
|
||
<EFBFBD>@ <00><>RTS
|
||
<EFBFBD>` <00><>SEC
|
||
<EFBFBD>8 G<>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>b t<><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<>LDA<͠<> <00><>ORA<<3C> <00> <00><>SBC<<3C><><EFBFBD> <00><>STA<̀<> <0B>ASL<<3C>
|
||
|
||
<18>DEC<<3C>A %<25>INC<<3C><> 2<> LSR<<3C>a
|
||
|
||
?<3F>ROL<<3C>!
|
||
|
||
l<>ROR<<3C><>
|
||
|
||
y<>STX<́ <00><>CPX<<3C><><EFBFBD> <00><>CPY<<3C><><EFBFBD> <00><>LDX<͢<> <00><>LDY<͠<> <00><>STY<̀<> <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> <20><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><>2INC +<2B><08><>(̎<17>˶̀έ<>!<21>s<08>8<>d<EFBFBD>$ <00><>2DEC +<2B><08><>M̎<17><>θ<>!<21>s<08>+<2B>d<EFBFBD>$ <00><>WINC +<2B>8<>C<EFBFBD>!<21>s<08>8<>d<EFBFBD>$ <00><>WDEC +<2B><08><>C<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> 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><>LABEL +<2B> <20><>i<EFBFBD>$0 Y<>TOOLS<4C>,2<>2<EFBFBD>9<EFBFBD>Z)$Z)<29>~<07>Nҡ<02><0E><02><0F><18><02><02><02><03><>х <1C> ҅ l Z)<05>Z)<29>* <20><15><15> Os<08> $2 NPUSH +O"<15><08><12><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> <00> <20><11>*Ұ<12><11>1<EFBFBD>bT<11>1`<60>?m<17><08> 5<><13>R 5<>(4u*G*R w?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 4 d<>TRACE' +<2B>m<01>V.%<25>_c$4 8ӅBREAK +<2B> <01>%<25>$4 w<>TRACEL: +<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><48><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 6 J<>WATCH' + <09>V<><08>V<> V.<17>_c$6 *<2A>CONT +V<><56><13>V<> <17>$ +<2B><08> 5<>$:$ +<2B><08>R 5$ +<2B><08><13>5$ +R$w?1<16><17>(4$7 o<>S +<2B><>4<>Ԣ(4<>* ?<3F><08><13><15><16><>$7 <00><>N +<2B><><EFBFBD>Ԏ(4<><08>u*G* <17><>$7 F<>L +<2B><><EFBFBD><EFBFBD> <17><>$8 <00><>D +<2B>s<08>Ԙ(4s<08>)<29>
|
||
<00><><EFBFBD><16><><EFBFBD><EFBFBD><EFBFBD>(4"?<3F><>$8 <00><>C +<2B><17><>$8 $ S<>B +<2B><><EFBFBD>Ԁ<08><13><08>R 5 <17><>$ <00><>T +<2B>$halo_<6F><5F>$laber $ q<>V1Z)$ <00><>T2 + <00><>T2 +<2B>$hallo<6C><6F><EFBFBD><13><17><>#$ <00><>GR<47>ա<07><><EFBFBD>5<EFBFBD><35><EFBFBD><EFBFBD><07><08><><06> <20><06><><07>)<29>$<24>0 <10><07><><12>)C <14><12><><08>) <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 6 J<>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><1B><><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<>8q9x<1B><><EFBFBD>9<EFBFBD> <1C>hH<68>l <1C> U9BUFFERy+<2B>9G9\<13> <00>9BLOCKy+<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>8x<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<12><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:<3A>\<13> <00>:COPYy+<2B>U:\<13> 3;CONVEYy+<2B>#F<17><15><16><<19><16>3neinU:\<13> d;LIMIT<49>+ <00><> <00>;FIRST* <00> <00>; ALLOTBUFFERy+<2B>;"B"<08><16>6a m(4s<08>)<29>
|
||
<00>\<5C><16><><EFBFBD><EFBFBD><EFBFBD>(4"?<3F>\$8 v]C +<2B>z]$8 <00>]B +H\V\<5C><08><13><08>R 5 <17>\$4 <00>[<5B>BREAK +<2B> `z<08>[$4 <00>[TRACEL: +<2B>)I <20>(l<>(<28>`z#$4 N[+DO<44>[<5B><>44 <00>[-DO<44>[ 4 <00>[+R<>[<5B><>4 \-R<>[ 4 \+PUSH<53>[<5B><>4 \-PUSH<53>[ Z)*\A<><18><02><0E><02><0F>8\<5C>$<24>9\<5C>%<25>$M:\<5C><15><02><>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>R 5$ +<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>\$8 d]D +<2B>sH\<5C> <0E><13>z<EFBFBD><11>1<EFBFBD><12>R<17><> <20>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#$4 N[+DO<44>[<5B><>44 <00>[-DO<44>[ 4 <00>[+R<>[<5B><>4 \-R<>[ 4 \+PUSH<53>[<5B><>4 \-PUSH<53>[ Z)*\A<><18><02><0E><02><0F>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><>X)<29><> <00><>)Y<><59> <00><>)<29><> +b t<><74>R|t<><08>t<><74>R<0F><15>b <00>)<29>
|
||
<00><08><15><><EFBFBD><EFBFBD><EFBFBD><08><16><13><15>$ <00><>CPU +<2B>)| <20>(l<>(<28>| <20><>$ <00><>BRK
|
||
<EFBFBD> <17>CLC
|
||
<EFBFBD> "<22>CLD
|
||
<EFBFBD>X -<2D>CLI
|
||
<EFBFBD>x 8<> 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
|
||
READSECTORy+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>?<3F>l<EFBFBD><12> fBUSTYPEy+<2B><><EFBFBD><EFBFBD> J f<><66><EFBFBD><EFBFBD>r6\<13> 1fBUS@\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> BdBUSOFFYd<59>><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>?<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><>(<28><><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?0chc<68>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> ndDRIVEy+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
|
||
PRINTABLE?c<> <20>b<EFBFBD>J<>l <1C> cC64EMIT2c<32> <20>b<EFBFBD><02>.lVb<56> &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>aGETKEY<45>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>aC64KEYy+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>@'RESTART<52>0<EFBFBD>iy+/<18>2C0<43>2<EFBFBD>d<EFBFBD>@/.";/<18>C0@3l3<6C> T@COLDa<>@h<><68>h jx<6A> <18> <10><06>$<24>!<10> <00>%<25><10>$HP<48> j<><1B>9<11> <00><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> 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?KEYG? <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>@+DEFINITIONS<4E>-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>{(<28>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<17>*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>( <00>"<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+<2B>;"<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[<19><1B> <00>5<EFBFBD>$beyond capacity<74>dh<> <00><08>d<13><17>) ) Z<17> <0E><><EFBFBD>. <00><08><15>
|
||
,g<>gx ,g<>gPqg<71><15><12><08> <00> <1D><><EFBFBD><EFBFBD>z<15>#h\y+
|
||
<18><><19>
|
||
<18><><19>-<19> <00>#<17>\<13> 2hINDEXy+Fh<46><68>! `?Ft5:#
|
||
%<25>?<3F>><3E> <00> <1D><><EFBFBD><EFBFBD>\<13> <00>hFINDEXy+h<> <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>iC64FKEYS<59>i<EFBFBD>J0 <09><>i<EFBFBD>]l<>il<69>a<EFBFBD> <00>iC64INITAiآ<69><D8A2><EFBFBD>><3E> <20><><EFBFBD>?<3F><>><3E> <20><><EFBFBD>?<3F><><EFBFBD>i<EFBFBD><19><><EFBFBD>i<EFBFBD><15><><EFBFBD>i<EFBFBD>@<05><><EFBFBD>@<05><13> <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 ASSEM IBLER=- gk<67>-{ PUSHA<48>+ { <00>jPUSH0A<30>+ { <00>jPUSH<53>+ { <00>jRP<52>+ { AjUP<55>+ { LjSP<53>+ { WjIP<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> Seitenanfang x <00>" ultraFORTH 83 ist ein <00> <00>" Public-Domain-Programm. }( <00> <00>2 <00>" Es darf (und soll) zu privaten H< <00>" Zwecken weitergegeben werden. Pf <00>:<3A> <00>p <00>" Die komerzielle Verwertung z <00>" Beha!
|
||
|
||
<00>(4112) <00>l<EFBFBD>a<EFBFBD>l<EFBFBD>al<06> <20>6 <00> <00> {<7B>k qdcB3Pj ! o*ultraFORTH-83 3.59-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 wRECOVERo*ȅ ȅ <1D> PF F l<>+ <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><07> <00> l 5SP!<21><12><07><><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 <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<><02><07>F<14><02><07>l <13>RDROP 1EXITf<13><02><0E><02>l =UNNEST^<13><02><0E><02>l s?EXIT<49><13><14><18><02><07><02>(P<>l <00>EXECUTE<54><13><07> <1C><07> <1D><18><02><07><02>l <00>PERFORM<52>+"<08>\ <00>C@L<13><07>$<24><07>%<25> <00><07>$l EC!<21><13><07>$<24><07>%H<><07>$<24><>!<05><04><07><02>l <00>CTOGGLE<4C>+<2B>J<13><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>$lo vDROP<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>!<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><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><><07><07>l<> =AND<4E>H<>1<07><07><><07>1<07>l<> yXOR~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 ! <00>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><01><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> <00> 7 <09> <00> 640:<3A> seitenvorschub x <09> <00>" Zum Lieferumfang gehoeren <00> <09> <00>" zwei beidseitig 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 eigenes 3
|
||
H <00>" Diskettenverwaltungssystem, daher [
|
||
R <00>" bitte immer die ganzen Disketten <00>
|
||
| <00>" kopieren und nicht nur die Files!!! <00>
|
||
<EFBFBD> <00> <00>
|
||
<EFBFBD> <00> 640:<3A> seitenvorschub G
|
||
<EFBFBD> <00>" Die Disketten enthalten: M
|
||
<01> <00>
|
||
<01>" Seite 1 -- System-Diskette <01>" - ! File c16ultraforth3.6 . "<01>" - File c64ultraforth3.6 d ,<01>" - File c16demo z 6<01>" - File c64demo <00> @<01>" - Hilfstexte & Kontaktadressen <00> j<01>" - Diskettenutilities <00> t<01> K ^<01>" Seite 2 -- Quelltext des Systems T <0B><01>640 <00> <0B><01>" Seite 3 -- Forth-Quellexte ! <0C><01>" - 6502-Assembler + <0C><01>" - Full-Screen-Editor d <0C><01>" - Debugging Tools y <0C><01>" - Multitasker <00> <0C><01>" - Drucker-Treiber <00> <0C><01>:<3A>:<3A> <00> B<01>" Seite 4 -- Grafik/Tape <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>" Hardwareanforderungen: )
|
||
<EFBFBD><01> s
|
||
<02>" C64/SX64 mit Diskettenlaufwerk ~
|
||
<02>" oder Kassetttenrekorder <00>
|
||
<02>:<3A>" oder":<3A> <00>
|
||
&<02>" C16/C116 mit min. 32kB RAM <00>
|
||
0<02>" mit Diskettenlaufwerk <00>
|
||
:<02>:<3A>" oder":!<0E> <00>d<02>" C16/C116/Plus4 mit 64kB RAM dn<02>" mit Diskettenlaufwerk <00>x<02>" oder Kassetttenrekorder <00><0E><02>:<3A> <00><0E><02>" Viel Spass mit ultraFORTH83 /clv25sep87 <00><0E><02> C<0E><02> **************** X<0E><02> ende der seite <00><0E><02> **************** <00>!<0F><02> <0F><02>"":<3A> positionieren n<0F><02>"**** (C) 1985,1987 bp/ks/re/we/clv **** <00><0F><02>"*Mitglieder der: <00><0F><02>"*FORTH-Gesellschaft e.V. c/o R. Mertins AF<02>"* Antilopenstieg 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 seite k<03> **************** q <03> z<03>"<22>" <00> <03>" ultraFORTH 83 - rev 3.8 <00>*<03>:<3A> <00>4<03> RTH83 /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>CLIT:<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 % wGLITERAL<41>+<2B>] <00>_<16>
|
||
<00>!]:!d<13>!8m!\& <00>0<<3C><18><03><>$<24><>l & <00>0=I<18><07><>P<EFBFBD>& BUWITHIN<49><18> <17><01>E$<24><07>"REVEAL<41>+<2B>'<27>
|
||
<00>U,";\h L'IRECURSIVE<56>+U'\<13>+<2B>'<27> <00>Jb<16><08><13>\h <00>' IMMEDIATE<54>+8@<40>'\h (RESTRICT<43>+8<18><>'\i *(
|
||
CLEARSTACKo(<28><14><04>H<><04><14>l i @(HALLOT<4F>+<2B>"<08><08><16>;<12><17><15><16><08>;<08><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&OP8 8 &g&'&8-<2D> <1C> 9AP &g&'&&<26> <00>; &g&'&<26>%Gg&<26>%X& &y&'&<26>%G<18><1B><>3&D&Gg&c&% &y&'&<26>T<>\g <00>&NUMBER<45>+<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>\e P%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<17><08><13>A\<13>+8&<26> <1C> 8
|
||
Ad8$<24> <1C> 8Ad8H<> <1C> 8Ad8%<25> <1C> <00>AdO\<13>+8,<2C><08><19>8"d H$<24>(."<22>+<2B>$<24> <20>?\d X$B."<22>+<2B>!<21>$<24>$\ d <00>$a(<28>+8)$ \d <00>$b.(<28>+8)$<24>?\d
|
||
%a\<5C>+<2B>!" 6<> q 6s <1E>!;\d %b\\<5C>+<2B>d<EFBFBD>!;\d ;%\NEEDS<44>+j$/<2F><15> #%\d l%HEX<45>+8<10>;\d <00>%DECIMAL<41>+8
|
||
<EFBFBD>;\e <00>%DIGIT?<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>!"<08><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\c c$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<>$<24><>!<21>$<24>%<25><>!<21>%<25>
|
||
<EFBFBD><07><>!<21><07><>!l<>#<23><04>$%<25>=<3D>&QP<11>&P<02>'<27>$PF%F$ls#<23>&<26>(<28>'<27>)<29>&Q<14>&P<02>'<27>$PF%F$(<28><14>*<2A>$%P<>8<EFBFBD><02>&<26><07><>!H<>'<27><07><>!<18><04><07><07><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><16> <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>\7 J CMOVE<56> <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<13><12> \8 t PLACE<43>+<2B>P<15>q<17>[ <20>\8 <00> COUNT<4E> <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> <20><11> \<13>&<26>H<>%<25>H<>$<24><07><01>'l 5 <00> M/MOD<4F>+<2B>P<12><><EFBFBD><08><18> <00>%<16><08> <13><18> R<16><08> <00>%<16><08>9\5 2/n <1F>
|
||
<EFBFBD>ʑ<07><07>l 6 g /MOD<4F>+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 3 G M*<2A>+<2B><08><18>P<12> R<16><08><08><18>
|
||
R<16><12>PM <1D><12> <00>\3 <00> *<2A>+M <1D>\3 o 2*<2A> <1E>
|
||
<EFBFBD><07>*<2A>l <00>+A<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<4A>"
|
||
HILE<EFBFBD>+<2B>+ <1C><17>!<21>T]<18><><EFBFBD>\ <00>+ <1C>]<18><><EFBFBD><19>
|
||
<00><08><1B><1B><>\0 <00> FREPEAT<41>+<2B>+ <1C>!<21> \0 EUNTIL<49>+<2B>+ <1C>!<21> \1 5 BDO<44>+<2B>!<21><>T<1B>\1 m C?DO<44>+<2B>!<21><>T<1B>\1 ` DLOOP<4F>+<2B>+ <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 <1D><07>$<24><07>%H<>&<26>'<27>'&&&" OLVE<56>+!<21><08><16>;\. <00><MARK<52>+!\. <00><RESOLVE<56>+!<21>:!\. ?PAIRS<52>+<2B><16>3 unstructured\I h<><68>lm h<> <00><>8<><02><07>F<14><><01>Ȣ l / " CASE?<3F> <1C> <17>$AP <09>%QPl<><18>lj 0 <00> BIF<49>+<2B>!<21>T<1B>\0 <00> DTHEN<45>+<2B><><EFBFBD>+ <1C>\0 <00> DELSE<53>+<2B>+ <1C>!<21>T<1B><08>A\0 <00> EBEGIN<49>+ <1C>\0 O EW" <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> <00><><EFBFBD><12>"%P<12>\* <00><>BOUNDS<44>+<2B>%<16>\* H<><48>ENDLOOP<4F><50>"%<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><15><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><08>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> <00>8DISKERR<52>0{8<> <00>8R/W<>0<EFBFBD>h<EFBFBD>+<2B><08>"<08><18>j <00><17>"q<17>3 2<> 2<>3<EFBFBD><08><17><08>"<08><17>"OL8<4C> <00>$write <20>8<EFBFBD><1B><>8<18><><08>q<08>\<13>+<2B><17><18>%\<13>+<2B>*9 2<> 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>07l}7<>+<2B><08>"<08><08>"<08>\<13>+<2B>Z"%<16>-7"Y7<59> 9 -7"8%dPZ"%P-7"<08>"<08>G<18>
|
||
99<13>d<13><08><12>PPY7G<18> <00><15>R<><52>";-7"<08>;-7;99<13><1B><>\<13> 77(DISKERR<52>+<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><04>H<><04><14><01><07><02><07><03><18><02><07><02><14>l<><12> Q6FILE], <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> <00>5C/L<>+) <00> 6L/S<>+ <00> $6LIST<53>+<2B>3;<08>$Scr <20>3"<08><08>d<EFBFBD> <1F>5<EFBFBD>$Dr <20>dS5*6O<17><>. 8?<3F> <00> <1D>?s<1B><17>5<EFBFBD>4<EFBFBD>3"<08>:s 6s % 6<><17>4<EFBFBD>?<3F><><EFBFBD><EFBFBD><EFBFBD>?\<13> 06PAUSE <00> <00>6LOCK<43>+<2B>"}<12>#<03>4SPACES<45>+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"N4<4E><08>\<13> 5SIGN<47>+<2B><18> 8-<2D>4\<13> 5#<23>+<2B>"S 8 <09><19> 8<18>%80%<16>4\<13> 15#S<>+55<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> <00>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>3FABORT"<22>+<2B>!<21>3<EFBFBD>$\_ *4FERROR"<22>+<2B>!4<>$\` ?4BL<42>+ ` t4 -TRAILING<4E>4<EFBFBD> <17><07>&<18><07>%<25>'<27>$<18><13><>&I <20> HP<02>%<25>h<EFBFBD>%lm <1C>P<EFBFBD>F'F%<10><>lj <1C> _4SPACE<43>+y4<79>?\<13> #![<08>!%2\] <00>2RDEPTH<54>+B"<08><12><17>l \] F2DEPTH<54>+;<12>"<08><08>l \<13>+`$"<08> <00>$
|
||
compilingd<13>$ ok\^ <00>2(QUIT<49>+2<>? "<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> <20><11>1\<13><14>EH<><04><14><01>l <20>A<17>3 stack empty\\ <00>1.STATUS<55>0<EFBFBD>o*<2A><12>;\\ <00>1<EFBFBD>PUSH<53>+<2B><12><08>P"P 2PP\\ 2LOAD<41>+<2B>G<18><13>! 2<>!;<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<68> <1C> ȅ <1C>l z U0(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>/ 0x L/NOTFOUND<4E>0 0x <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/\y 0a[<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 v r.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?\v x/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>- DEFINITIONS<4E>+<2B>,"U,;\<13>+"<08>J*<+\s R-ORDER<45>+<2B>,<2C><> s<1B>-]<18><>)<1B><><EFBFBD><17>4U,<2C>-\s <00>-WORDS<44>+<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><50><03>*<2A><07><>)<29><07><> l<><18>.<2E><07>$<24><07>%<25>$# q <00>,CURRENTo* q K,CONTEXT<58>+<2B>,<2C>"%<16>\<13>+<2B>,<2C><17>,\q <00>,ALSO<53>+<2B>,"8
|
||
[4Vocabulary stack full<6C>,"<08><17>,[<08>,;\q <00>,TOSS<53>+]<18><><EFBFBD>,[\r ;-
|
||
VOCABULARY<EFBFBD>+<2B>)O:!O:!!%":!%; )l<>(<28>,;\r p-FORTH<54>- <00>j r <00>-ONLY<4C>- <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 o M+VARIABLE<4C>+<2B>)<29>,!\p <00>+UALLOT<4F>+<2B>0"%8<18><><19>3
|
||
Userarea full0"<08>0[\p ,USER<45>+<2B>)<29> ,m! )<29>8<><02><07>F<14><02> <18><04><07>H<EFBFBD><05><01>l p j,ALIAS<41>+<2B>)<29>'"<08>J8 _<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 _%\n B*NAME><3E>+<2B><08>*<2A>J8 _<16> "\n +>BODY<44>+<2B>\n $+.NAME<4D>+<2B><08> <00><08>(<28> <00>$|<7C> 8 _<16>?<3F> <00>$???<3F>4\o 4+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>)CREATE<54>+!<21>!":!U,"":!j$J<13><08>8 <20><18><16>3 invalid 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>n Y)>NAM#FF<46>i<EFBFBD><69><EFBFBD> <0C><>
|
||
<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<><4F>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> yjCON!<21>j<EFBFBD> l<><6C><18><02><07><02><14>K<EFBFBD>O<EFBFBD> <20><19>=$I<><49> |