SINGLE DRIVE FILE COPY2(52,31:56,31:?-I0173S2 D:7936I,D:f7785,0:786,31t<PL$(19)AI124:PL$PL$(17):FI139:CL$CL$" ":KCL$CL$(13)CL$(13)PCL$(PL$,21)CL$(145)(145) U15,8,15: OPEN 3060 "COPY SUCCESSFUL. ";:3070. "ERROR ONLY ";NB;" OUT";G BC;"BYTES COPIED."\ "PRESS";(18);r& "RETURN";(146);0 "TO COPY ANOTHER FILE": DM$:DM$""3130D DM$(13) 1000N  NO FILES ERROR HANDLING (  300:: DISPLAY FILES"I(214)20: CLEAR>" "D^ 500: GET FILE NAME| NM$"" DSDS2: 1110COPYTHE FILE CL$;"READING ";NM$ 600: READ THE FILE  EN62UE128 1200BCNB: 133,251,169,328'133,252,160,0,32,207,255,1459B'251,230,251,208,2,230,252,165]L'144,208,13,165,252,201,160,144V' 235,32,204,255,160,0,240,19`'164,144,32,204,255,192,64,208j'10,164,251,165,252,56,233,32t' 76,12,31,169,240,76,12,31";NB61440: READ ERROR CHANNEL215,EN,EM$,ET,ESM EN0EN62EN63 ^ 15: CL$;v "DISK ERROR #";EN (PL$,22);EM$: MAIN ROUTINE (147);: CLEAR SCREEN" SINGLE DRIVE FILE COPY": r,144,227,32,204,255,76'73,31,32,9,31,132,251,248'105,32,133,252,160,0,177,251P'168,169,0,76,12,3160,144V' 235,32,204,255,160,0,240,19`'164,144,32,204,255,192,64,208j'10,164,251,165,252,56,233,32t' 76,12,31,169,240,76,12,31READ FUNCTION  2,8,2,NM$","TY$",R":  900: EN0 2:V NB(2): READ THE FILEt  2: 800: CHECK RESULTSz    WRITE THE FILE  785,3: SELECT WRITE FUNCTION  2,8,2,NM$","TY$",W"  900: EN0 2:: 16);",";  ("SPU",TY,1):# >  GET DESTINATION DISKI  CL$;i  "INSERT DESTINATION DISK" "PRESS";(18);"RETURN";  (146);"WHEN READY." DM$:DM$""470 DM$(13)470 15,"I":   GET A FILE TO COPY ERROR CHANNEL Z1000 d5 n READ THE DIRECTORYW 785,0: SELECT READ FUNCTIONn 15,"I":2,8,2,"$" NB(2): LOAD DIR INTO MEM 2: 800: CHECK ERROR DISPLAY DISK NAME 785,6:SELECT FETCH CHAR (PL$,3);PL$,21); "NO FILES ON THIS DISK")"PRESS RETURN TO TRY";@ "ANOTHER DISK.";WDM$: DM$""4070m DM$(13) 1000sy'76,15,31,76,88,31,76,154'31,108,3,0,108,5,0,32$'9,31,152,170,32,198,255,168.'176,57,169,0, SAVE COUNT  400: GET DEST DISK+* CL$;"WRITING ";NM$F4 700: WRITE THE FILEX> EN0 3000qH 500: GET NEW FILER NM$"" 2090\ CL$;FILE COPIED"f 3100  DISPLAY COMPLETION STATUS CL$; NBBC ~'32,9,31,152,170,32,201,255('168,176,240,165,251,141,174,31J'165,252,141,175,31,169,0,133l'251,169,32,133,252,160,0,177'251,32,210,255,164,144,208,20'230,251,208,2,230,252,165,252'205,175,31,144,234,165,251,205'174,31"READING DIRECTORY""$ 100: READ THE DIRECTORY@. 200: DISPLAY THE TITLEU8NS((NB1)254)qBNS1 5000: NO FILESzLDS1V NSDS DS1: START OVER`(PL$,4);jBE(DS1)81:LEBE15tDS1NS LEBE8~ DE BE LENB(2): WRITE THE BYTES, 2: 800: CHECK RESULTS2 8 W* CHECK USR() RETURN VALUEn>NBNB(NB0)65536H NB61440 UE 0:R NB61440 UE 128:\ CL$;f(785)0 "READ";p (785)3 "WRITE";z "ERROR #  CL$;: EN63 5802  UE128 NM$;"TOO LARGE.";S &EN62 NM$;"NOT FOUND.";{ 0"ENTER FILE,TYPE":NM$"":EN0:UE0 : NM$,TY$: D NM$;"EXISTS. ENTER NEW NAME" NEN0:NM$"": NM$: X b READ THE FILE v 785,0: SELECT (18); K142169"  ((K));:/  (146)5 ; ,Z 6 PRINT DIRECTORY ENTRY DEz J 785,6: SELECT FETCH CHAR TIX(DE1)32254((DE1)8)2 Y (IX)128 ^TY(IX)128:TY0TY3 h KIX3 IX 18 r ((K)); | _ df:eg  e`a3 START-OF-DATA ::: TO BE READ INTO STRING ARRAY FORMAT ERROR SYNTAX ERROR TYPE CONFLICT FUNCTION ARGUMENT ERROR&.%STATEMENT TOO LONG OR TOO COMPLICATED0 SYSTEM E #(_Ke`aCLEAR#2#_DEMO OF LOGICAL OPERATIONSe`a#<_ LOGICAL AND:e`a#F _ LAND(,)e`a#P_`a#Z_ LOGICAL OR:e`a#d_ LOR(,)e`a#n_`a#x_ LOGICAL XOR:e`a#_ XOR(,)e`a#_`a#._%YOU MAY NOW TRY  THIS SORT FOLLOWS 2# : \7" =, 6@J SORT ERROR MESSAGES:T^_SORTING STARTED:e`ah  #r" ^ ^ ^ ^|= ! ! ! +->LENGTH OF STRING IN AR $6 $@ $J $T $^ $h `$r$| $$$ rr|$ )$$$ rr|$  $$$ rr|$ I$%LAND 0010 // GET/DEMOLOGICAL'OPS/DEMO 0010 // GET/DEMOLOGICAL'OPS/DEMOT RETURNED USER ERROR #1 USER ERROR #2 END-OF-DATA QUICKSORTALEFT'RIGHT'RECLENPIVOTBUFFER PARTITIONIJSWAPBMESSAGE MESSAGENODIVISION BY ZERO 0010 // GET/DEMOLOGICAL'OPS/DEMOARRAY REDEFINEDDIMENSION ERROR CASE ERROR  END OF DATAFILE ALREADY OPEN FILE INPUT ERROR* END-OF-FILE4 FILE NOT OPEN>CON NOT POSSIBLEHERROR IN PRINT USINGRDIVISION BY ZERO 0010 // GET/DEMOLOGICAL'OPS/DEMORROR: NAME TOO LONGD BRACKET ERRORNOVERFLOWX&ERROR IN STRUCTURED STATEMENTb ERROR IN GOTO STATEMENTlSTACK OVERFLOWvUNKNOWN VARIABLEPROCEDURE PARAM ERRORINDEX/PARAM ERRORSUBSTRTHESE THREE FUCNTIONSe`a#_FROM DIRECT MODEe`a#_`a# _TRY:e`a#_`a#_PRINT LAND(35,27)e`a#_`a#_ # d`a#rrr|##" SET UP MACHINE CODE TO RESIDE$ BETWEEN THE SCREEN AND THE$ SPRITE POINTERS.$$" $, RAYF ! ! +------->NUMBER OF STRINGS IN ARRAY TO SORTH ! +------------->1 HERE MEANS START WITH FIRST RECORDC +------------------->NAME OF THE ARRAYY TO BE SORTED PRINT THE SORTED MESSAGES:"&LOGICAL'SET'UPNUMMASKOPLORXORRECT MODEe`a#_`a# _TRY:e`a#_`a#_PRINT LAND(35,27)e`a#_`a#_ # d`a#rrr|##" SET UP MACHINE CODE TO RESIDE$ BETWEEN THE SCREEN AND THE$ SPRITE POINTERS.$$" $, ?(   *?(   *?(   *?(   *?(   *?(   *?(  4 *?(   4 *?(  4 *?( ! w *?( ! w *?( ! w *   *?(   *?(  4 *?( \PROGRAM NOT PREPASSEDfFILE NOT FOUNDpNOT INPUT FILEzDEVICE NOT PRESENTNOT OUTPUT FILESTRING NOT DIMENSIONEDTOO MANY FILES OPEN END OF TAPETOO MANY NAMES$FUNCTION VALUE NO@ >|xlp01L9|Hl@@0xx02ING ERROR6-COMMAND, ARRAY, SUBSTRING, OR PROCEDURE ERROR INDEX ERRORILLEGAL NO. OF INDICES STRING ASSIGNMENT ERROR FUNCTION ARGUMENT ERRORNOT IMPLEMENTEDZONE VALUE INCORRECTSTEP = 0  @ SEQUENTIAL FILE TO SCREEN A PAGE AT A TIME - BY LEN LINDSAY; SEE'PAGE("SCREEN.TEST.W") <--- CALL PROC SEE LIKE THIS(_Ke`a LOWER CASE MODE2 INFORMATION*<F REST OF PROGRAM GOES HEREPZ pt|d4P ALLOW ROOM ,# DEMO OF CURSOR PROCEDURE#_e`a CLEAR SCREEN##_efa HOME CURSOR#ROW: #COL: # # _*e`a$CD, FOREVER$$ prr|$! FOR USE BY VERSION 0.12 ONLY$4 VERSION 1.02 AND 2.00 USE KEWORD CURSOR I8ROWCOLCURSORLINEZ QUOTE'MODELCREEN##_efa HOME CURSOR#ROW: #COL: # # _*e`a$CD, FOREVER$$ prr|$! FOR USE BY VERSION 0.12 ONLY$4 VERSION 1.02 AND 2.00 USE KEWORD CURSOR I $TDEMO OF VALUE FUNCTION$V4 TAKES A STRING AND CONVERTS TO A NUMBERIC VALUE$X ONLY FOR INTEGERS !!!$Z  $\_e`a CLEAR SCREEN$^$`&NUMBER PLEASE (0 TO STOP): $b&_ THE VALUE OFegegISeg  d`a$d 0-$f$h t|qSION OF COMAL-80 WORKS ONLY ON THE OMMODORE 64.5 AND LEAVES ONLY 9-10K FREE MEMORY FOR THE USER.FILE) CONTAINS THE SOURCE TEXTH1 OF A PROGRAM. -FILES CAN BE ED.R\7 -FILE IS USEFULL BECAUSE IT IS FAST TO LOADf$ DEMO OF SHIFT KEY SCAN$_e`a CLEAR SCREEN$(_PRESS THE SHIFT KEY TO CONTINUEe`a$$_ THANK YOUe`a$$ p|$6: ROM LOCATION FOR SHIFT STATUS ON C64$$$ؖ WAIT TILL SHIFT KEY DOWN$} SHIFT'WAITGRAM IN 6 THE INTERNAL FORMAT. -FILES CAN BE ED* AND ED.4>8 -FILE (SEQ-FILE) CONTAINS THE SOURCE TEXTH1 OF A PROGRAM. -FILES CAN BE ED.R\7 -FILE IS USEFULL BECAUSE IT IS FAST TO LOADf8La  DEMO OF TIME IN JIFFIES_Ke`a CLEAR SCREEN_USE STOP KEY TO STOPe`a(2_PRESS ANY KEY NOWe`a<:F K-P:Z#_THAT WASeg)dgJIFFIESe`ad CD,#(#2 |#<* VERSION 2.00 USE KEYWORD TIME INSTEAD#F;-----+: ! !D +--> ELSE ON !X +----------+b !l +--> ENDIFv REPEAT <--------+ ... ! UNTIL O--+: BSOLUTE ADDRESSES ARE INSERTED IN THE PROGCBM PRINTER TO SWITCH TO LOWER CASE MODEhK6j K6K<4 FIX SQUARE BRACKETS ::: CHR$(219) AND CHR$(221)K6 K6[K<"K6 K6]K<,_e`a PRINT LINE6= INCREMENT LINE COUNT@1] UNTIL HIT END O FOR ONE SCREEN LINE OF TEXTnBl: FILE NUMBER - REST OF PROGRAM SHOULDN'T USE SAME NUMBERx! MAKE SURE FILE IS CLOSED _Kefa CLEAR SCREEN: INIT LINE COUNTER1h0i 23 LINES PRINTED ON SCREEN ALREADY_`a BLNSTEAD$ E:$ F$: 64 LOC$7 MAKE SURE QUOTE MODE IS OFF$-_efa HOME CURSOR$()_efa CURSOR DOWN$*)_efa CURSOR RIGHT$F$}9  3 THREE ROUTINES WORK TOGETHER TO FORM QUICKSORT# QUICKSORT :: PARTITION :: SWAP(pzrrr|2<( SORT A$(LEFT':RIGHT')F}PZprrr r {d0  'G%< GET MIDDLE ELEMENT AS PIVOTn PE$jVERSION 0.12 ONLY$l3 VERSIONS 1.02 AND 2.00 USE KEYWORD VAL INSTEAD$n INTEGER VALUES ONLY$p  Q:$r I0I):$t h,i$v$xn$z,  ) $' RECURSIVE CALL$|o$~REPLYVALUESLONESRFORM SWAPPINGSx  1 =  + @&h  .j     =B @B   0*h *j   SORT A$(LEFT':J)+h *j   SORT A$(I:RIGHT')} p ww { <  WHEN READY  END OF PROC^(_Kefa CLEAR SCREEN BEFORE LEAVINGh}SEE'PAGE FILE'NAMETEXTSEE'FILELINE CHR$(17)B WHICH IS USED BY THE  ANK LINE7HIT FOR NEXT PAGE  25TH LINE PROMPT: RESET LINE COUNTER'_Kefa CLEAR SCREEN FOR NEXT PAGEo$  GET NEXT LINE OF TEXT9 NEXT LINE REMOVES A CURSOR DOWN CHARACTER - CHR$(17)B WHICH IS USED BY THE  GCDABLCMFACNPERM QUICKSORTLEFT'RIGHT'IJPIVOTBUFMOVE NO'OF'DISKSSOURCEVIADEST EIGHT'QUEENSCLRSPACESCXDUMMYTRYPRINTOUTKR TRAVERSALMAXLLINKRLINKINFOCHNILROOTFREELI 6 < =B o }9  p8t;{ < #+-6  ;#<7B  #*- (7>B=*B 2 <}< F P p>{ Z h#(-i d78 B CH$=")" nn x= # o 7 }>  p=t#{ _#efa }= xFILE NAME TO PRINT:  (LP:OUTPUT LOCATION2 ]7< F _e`aPZ DS:dNAMETEXT OR A CHARACTER ENABLE CURSOR# WAIT UNTIL NOT NULL CHARACTER 31K<3K3  DISABLE CURSOR}0 * p4{4>)H5 (A+B)*(C-D).R5A+B*C-D.\5( A + B)* C-D.f5 A+B*(C-D).p5A*A*A*A.z xFILE NAME TO PRINT:  (DS:OUTPUT LOCATION2 ]7< F _e`aPZ DS:dNAMETEXT SAVE"0:DISK COMMANDS" ISK COMMANDS( =============2<& HE DISK COMMANDS, SUCH ASF P Z , ETCd1 ARE NOT SUPPORTED BY THIS VERSION OF .nx2 N STEAD OF THE DISK COMMANDS, THE 0 OR 17 IS THE NAME OF THE FILE TO SCRATCH. O (NEW) A DISK:"( "N:,",6 O (NEW) A DISK:@J# "N:"T^# O (VALIDATE) A DISK:hFILE>"$ O ENATE AND FILES:B "C:=:,:,..."& O A DISK FILE:0:- "R:="DN O A DISK FILE:Xb# "S  O ENATE AND FILES:B "C:=:,:,..."& O A DISK FILE:0:- "R:="DN O A DISK FILE:Xb# "S- IS USED TO 'PASS' COMMANDS TO THE DISK.$ (SEE ALSO PROGRAM 'UTILITIES')/ DISK FILE CAN BE SCRATCHED IN THIS WAY:# "S:" WHERE ISr "V"|# O (DUPLICATE) A DISK:& "D=" O A DISK:& "C=" O A DISK FILE:5 "C:=::"lv O MORE FILES:+ "S:,,..." O IALIZE A DRIVE: "I" O IALIZE BOTH DRIVES: "I" O DISPLAY DIRECTORY: GRAM IS ./ HE PREPASS CHAINS THE PROGRAM STRUCTURES! SUCH AS ---, -, -, IN THIS WAY:# IF THEN O------+# !# +--- (C) 1983 NIOMAL P!n ! . !x ! ! +---------------------+! OW WORKS THE INTERPRETER ?! ===========================( = 64 COMAL-80 IS A SEMI-COMPILER./ HEN LINES ARE------------------------+ !# +--> ELIF O THEN O--+# ! !# +---------------------------+ ! !# +--> ELIF O THEN O--+&# ! !0# +----------------------  SAVE"UTILITIES"((2 |< :F)hi ANY CHARACTERS IN KBD-BUFFER ?P YES, NOW NO CHARSZ v'dnn NO CHARACTERxo!pw{ WAIT FOR A CHARACTER ENABLE CUR  SAVE"0:RECURSIONS"( ************************2 ** **< ** RECURSIVE ROUTINES **F ** **P ************************Zd&rr{ GREATEST COMMON DIVISORn h,ixn ) )'G$^ohr|#pxr r | SORTING ALGORITHM  :  :B   'G%:B  0 =  * @ h  .i   :    :B  :B = @Bo   0h  *j  h  *j  0 SPACES5! :   C:   C: !  C:   } pr r {* 4h     '8   )8i>   :H OMPTDISKCOMMANDERRORFORMATDRIVE DISC'NAMEIDSRCREFORMATCOLLECTBACKUPDESTCOPYFILENAMECOPY'ALLRENAMEOLDNAMENEWNAMEINITCLRMESSAGEDELAYDURATIONIDECHEXVALUE6G':'*(CLEARASKIDIVISORYX1BYTEFACTORX2SETMAPX MOBCONFIGUREMOBSTARTCOLMOBPOSMOBXVALUEMULTEXPANDXEXPANDYMOBCOLBACK0 MOBMULTI0 MOBMULTI1GETBITGETCOLTEXTNUMBERPUTTEXTINDCOLPROMPTCHCH2ILENIPNTCPOSCOL8 pt${B_`aL _$e`aV_`a`}jt%p%r&| DELAY 'DURATION' SECONDS~'&$}% (t)| *:' )Q%**$ )'123456789ABCDEF6G':'*(RITE.e`a r+_"HIT A TO APPEND A SPRITE IMAGE ANDe`a |_HIT Q TO QUIT.e`a _`a HIT RETURN TO BEGIN:  }X ( (bol}vprtt{NK(:((,((} prt{NK(:((} pr{ VK(} pr{DK(=(K( } prt{*#CK(:((=(K(:((4}>E F G He`a} p{$ _Kefa.}8B p|LV BINARY TREE TRAVERSAL`j( SEE 'PASCAL USER MANUAL AND REPORT't4 BY K. JENSEN AND N. WIRTH, SPRINGER-VERLAG.~ 2:! !" #SOR# WAIT UNTIL NOT NULL CHARACTER K<K3 DISABLE CURSOR} prr{).)G($': START OF NEW LINE&%)"},6 {@ 'J  &o%rr{ LEAST COMMON MULTIPLUM$ #r{ N! h,in )$o",)r{ NUMBER OF FIXED PERMUTATIONS6 h*i@ )JnT!)G  }!prrrr{ TOWER OF HANOI h0i) & 0) :nD_dg=>egd`aNoX}bl p|v_START OF EIGHT'QUEENS:e`a , < FILL STRING WITH 3  D:   'D:B   )D:BR h *i\ ' fnpzo  C:   'C:B   )C:Bo } p{_`a!&_ efdf  $efKe`a_`a$_ A B C D _ ".efa * . * !.o}* p+s.{ h.$2i + ." _ ".efa, + !.6o@}+JT p,s.{^ h.$2ih , .r , !.| _ ".efao}, p'{ _ efa}' p){_`a}) p(v.{0 # _#efa h#.3i-.& ".#<0 ( .: ( !.DnN.$;Xob}(lv 1| 2:)h2i ANY CHARACTERS IN KBD-BUFFER ? YES, NOW NO CHARS v2'n NO CHARACTERo1!p0w3{ WAIT FCHARSTATGETCHARNOWAITCURSORROWCOL CURRENT'ROWCUR CURENT'COLEM EMTY'BUFFERYES'NOPRKMOBSINDCOLORBITSFILENAME INSTRUCTIONSINITIATECOUNTER CURSORCOLPOSXPOSYOLDXOLDYSETPOS MULTICOLORSETPOINTASKH pr{RCK(=(K(\}fpprt t!{zRK(:(!(=( (} p"r{ IK(}" {0I' SOURCE DRIVE {&')G0I' THE OTHER DRIVE p#{ _Kefa$}#.$D:%$; &;'(%B)B'*%B)B'+%B)B ',%B)B}(2 p-v.{< h&0iF_NO MORE FREE NODESe`aPZnd.&;& /&;Bnox}- /r{ '/ p*s.{ h.$2i T^ {h 'r | p {/ NO CHARACTERS IN KBD -BUFFER}  ptw{  _ega YN6 hY-i _YESe`an _NOe`ao}&0 pt{:~D <Nh 003i L SAVE"0:BOUNCE"( PROGRAM BOUNCE2<D:F :PZ :d :n::Bx==Bh0*9i !: '=oh'0*9i !: '=o JX SAVE"0:SPRITEDESIGN" SPRITE DESIGN(2@<FPZdn  :x h ,i   7:  !" $' $)K#  :o <   @|0123  I0) K 'Kh *j =  :SSAVE FILENAME:   '? ' $'K<  AAPPEND #'G$:! $''I:%:B'$' %&:#:B  *4 Q->HR p{\ : :B  $!" $'$)K#.  :8 B!" $' $)K#L}Vprrr{`  j  %G $'':t!  &G):~":#'G#:B'"  !'  #$=##nn ':x &:o} p{ *   MULTICOLOR? +  COLOR: &*   EXPANDX? $*   EXPANDY? %+   BACKCOL: ' hi+   MULTICOL-1: (+   MU}+p.rrt,{"$$),#}. pt0w,| A"0 #123 0Q$:4:B&"0#0 5:D : :BNX h ,ib   7\h40j4@f KpDELz h40i h4 ,Q*i! , ,4) ,4' ,Q(<n , ,4)<o"3', (# 4@oINST! , ,4) ( ,4 ,Q(<"3',# 6 &"$'$)KK(#  6;  ' 6; n h*i h,i 6': n (6&: 2o < 6 F!"$'$)K# P 6; Zo do n} x p{   ("' ANSWER. WHEN ASKED FOR A COLOR USEe`a 1_(CONTROL 1 FOR BLACK, CONTROL 2 FOR WHITEefa /_&CONTROL 3 FOR RED, ... COMMODORE 1 FORe`a _ ORANGE, ...e`a "/_&TO DESIGN A SPRITE USE THE CURSOR KEYSe`a ,'_TO MOVE ABOUT THE DESIGN AREA.e`a 60_'HIT THE  DELAY"_ efa ERASE STAR, ' '6 _*efa@J T^ p{h_KefKefar}| p rr{).)G($': START OF NEW LINE&%)} =K3  : :B HOME : :BC-RIGHTh )*j '=",C-LEFT6h 0j '@@JC-DOWNTh *j =^hC-UPrh 0j  FILENAME:  & 0'? ' $'K<: DN XbLLOADl FILENAME:  v    %& G"6  :Bf  !p F Gz S $$)!"K#? K<%K(&? K<%K(&} p{'G$G#:  "K<%K(&} p{-$%.-$%.+P,+P, )&* )'*hj1()2'(('(2 hi< ':F (:P &:Z ):dLTICOL-2: )o}p*rrt,u-{ ". ,,6 <@016J. ,Q'  T -I0):^}*hp+rrt,u-{r |. , </6: / -/): -. ,Q' K:l  v h4 ,Q.i 1 ,4<n 1K<o"34$'1#  :o 1<  =1K3  h4 ,Q.i 2 ,4<n 2 <o "34$'2#* 14 > 4=Hh4 ,Q0j ,, (<R h1 51]/8i  ,41< "34$'1#  4= $o . 81 K- B) ,Q0 , ,Q -8 , , ,Q)< L} Vprrr{ ` hi j  t  ~6':  6(:  6&:  6):  K#  }  p{ _KefaCLEAR SCREEN ,_#THIS PROGRAM IS DIRECT FROM DENMARKe`a /_&UNFORTUNATELY THERE ARE NO DIRECTIONS.e`a _`a '_THIS IS HOW WE THINK IT WORKS:e`a ._%USE A 0 FOR A NO ANSWER AND A 1 FOR Ae`a /_&YES1 KEY WHENEVER YOU WISH A PIXELe`a @/_&TURNED ON. HIT THE 0 KEY TO TURN OFF Ae`a J0_'PIXEL. N MULTI-COLOR MODE USE 0, 1, 2,e`a T)_ AND 3 FOR THE 4 POSSIBLE COLORS.e`a ^._%OTHER COMMAND KEYS: HIT S TO SAVE THEe`a h._%SPRITE IMAGE, HIT L TO LOAD A SPXTHE'COWS'COME'HOMEDELAYROWCOLIJPAGEDCURSOR:n::Bx==Bh0*9i !: '=oh'0*9i !: '=o lM SAVE"0:MUSIC" pr{(T$:2 <'F 'P 'Z('$ 'd 'n 'x  D1#CF1#A1F1#G1F1#G1F1#E1 AG1E1D1#E1A1E1D1#E1AH1E1D1#E1C2E1D1#E1@C2H1A1H1G1F1# A0GC1A0H0A0H0A0G0#H0D1JH0C1ZA0ZA1ZC2A1E1=ZA1E1C1ZE1C1A0;ZC1ZC1ZC1 F1ZP<D1ZF1ZA1E1D1ZZ=F1D1H0ZD1H0G0Zd?G0C1E1C1D1C1D1C1n?H0D1F1D1E1D1E1 G6 f«G6#l߫A6 sXB6 z4H6 xC7 +C7#SD7 D7#E7 ҫF7 $F7#.G7 ͭ8G7#٭B 3333D13333C1;ZE1ZE1ZE1ZE1;ZC2ZE1ZE1D1Z;D1ZD1ZD1ZD1Z<H1ZD1ZD1C1ZA D4#dE4 F4 F4#?G4 G4#8A4 ֫B4 H4 ^C5 "KC5#$U D5 &~D5#(ȫ E5 +4 G0#H0D1KC1H0C1A03333H03333C13333D13333E1CC1E1A1 ZE1ZD1C1`3H0l̮C1H0 A0ZXX  ҫH1  C2 IC2#D2 ЫD2#E2 gF2 F2#G2 lG2#ΫA2 5B2 H2 C3  o$' =h$',j:o&\0': p{D'N} `$__2 $'$'  C0 C0##D0 4D0#FE0 ZF0 nF0#G0 G0# E1G1(HZG13333F1#3333G13333F1#E1ZE12=ZG1E1H0ZE1H0G0<<ZH0G0E0ZB0A0ZF?D1C1#D1G1F1E1 ZC1;ZA1ZC1ZC1H0Z;E1ZE1ZE1ZE1Z=C2ZE1ZE1D1#ZH0BE1G1E1F1#E1F1#E1 D1x?C1E1C1H0C1F1C1H0?C1G1C1H0C1A1C1H0?C1A1G1F1G1E1D1C1ME1ZD13333E13333D13333E1 A7 LB7 gVZ `}jpr r r r r {t )G$':~' $ '' $ '}=A1ZC2A1E1ZA1E1=C1ZE1C1A0ZE0 1KC2A1G1F1A13333G13333F13333E13333KD1 F13333E13333D13333C13333B0D1F1?D1B0A0B0A0G0#ZE0>ZF0E0ZA0 *F5 -ƫ4F5#0>G5 3aHG5#6oRA5 9\B5 =fH5 @pC6 DzC6#HD6 LD6#QE6 ViF6 [F6#` ":,6    @J  :T^  <h rhXX 3i|hZ 3i  I'K<6G)G#: ' ''n' C3# D3 &D3# 20E3 ͫ:F3 rDF3# NG3 ثXG3# bA3 klB3 FvH3 /C4 %C4#*D4 ?} SOUNDINITVOLUMESIDTHISNOTEINOTESVALUESADSRVOICEATTACKDECAYSUSTAINRELEASEJNN1N3SIICONTROLLNGKZ 3i  I'K<6G)G#: ' ''n' A0 ͫB0 H0 C1 %"C1#E,D1 h6D1#@E1 JF1 ܫTF1#^G1 6hG1#grA1 |B1  ?č:ގNx̏*vT|,REPLY INSTRUCTIONSPIDEMOBASETREELENGTHLSQUARESIZE'IRSQUAREMOVESTAIRSBOXES MANYBOXES SPINSQUA p0Ú{  _Ke`aCLEAR _Ke`a LOWER CASE _NTER:e`a _`a _ TO SEE THE DEMO AGAINe`a _`a ._% FOR COMMAND MODE - YOU TRY COMMANDSe`a _`a _ TO QUIT THIS PROGRAMe`a_`a%_HAT IS YOUR CHOICE (,,):efa$ <. E  COMAL TURTLE GRAPHICS DEMO SNOWFLAKE TRANSLATED FROM CBM LOGO DEMO DISK( COMPARE EXECUTION SPEEDS2 COMAL TURTLE IS FASTER<FPZ p{d n}x pr{} prr{ SPINSQUARES(40)# b ( l$ vT / 1" HIT ANY KEY TO QUIT THIS PICTURE# "GROWSQUARES(1)#  $ / " SPINSLINK(30)# 2"!HIT ANY KEY TO GO ON TO NEXT PART# ' 7"&  p{ ! S  >?} p { Ѕ hK3i!"PZ STOPPED #&0o:} DN p{X$bBl;,6vD}  "" SPINRECS(90)# , Z 6$ @ J" TELESCOPE(40)# T ( ^$ hT r/ |1" HIT ANY KEY TO QUIT THIS PICTURE# " MANYBOXES#  $ "BASE#  "ROCKET#  / @r TURTLE AND SPRITE DEMO VERY SIMPLISTIC MAINLY JUST TO SHOW SOME OF THE COMMANDS AVAILABLE BORDER NUMBER: ( FG2BACKGROUND NUMBER: < !F$TURTLE GOING TOO? (Y/N): P  E THE COMMANDS AT THEe`a /_&END - YOU CAN TRY THEM IN DIRECT MODE.e`a _`a -_$HIT ANY KEY TO STOP THE SUN, STAIRS,e`a 1_(SPINSQUARES, GROWSQUARES, AND MANYBOXES.e`a "HIT RETURN FOR THE DEMO  } ( 2 p{ < F  P Iڝ: Z THE SPRITE IMAGE,6%K(&@ >K<J K<T%K(&^h% IDENTIFY 4 SPRITES WITH AN IMAGEr|'('('('( GIVE SPRITES A COLOR)*)*) .-UTUT.-UTUT. , MOVE TURTLE ONCE IN AWHILEhY-  &D,8j  MOVE THE SPRITES+ ,+, )2' #',+ 2' #', +, )RES GROWSQUARESMID RECTANGLEWIDTHJFLOWERSPINRECSHOB TELESCOPEROCKTOPROCKETTRIKRCPRLCPRARCLARCRCIRCLELCIRCLE SHRINKRCIRCLERSLINKY SPINSLINK GROWCIRCLERAYSUNPOLYSTEPSIDEANGLEINSPI CLEAR'KEYSCHOICEH0j DCQ68 ABĦDnL MAIN PROGRAM LOOP CONTVCæ`j$tT~QѦ HI HI}0 0^ڊH0j  "ZZPRESS S TO STOP#   HxI } p rr{" h,i, 9:6n@ # )J <<=T # )^ HxIh # )r <<=| # )o}   # / ""SHRINKRCIRCLE(30)# % $ T "GROWCIRCLE(10)# 1" HIT ANY KEY TO QUIT THIS PICTURE# */ 4 (  >0 H/ R} \ f p/#{ p < zK1 < }/ SDEMODEMO1LENGTHSETUPLEVEL SNOWFLAKE START'POINTSIDESSIDEWAITTEMP } p rr{" h,i, 9:6n@ # )J <<=T # )^ HxIh # )r <<=| # )o}  1" HIT ANY KEY TO QUIT THIS PICTURE# "PENUP# B " SETXY 150,140# ;6 "PENDOWN# D "SUN(8)# & * 0$ :T D/ N1" HIT ANY KEY TO QUIT THIS PICTURE# X " Z ?d nx TURN ON TURTLE IF NEEDED hY-iB;d6 TURTLE INITDo# SET UP QUICK DEMO SPRITE IMAGE < INIT KK(K(< 2:?# (<" DEFINE   ! d  n$ x PQ "TREE(10)#   "TREE(20)#  " FORWARD 200# 9: "BASE#  "TREE(40)# ( "TREE(80)# P $ T / *)*! LOOP AROUND WITH SIMPLE DEMOUT&K3 KEY IS HIT?0: MOVE THE SPRITES / TURTLEDN p{Xb! EXPAND SPRITES SIZE RANDOMLYlv-UTUT.-UTUT,  }*4 MOVE TURTLE PROC>H p {R <X=\ 92:f} REPLYBORDBACKGSPRITEPIECEYTEMPMOVE'ITXTURTLEE RANDOMLYlv-UTUT.-UTUT _Ke`a  DISTANCE: 1( ANGLE: 892 INCREMENT:1< F m*P 9:Z <=d=nDAC KLiMLK`K MMKLrK8LKHKhK` $$$ COMMODORE 64 COMAL-80 REV. 00.14 $$$ (C) COMAL USERS GROUP, USA. WRITTEN BY UNICOMAL DENMARK APS. PERMISSION GRANTED TO USE THIS VERSION,UNCHANGED, ONLY ON TH y,/Y\_gjmux{#*4:Qcilu&),:@CFX[^nqtCΥ)JJJJJJeFFL KKM8}LMLL`KKL`34 څ`1FF|<3=4 څ1 $,# `223q3343432Kȱ3M {k SAVE"0:LOGO" (2<C6qFPZd LOGO EXAMPLESnx pۉ{B;6 >?D} pUr{ h*j <-= 9: # JK HZI 9: # J r La La     $La r u: La r uLa uL $ uLa  ۄLa  ۄ La,0  0 u La,0  0 uLa0 L $ La,0LǃK8L N p{X  b  l  v           HIB  < HID} p{ 9: HZI hK-j} * p'r {4  > HIHhK-j R}\f par {p  z uulB6PmoVuu]uu]uu ]uuu_R2]u9VZ[\u^uu                            K)|zȄFFz) uKL`|FFȱ|8 r { h  *j   <=hK-j )} pr { 9 : HZI 9: <Z= } pr {( h *j2  < F  )P}Zd p1{n <=x 9: <x= 9:} p ɑLL| o ķ `S`aȘ0m`     <01234567899#%&  HIJ ):j ,-.  <=}  p!or{  }! p"r{   }"& p#Ïr{0 $:}#DN p$r{X $ b}$lv p%!r { h *j#  % )}% p&mr {#  hK-j* }*  p+sr,r-{  9,:  H-I $}+ . 8 p.r,r-{ B L +,- V -- ': `D j}. t ~ p{ _KefaCLEAR SCREEN _Ke`aLOWER CASE /_&THIS PROGRAM CONTAINS SOME OF THE LOGOe`a 1_(ROUTINES AND PICTURES FR E COMMODORE 64. EXTRA COPIES OF THIS VERSION MAY BE MADEWITHOUT FEE. DOCUMENTATION IS PROVIDED BY THE COMALHANDBOOK BY LEN LINDSAY, AVAILABLE FROMRESTON PUBLISHING: (703) 437-8900. A MUCH MORE POWERFUL AND EXPANDED 2.00VERSION WITH APP. 30 K B 23MK`KL383Ke3K84i1Ke3MMʈ14K3MM3`|eF}i FiF;F|ȱ|ȄF ݽ-KM-ʊMȄK`K"M3F|ȅ|M"M33"M3MKF` ,,,(,) K" <-=,}6@ pr {J T 9 :^ <Z=h ir}| p ъr { ʊ 9 : HZI }  p r { 9 : HZI 9 : <Z=}  p ?r {  &  0hK-j  :} D J( JLÂL uLa,, [ u La uLv,,00 u La,,0 u LK,,0 u 0 u F|F00 L La $, ۄLa Lv $ La rLP u`  HIhK-j '} p{B;d6 >?D} prr{ 9: HZI 9: HZI$.}8B p6{L d V HI`  (j HIthK-j~} p ML!RW)?H#H`La ۄKFz |MFMK uLa,, [La,, La,, L u uLa rLa r uLa  r uLa rLa r uLa LaK(MMK r La r La $ { P  <Z=   JK HZI   9P:} pՎ{"Ύ, 9F:6 HxI@J}T^ p r{h HIr9$#:| HI} p Er{ <=9$#: ;     = =   #$  &fsssuuuuuuttttttttttttknpxwv-mmoyy||zz}}{{~~$03hhhiiijjlQ WWs4 &((,??uCDFGLNH7SKul#MM8:::::: H!!hOI//ssskut1u=Uk"J11Tuu5 uuu9uuu>%u B HZI 9 : <Z=D& }&  p'r { # * HI4hK-j' >}'HR p(r {\   fhK-j( 'p}(z p)r {! " ! " }) p*Kr {)  HI OM THE LOGO BOOKe`a %_IT CAME DIRECT FROM DENMARK.e`a ,_#IT IS MEANT TO BE RUN AND THEN HAVEe`a -_$THE ROUTINES CALLED FROM DIRECT MODEe`a *_!BUT TO GIVE YOU AN IDEA OF TURTLEe`a +_"PICTURES TRY THE AUTO DEMO OR LISTe`a 0_'THE PROGRAM AND SE^YTES OF WORKSPACE WILL BE AVAILABLE EARLY 1984 FROMCOMMODORE BUSINESS MACHINES. ODORE 64 COMAL-80 REV. 00.14 $$$ (C) COMAL USERS GROUP, USA. WRITTEN BY UNICOMAL DENMARK APS. PERMISSION GRANTED TO USE THIS VERSION,UNCHANGED, ONLY ON TH `)L>r  L>r)? &0 &0 &0/0 Ѕ0/ Zovjivjujiuj+,.-.-.LqL-| 3m ?k x wL-|~jjjjjjjj@jjȍjj` \mЍj Imj=lLPLP \mЍj Imj=l F?+, Lp!@ 4? & & & & & & ׻{j|j j ׻`jmjxjjm~jwjNwjnxjjmj|jjmj{jN{jn|j pj j ׻` 4?H)L|h}j rtj ?k @p jjjjj卯jkjj j ׻ wL-| 3m jL-| kL-| r 9 ~dyjezj fm k]yjjzjj 9 ~dyjezj fm k9zjijy ↆɆ&[lo\_z^Ɇ.s{j//;>lj$nfffgcyhyhyhhhhyiiycgypppypyqyqyqyqryrysysysytytytytytyuyuyyvyvyvvywyywywywwywyywwww< Z@s{چ†˅@M_ +I8j,Iji k,4+3484330ue.e-06vje0vjuje/ujzje2zjyje1yj8,+Lnvjmvjujmujzjmzjyjmyj kLWn` 9 /~ ~dyjezj fm 9 /~ ~dujevj` k` l co}j=l)H) h` ˈj ٠ }ʠ }ʠ ׻ 9وψψوψIЈj Ԡ }Ϡ }٠ ׻ʈԈLx6 6L-|L|CCCCCDDDDEEEEGGGGGGGGGGGGGGGGGGNyNNNNNNOOOOOOOOOOOOOOOPPPPPPPPPyPPyPPQPyQQQQQQQQQQQQQyRRyRRRRRRRRRdRSSSSySTyyTTTTJyyyyyyyyyyyTbUjUVVVVVWWX hLl)͆ ) hlLlJJJJ͆ !)!hlLl) ) hlLl@ ??@@ 00 zj) & &e & & &zj)evj)emuj}jI-vj JfJfJf ؅`  9 9Lu****** `,jL-|,j  w x.L-|)L-| 9f0j [ j ׻ xL-|Lp 3m @p x wL-| x w.Э)Э)Э) co Zo `j)8xj vjwjuj8|jzj{jyj s`j vj +< H 8h+<<<L?j  8ȥ+L-| ]C{544ݭ Э}j  Lj)ЩhЭjЩtjjj`tj5ݭ)Э)ЩЭЍjЩtjj  n kL-|}jI-vjvj1 lo1LMuLuLu 7 7)L|1H) ܅+݅,ޅ-߅.h o uj+vj,Lu/0 oЬ k/ o/ loLu/ o/0 o0 loLu0 o0}jie,,+Lu11LMuL-| 3mwjujxjvj{jyj|jzjj 8O}N}0ڭ`d ̠ ׻ ̠L[ ?:; ?<= ?>@?A89 )0L} ,  L, a]iYaLj aKiGaLS a8逍i 8mP0&aL+ i8逍   co?+ ZoL-| 3m 4?H Im coh +w?H Zoh l =lЭlЍjL-| =mH Imh'L-| 9 ~dyjezj 9 ~dujevj Im sL-| 8zjzjyjzjzjvjivjujiuj ujvjvjЭuj lLt=l` \mH \mH Imh jij8jjjjjj 9 ~dujevj kfL|vjijujij 9 ~dujevj kխuj~jvjj8jjjj~jjL-| 3m n kL-| =mj.L-| =m!L-| F?+, -!. nvj)vjzj)zj-.L-| kY l!) co ) 0+0  HS|EPw Fz LzCLr|6)q|e||} 7 7)2}; |: LcC| END AT STOP AT k| 1IJ 0|}y `ʩ8 1|Ȫ| 0:  >  y y 1ihh L/F|F`0 JJJJL$o=l Zo!)`ݼlݴl Zo)`) `) `1H) ujܭvjݭyjޭzjh1`Lz9}jIe,vj+uj-yj.zj oM!)`+uj,vjLo.izj-iyj+uj,vjLo8.zj-yjLoj } pj } p0`af`wjxj j XXyXXXYYYZyy[y[[[\C\b\\y\\\\\]]]Cyyyy]]]]_______```yeyy\\``yaaaaay_yyybbyiyydycyyyyaaaabbbyycydTTyTTybbybcyyyrrtu5P A\kkkkkk - 5Akw&2>JVYo).o &/a;G)HȆ tjdL| 4?eL| 4?L`~HIih` 9a`8zjzjyjyj`8,vj,+uj+8.zj.-yj-/012+,+I+,Ii,+/000-.-I-.Ii.-1202+-/,.%+,-+.,-.12L3n/0  zjujyjnjxj?L x y y y Xx卯jkj` co? +wL Zo`8zj evjJJJevj)LlL`j j }Š ׻ d⩠j }Ԡ ׻ 9Š k⩠j }٠ ׻ /~ ~ei .di- 9 /~ ~ei ,di+ xm`ԈʈʈԈʈI jj`!) co! ? !؅!  ! Zo}j؅! !` k k`8vjjujjmjmj8zjjyjjmjmj``lj kв!) l) }j*͆ l) `=lLl=lH͆ j }̠ ׻ d 8 }j }j ׻ /~ ~e,xjd+wj̠ k 09 } j }j ׻ /~ ~e.|jd-{jj xm wL-| 9j } oj ׻ xL-| 9 j } oj ׻ xL-| \mH Imh =lLvlL-|jL-|jL-| =m L-| 9 9Lv a"L|88P0L|aLL} io wa`03ȩM~ [LL|f0Lqaf0LLR~iaf`N ׻n ̼N [ XL~ H l~N } R~hJ `̠ ׻ kѠ ׻̠ dѠ ~`aɐfb LL|f0 a lL3t=lh lLHt=lL-| Im=lЍjL-| =m& =m%L-| 8 L-| 3m nujwjvjxjyj{jzj|j p wL-| 3m nuj+vj,yj-zj.wjujxjvj{jyj|jzj+wj,xj-{j.|j pj xm wL-| 3m n oʊ 9L-| 3m ,+,L8]L\y))ywA@ 8@@'A#@ȅ+@,8@@A8@,@A+AL-|y)yLC ?L-|8鰅A@8vGi@AL^@ ?i@ AL|G)@ ?@i@+-A 8- -+  󥐝G @ /+ȥ0+@ 98)ȥ/ȥ02128e/d//ȑ//ee/0ed02102L[@i@AL-| 9aLCF|ȱ|}|wL-| 9aLCLX 9aLCFLXy))yLCwF|ȱ|}|L-| | 98 ||ȱ}wL-|L| M |N +s+t, |M |N +8+s-,t.8-.+s,t +L-| | | | |L-| |+ |, |- |.8/90/:0;'+/ȥ,//q//0,e.,+e-+LfL-|8, ? |+ |, |- |./8|9} B8|:}; AC L|+,+ȥ,+ȥ,+ȩ+I-L-| 9 ~A@ q@+ȱ@i,d+ȥe+AL-| 9 ~A@芑@ʊ q@+ȱ@i,8e+(d+)AL|d+ȥe+()@rȱ@qA BA@Ȋ@@AL-|@-/ȱ@.00&/0 8 ȥ! 8 A@A!L| .@L-| 9A@-ȱ@.ȱ@/-@A .@-!L|A Bf0 X̠ ׻ .  6~Ѡ ׻̠ } /~ ̼̠ ׻Ѡ - 6~Ѡ ׻̠ [0.8e-e/* `BLe-e.Ѡ @iAi ~d@ȥe@@iAi ~d@ȥe@@ ,@+LW@ 98)+ȱ,)@ +ȱ+,+=+, ɇ@iAi }+, ׻@iAi [YIQ@LfX+/ȱ+0ɇ0q@0/q@/+ȥ0+/@ȥ0@80@/@0 a ?B L-|SB ?LNb 4?+ ?, q?L q?La 4? 4?A@AL-| 4?H >h L-| bL-|0YH >h Lb`,H 8hȩL-| 9 8   ׻Lc /~ ~dȥe 9 /cLRT /cLRT+$ @A+Fȱ+|ȱ+}|z +ȱ+) +@AL-|1 | 98LrFA@ȱ@ȱ@ȱ@A@ 98 ȱ!  L|ȱ  :L-|,y))y |A@8)LW |FF 8eL-| 9A@8@  9 @L-|K B ` 0  8L  8ȥ  =L-|A@ A 9L-| B7) 07)7A@yvGʊIe@@AhhL|` ?L-| 9̠ ׻ @A@i@A  L-| F? @A@ie!@A ! LC > :; ?<= ?>? ?89 0Llh  LC > g}LC ,L-|y) L|y|}LS|8B@CA hh 1L-| BYTES FREE. ݽ 1` 1i 1y)y8|9}jLcC:+;,< L_ + !,q@i@A+, 8 ,+,Lp^ 8 ȥ!  󥐝GLu_L|ɫȱȪަCɮL|ɭei iȱȱȄ 9 @L-|ɮL|ȱȅ+,ie@-Ai.8B-C. L|/ A@@ȱ@LC\,w|e||}L-|7)L\7 7L-| 88鏑F|ȱ|L|LXy)FF)yL-| 98@A/0 [ /@0AwL-| F? +!,8-ȱ.8./-0@A+-л,.е+,Х Lh|Iȱ|JI+ J,LgI- ٥J. ˁ)//IJ 0 /)  M' ȭ((/i  )/|e||}  L5g A@ H >h A 96 6H >h &/ L|0e../e--8B.BC-CAAC@BA@+ȱ@,CBi+/ȅ0+.-.//0.-0.LZ@i@AL-| 9 ~dL|eeiedA@+ȱ@,@r1ȱ@q2d)e( B.-8B.B/C-C0B@CA/0  Ѡ ׻̠ Ѡ [0Ѡ } ̠ ׻LSe. @ @Le  `BLei0 `B.. . `BL>e .@L-|H >h  F? !L|:L ȱP  L-|DȱSL-| |{H{H` | ,Q@0ALC |FAL-|@ȱ@@i@AFLX@i@ALCFy y 7 7)L|L-|y))yLCFȱ|Ȫ|}|wy yL-|,, | A9)L|  8ȥȩȩ |T i-8B-B+CC,@B ,+ȱ+L/c` > ?A@ȑ@ALg > G ?A@ȑ@A B  v06)O 0 G)@֩ 96 6Lh 4?+ 9 d.e-+-L-| 9 d.e--L&I 9 d!e L@HAH F?hAh@ 8 @ȑ@ȑ@ȑ@@A 9L| +ȱ,)@ +ȱ+,+LV+ȱ,+ + ~d+ȥe+LV+, ׻A)`,+@ȥ,@AL-| 98@LW 98@ A ׻L-|,A@8e@@ȭ@@iAiF@L|:  ! ! !LNa L-| 9L-| 4?A@@AL-| 9 ~Ad@ȥe@@AL-| 4?A@AL-| aL-| 8ȩ`R,W,A+ ? , q?+ q? DLb+W, 4? L|B > GL-| +=,++i+,ݥ>@?ADBECLb$BB ` =B  +7 ,. ,+ h   о  L-| | 0CLvi 4? F? L|! g}Lh o +/@/,/@ȥ+@-@.A =L-| 9L-|L-| ?L-| B `L-| F? ! ! !L_,K 0 Fx)H  B `L_o 2m $a  LI`` ̠ LI`:` 1L_ INPUT ERROR  1+1/+.L|L-|,+8+@,ALGI. ?12&&2e1e/eȱ/e.> 9L-|2 1*/eȱ/e.ȱ 9L-| 8ȥȩL-|/ ȱ/! i( i)1r2q B12/e11ȱ/ y)#L|+ȱ,+- e- i 81 -ȥ/0 8ȭȥ/ȥ00/iȐ芑ȩȥ+ȥ,ȩ L-|8 0.-@+A,.J1- 8++K,G8A+@+,@,++,A'A@A8+vG+, | 9 d 9L-|7)7)LPLP 9 R~ 9L-| 9 ̼ 9L-| F? !L&IA@ʈ21 <8221e1@ʆA !L&I 9 l~ 9L-| 9 9L-| 09 9 9 } } 9 9 } ̼ 09 } 9L-| 9 9 9L-| 9 k 9L-| 9 e~ 9L-| 9 ~ 9L-|Lyɫȱ ȱ !  ȥ!ȩ A@ʈ21 </e!@0e A 8B@CA L| 5+ 8 ȥ!L-|, | 9 8ȥL-|L| 8 ȱ!)@ ȱ ! ȥ!ȩL-| | 98) )), |) 8ȑ(J 9 09 }af0%LPLP8)J A@A,!+ -. - .! !!! !LO+-,.,LO A@A-. +,L&I8,.0+-/ !/ߥ-.' 1!23413!12@A`] *q&r e(e)]`L|? `A@vGI@AL|@ ?ȱ@,ȱ@A+ G)@L|+ ,AK KLK K, + 󥐝G `M|}y)y|Iȱ|Jȱ|zȄFwF|FL|,/. /F/ȥ|/ȥ}/3|4}/i30i442+31%3 98ȱ3Ȋ33i34͠ /ȭ//0/)-/ȭ/ȭ/ȭ/BC/0 @@A|zLC 9 /~ ~dL|eA@ʈ+,+ #.+# .+# A@ȥ-@ȥ.@ȥ/@A` 0- `/ `-. 9A!@ ! +!, ;-= /~ ~. edLnAeeedLnA8edLnA. .a }LgAa } ׻+8@vG@AA@A` ʅ ȱ!8! LK1A@ʈ21 <1+@,A 8 ȥ!ȥ ȥ!@A@e!@Ae AC  L|@B 5++,2LLLL.j L|-A@  ! ;LLA@ 4 Έ@ 98ȱ)@ ȱ 1 L-| F? B ! `B! !LvS L-| B HBmQ  BLS  `B80 HBmQ  B L-| B  `BL-| 9aLCLX 9aL-|y) )yFFL-| yLSy)yL-|y y |LS,y))yLC+,+ e22 8Șȩȑȥ1ȥ2ȩ i1i2.:6 <e!@e AC  L|@B 5+ 8 ȥ!L-| ,+1,2e++,.+ȱ+d+ L|eeȑ+LWJe8+d+8i0٠+Ȋ++,LI 8 йгȱ + L}J.J-L| 9LG-A@ʄ! ,+Ȇ@A- Q;- F :L-| /~ ~+ LI,+-i+ȱ+1ȱ+2ȱ+/ȱ+0- e/34-,3)ȱ383)3Ȇ()1r2q B2183e3dL|8e3ed30dee2+2de LPLP 4? L|G)@ 4? GL&I ?L-| B  BL-|A@@ȱ@A@L-|e@@AL-| 9 ~dL|deQ 8ePede HBe& B  B B HBe  `BLS L-| 9 ݽ Buv u HBeP  Bȥ ȑL-| 8 ȱ!)@ ȱ ! ȥ!ȩL-|,, | A9) |)K) 8ȑȑ ȱ!)@ ȱ !  ȥ! eL-|)% 8 L-|1)8LyF)8LE348 !L!P !0/0L>P 9a af 9L-| LP 9 09ai 9 09aܥiʢ, @L-| =L-|,LP,LP 4?PKL-| 9 X 9L-| F? !L|@L1QL&I 9  9L-| 9 ~d,L| 8eȩȩL-0fyHzH`wL-|}Fe| 9FiFL-|F|ȱ|ȄFL&I |! !i 8}|eFȅ 5+Fe!FA@ȥ!@AL-| | H:  9L-| :L-| | H:ȱ LD | A9) )),L|)@/A0 8ȑ ȱ!)@  ٠,d+ȥe+,L-| 9 9L-| 9 09 w~ 9L-| 9 09 ~ 9L-| 9 09 } 9L-| 9 09 ~ ̼ 9L-| 9̠ ׻ 9 9 ̠ nEfoa ~ ̼̠ } 09 } 9L-| 9 09 } 9L-| A+ ,!8 5+8@@AA,e.@+e-@AL-| 9 09 } 9L-|88ȭȥ/ȥ0ȥ1ȥ2ȭȥ3ȥ4ȩ `8@A+ȱ,8,+8-ȱ.8.-`A@ =BL:B@ ?@ A` `A@ L]BA`A@ A`@i@A`A8@@A@ȱ@8@@A@ȱ@L|- P 8ȥȱ3ȌL4M.j L|-8@@A@@ ȱ@!- Ѕȱ3Ȍ п 8 ȥ!31ȥ1ȥ1ȥ1ȑ1ȑ11i12. AL-|3{ L ++i-,i."- 98--i-.LuT)L(U:-;.8-<.=[-)`D)=)88-ȭ-)8-ȭ--/ȱ-00/--i-.LTBC+)5L|)+ȱ+ +, ׻+@,A) @iL-| L|8+ +,+ȱ+ȱ+/ȱ+0ȱ+1ȱ+2ȱ+ȱ+3ȱ+43{ L|8r0LLv-L|.j 9L0KA@ʈ! - Q;+@,A A- F :L-|+@,A 9LZK ~ 8dȥe 0LL-Њ.j)8A@ - h7L3-L83-- h7- h7 8 ,8L5ɕ  o7 7L5" 7 `8ɖ- h7- h7 ,8L5ɗ `8ɘəL5 o7 7L5ɛ 7 8- h7- h7 ,8L5ɜ a7 98L8ȥ/ȥ0L5ɡ. `8ɢɣ8颅3 o7-ȥ3- 7-L5 8 7 `8i 7L5n' 7-L8- 8 7-L5oA 7 8-3ȱ-4ȱ-43-ȱ3./3ȥ03-3.4ݢ ,8L5p G,p4843 7 o73- a7- 7- 98L83iȥ/ȥ0L5} 2L8L%3 2},484 ȱ1310ȱ1q1!1q1 ! ! 3 йȥ!3а1 ȱ1!1e31e4i` F?A@ (@ 98+ȱ,)@ +ȱ+,+ AL|@+ȱ@,@3ȱ@4ȱ@1ȱ@2A@A8e@@A12L>2e4.1e3- m  }w {Ʃ ,0 7)7O6) 0L/&6)6MNOP LC =B  L/ ? B  A0 v0 9`ֹ0`'х ) ؅!љň 툩 ѭ `)"'х ) ؅!ňѹ툑 ` 8` ȱ!  L|ȱ  8y)#L|Fȥ|ȥ}ȥ| ȭȭȥ ȥ|+ȭȥBCȭ  |!}|zw` B! 98ȱ)@ Hȱh  `ȱ ) HHHH & & & ЅiO?hhhhhj.Хltj.HMHHHHHl'wɅ kLx.Ɇ jj ɇ jjhhh@HH.HH HlHH.HH Hlhh@H , +ʩ8 1IJ 0: + > ʚL/ AT @Ae@@AAC Lz9@B`A8@`8@@A` 8 ׻` 8@A ` 8@A ` 98)V)NI B:8BBCAC  L|@BȑBBssesstL+s`0Dsmtm@m!Am C !BL08!!  e+LO,8st@m!Am 8!!  5+@m@AmA>m>?m?0# `΅υ` c͝`889  `  e8e9` 9 ~dL|e`A@ ȱ@!8@!@A A@@A`L|B` 9@ȱɤ= 7-L8 8 7 `8ɧ8饠- 7 h7 h7L5ɨ( 7-L8- 8 7-L5ɩ? 7-3ȱ-4ȱ-43-ȱ3./3ȥ03-3.4ݢ ,8L5ɪK/0/02 /1ȥ01 `8ɫ02/e121ȑ1L3 7 a7-e4 h7- h7L2-L83- 8 ,8L5H 7-h`+-,..--87-.L3L8-` 2i h7L5 2L8ɂɃ/8邅3 o73- a7- 7 `8ɈɇL5 ,8L5ɊɋU8銅3 7 a7-i h7 L|.-.-+ ȥ.+1+ ȥ2+͠+/ȱ+00/1/ д20-+ ȥ.+ -+ȥ.+ 3!4 3 4!+e2,e1i/0 5+ 3!47/e!/0e 084!!3 ! //0! !Lg>` + ȥ! % +8 +Ms`+,F,e++,` }vuu L 1`@+A, o7128/900; L5/: a7I a7J a77)7 a7h- `8i j7 7L5 o7- 7-ȑ-ȑ-L5m( 7-L8-`! ȱ L;8`8 !L;L| &! 98ȱ)@ ȱ` !  `L|12 )1 983ȱ4)@ 3ȱ343 L|1413Ȅ1ȱ13 ȱ3!3i4i`1L|3HH ݬ 0C ;y y>@?A k  Щ!ЩԭL/LrxU-.~..Xɠ!Щ ТS 1B< 1詇 1 1 ,6 LC  <mȥC`` A9)IeBBCAC @BLz9 ȥBȥCiȱi`))L|`)8`ة` A9) L|)L|)"ȱ)@ ȱ`8ieL,`Q89:;<=R>?@AQBCDE7w ktjjjjjjy`  7 7) Ʃ wL2.L'.j}jtjΝjީjH) O؈ 8,.+7-.7-L8`/-ȥ0-ȥ-`-ȱ-ȱ-e/ȥ/Ȧ/-ȥ0-Ȋ-`-ȱ-ȱ-Ȅ /ȥ0`8+7+,`8&&ee:e;`/u0vu r8``qu` ɬɭɮ`@ F? ڠ!  q?!`+@Vȱ@Uȱ@WPSȱ@ AL|G 󥹍T 9 +` 8`A@ ?@3A L|3 `A@+ȱ@,@ȱ@-./AY B+-# ?+#-/-%+5ɞL8ɝ a7 98,3 54 h7L57)LZ1/e//0L81 7 ,8`4 !3)3)L6/u0vv; u:L83)uɜ ȱulL8uɂɃu r8Ɉɇ 0L6L8Ɋɋ (4 L6p!L6}!0ɠueuuvL `LK  5 6x)x 0x x x)xa +  L: X6 6#(H(H` 13 3 ccfL'52 5308h0 d3֥ХʩPL)7и3JЭ2M ixM LitM  )! sL)" s )   )   L* )# sL)$ s )L)% s )    )& sL)' s )   ) )( sL)) s )   ) )* sL)+ s )   )   ) ), sL)- s )   )   ) ). sL)/ s ) )0 sL)1  `JL*`M`L09`*ʆ9`2`ʆ`,,,,,:,;L- kb %  F 2- i+ + +  + ` P 1- h`+"--L   u5 a. ) k #  L*L)  :*, S `L' b    a k 5* L) b    aй թ , ,, kL)6)L'  kL)a k)ڊL!_  e ` aL! $L) $L) $LL0  L 0 L  +  ,0 ~ )HH`L+,L-L,+ U L=+ܥ,J ,JLw+ʥ,Jп+й,еж,Э+ЧLR.1CYk|1.  L i L L-LН /L! JCi /u L!l1,L! 6   L! L'  moL!  )L'  Ji uL! ]  )   Ʃ   \. )  %    )    9LHɀоL!L{ d ) ЧLk d )  6 6L)ɀة d )Ω cL{  cв  L! L! d   X1 L)L' d X0 0/L*/ 0uɀéLkLsL{ d  sL)J s ) )K sL)L s )L)N s )L)P s ) )Q sL)R s )L)S s )L)T s )L)L)#% ""$ #  # ! #$$" !#!$$"$$ " "#$#(#$$$%%%%%%%%%%%&&&&&& cfL'8ce0 s,ui 0  t  L* 0 /MuLt/M ɀ L' |{L! d} c,L! d 8ci  ޥ6),) c dL'  X h|L' )O) ^L  0L)`  .`   `L*]< ) k'uL' ) ku ) kݩ `  ň  `/ 0 1 2 `/1 02 Du"aL' +/0 "u a +12 `LLg/J0/ JE0)L*/ e/e0i: 31B 1l LN )L) )FL!/_  ) bS\ L*kL'b     L!l g  )L&  ˩ f L&uLlɀK' sL' tL's )   ) )2 sL)3 s )   ) )4 sL)5 s )   ) )6 sL)7 s )   ) )8 sL)9 s ) ): sL);L&< s ) )= sL)> s ) )? sL)@ s )   ) )A sL)B s )L)D s )L)F s ) )G sL)H s ) )I - L  A0 Q0+ >I+ʆӥэҍ 8(Ӱ+wx+ƥ   9  ,0LERROR  ^ `6)-`H6)$H h `7,8,9,6L Fɀ`6)` Lڭ  `   LuЪ`)6) moЋ/ )/`    Jߩ,L!6) )l,~3 з3,L! F s  JL' ), sL) ) sL) s )   )   )   ) ) sL) s )   ) ) sL) s ) ) sL) s )(.3?Qn,:s{,225+ FL0 ~ )+  +HH` LL*L L;Zds  `{M 8M`8LF8LL3 J  ` L!VZ[, )  ]  ),L!  L'    )   L) )  )L! )L! k bб #   a L)  L) k  *L#, k a* L*L),3  *  e3 k0u bC /m@/o/ `/M  L8!a /8  L8!bL'/  5* uL ɀߩLk  ) 5 5JL'i u LZ!ɀ穳,  )L)  /1 )/ 5 5/"kJ J &&&''''''''''''''$'((TT8{8SpHxbNG/-!D Q g6J8ۅW2ZP.8{A.b2GGG6 Dx',R](D`&&&&-@EXk 6) 6)6L:6) L)6) 6) 6 ) I )  6 6 RL) L! d c dL'  XL) XL!6) V/  cFfB8c1i  0 s- )k )0Mu LptL' 11v ) L0M֥/ /u/0'12a$ +/0 o/102L+oL+ a +12 `L'' ` !%Ie!e!`e e  ! `8s9tt;2s:,Ms# ȭNL*c /L Jid /uf / LlgɀЩ/` a L)h )M j 6)!6 "6L) dLim X d )M L'i XL)n XL~o  d )L)p,1 d c 1pd8ce1  X/ sLJr :   ""; : CLEAR SCREEN@ 53281,0 : BACKGROUND BLACKc 53280,12: BORDER MED. GRAY( ""; : PENCOLOR MD GRAY3 "LOADING COMMODORE 64 COMAL VERSION 0.14 ";< ""; F "COMAL HAS M   (2063)L/ABSANDATNAUTOBASICCASECHAINCHRCLOSECLOSEDCONCOSDATADEBUGDELDIMDIVDOELIFELSEENDENDCASEENDIFENDPROCENDWHILEENTEREODEOFESCEXECEXPFALSEFORGOTOIFININPUTINTLABELLENLETLISTLOADLOGMODNEWENDFORN //!:=:+:-:;++--&.(),*/^<<=<>=>>=# SYSSETEXECSETMSGRETURNFUNCENDFUNCNULLPASSDELETE SETGRAPHICSETTEXTFRAMEPLOTPENCOLOR BACKGROUNDPLOTTEXTCLEARDEFINEIDENTIFY SPRITECOLOR SPRITEPOS SPRITESIZESPRITECOLLISION DAT ; % ; ; ;; ;;; ;; ; ; ; ; $$  ;; ; ; Q2Q$CDADCQ                                      ~A")  634,("I")  635,("N")(  636,349  637,("H")J  638,("I")W  639,13p  "C64 COMAL 0.14",8OU MAY" "MAKE COPIES FOR YOUR SCHOOL AND FRIENDS." ""; : PENCOLOR MD GRAY "COMAL PROGRAMS ON THIS DISK ARE L`L `Lx xL L 0eL80 Lx)8 L/ 8 #̠  LR 6~ ̠ ׻ x)x`` [ ~de```r`cLiJuiv ,LC L<= ,hL4L  ""; : PENCOLOR YELLOWO "YOU ARE ALLOWED TO USE THIS VERSION ONLY";~ "ON THE COMMODORE 64 UNCHANGED. YOU MAY" "MAKE COPIES FOR YOUR SCHOOL AND FRIENDS." ""; : PENCOLOR MD GRAY "COMAL PROGRAMS ON THIS DISK ARE L  ) )ʩ 0+  e+gHH`L'<,L  L ޥL i 0i  L 8cL      5){Le   e L8`OST OF BASIC PLUS STRUCTURES"K P "OF PASCAL AND THE LOGO TURTLE GRAPHICS."Q x "TUTORIAL: CAPTAIN COMAL GETS ORGANIZED "DOCUMENTATION: COMAL HANDBOOK "NEWSLETTER: COMAL TODAY " AVAILABLE FROM: " OTOFOPENORORD OTHERWISEOUTPUTPRINTPROCREADREFREMRENUMREPEATRESTORERNDRUNSAVESELECTSGNSINSIZESPCSQRSTATUSSTEPSTOPTABTANTHENTIMETOTRAPTRUEUNTILUSINGWHENWHILEWRITEZONEEDITCATAPPENDRANDOMUNITFILEPOKEPEEKACOLLISION HIDESPRITEKEY SPRITEBACKMOVETODRAWTOGETCOLORFILLFORWARDSETXYLEFT SETHEADINGPRIORITYPENUPPENDOWNBORDERRIGHTBACK SPLITSCREEN SHOWTURTLE TURTLESIZENEXTLINEFEED FULLSCREEN HIDETURTLEHOME;; ; ;  ;;; ;;  ; ; Qa000000H8JKL%\]MND6OPR&79ISVWXY^EZ[CE' )!'$#"*.2,04                                                        ` L L-|COMALERRORSKL K, Lɠ`L KL  0LNKx) ax)xL LLLʩ 0e HH`Lx x`L̠ 6~̠ ׻L80 ̠ }̠ ׻L  L  J` 2L s  q   о 2L  Jii+  ,   , 5)+i+{8&,L, ,+ , `5)L   Jh `G   J LL*   ~ )  ?>ʈts,+ +u++--------------<>ERROR MESSAGES<> FILE <>------------ -<COMALERRORSSEE'PAGE/DEMOCURSOR/DEMOVALUE/DEMOSHIFT/DEMOJIFFY/DEMO QUICKSORT/DEMO JOYSTICK/DEMOPADDLE/DEMO>----------- --< >FILE GENERATOR< >---------- ---< GENERATE ERRFILE >--------- ----<>AUTO BOOT PROG<>-------- -----<HIDISK'GET/DEMOLOGICAL'OPS/DEMO>- ------------<> SPRITE DATA <> FILES < >-- -----------<MOB2SANTA  >------- ------< >SEQ DATA FILES< >------ -------< INFORMATION83NOVINSTRUCTIONS0.14*>----- --------<>COMAL PROGRAMS<>---- ---------< >--- ----------< >END OF COMAL < >DEMO PROGRAMS < > < >THE FOLLOWING < >TWO PROGRAMS < >ARE WRITTEN IN< > BASIC < SEE'INFORMATIONSEE'INSTRUCTIONS LOGO'BOOK'SAMPLELOGO EMULATOR" SNOWFLAKE SPRITE/TURTLE SQUIRALLANDER > ----- < >DO NOT LOAD < >THEM INTO < >COMAL. < > ------------ < 1541BACKUP(FREE)SINGLE FILE COPY MUSICSANTA'GAME BOUNCESPRITE'DESIGNERREAD'DIRECTORYPRINT'DIRECTORY EXPRESSIONUTILITIESRECURSIONSFORMATTERFILE'TO'PRINTFILE'TO'SCREENDISK COMMANDS C64 COMAL INFO REMOVE COMMENTS SEE'ROLL/DEMO 0010 // WORKSPACE WILL BE AVAILABLE EARLY 1984 FROMCOMMODORE BUSINESS MACHINES. ODORE 64 COMAL-80 REV. 00.14 $$$ (C) COMAL USERS GROUP, USA. WRITTEN BY UNICOMAL DENMARK APS. PERMISSION GRANTED TO USE THIS VERSION,UNCHANGED, ONLY ON TH 0010 // WORKSPACE WILL BE AVAILABLE EARLY 1984 FROMCOMMODORE BUSINESS MACHINES. ODORE 64 COMAL-80 REV. 00.14 $$$ (C) COMAL USERS GROUP, USA. WRITTEN BY UNICOMAL DENMARK APS. PERMISSION GRANTED TO USE THIS VERSION,UNCHANGED, ONLY ON TH 0010 // WORKSPACE WILL BE AVAILABLE EARLY 1984 FROMCOMMODORE BUSINESS MACHINES. ODORE 64 COMAL-80 REV. 00.14 $$$ (C) COMAL USERS GROUP, USA. WRITTEN BY UNICOMAL DENMARK APS. PERMISSION GRANTED TO USE THIS VERSION,UNCHANGED, ONLY ON TH 0010 // WORKSPACE WILL BE AVAILABLE EARLY 1984 FROMCOMMODORE BUSINESS MACHINES. ODORE 64 COMAL-80 REV. 00.14 $$$ (C) COMAL USERS GROUP, USA. WRITTEN BY UNICOMAL DENMARK APS. PERMISSION GRANTED TO USE THIS VERSION,UNCHANGED, ONLY ON TH 0010 // WORKSPACE WILL BE AVAILABLE EARLY 1984 FROMCOMMODORE BUSINESS MACHINES. ODORE 64 COMAL-80 REV. 00.14 $$$ (C) COMAL USERS GROUP, USA. WRITTEN BY UNICOMAL DENMARK APS. PERMISSION GRANTED TO USE THIS VERSION,UNCHANGED, ONLY ON TH FORMAT ERROR SYNTAX ERROR TYPE CONFLICTFUNCTION ARGUMENT ERROR%STATEMENT TOO LONG OR TOO COMPLICATED SYSTEM ERROR NAME TOO LONG BRACKET ERROROVERFLOW ERROR IN STRUCTURED STATEMENT ERROR IN GOTO STATEMENT STACK OVERFLOW UNKNOWSTEP = 0ARRAY REDEFINEDDIMENSION ERROR CASE ERROR END OF DATAFILE ALREADY OPENFILE INPUT ERROR END-OF-FILE FILE NOT OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT TED;NOT IMPLEMENTED<OPERAND EXPECTED[ USER ERROR #1\ USER ERROR #2dGRAPHIC NOT ACTIVEe ILLEGAL COLORfILLEGAL PLOT COORDINATES OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT 0010 // T IMPLEMENTED<OPERAND EXPECTED[ USER ERROR #1\ USER ERROR #2dGRAPHIC NOT ACTIVEe ILLEGAL COLORfILLEGAL PLOT COORDINATES OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT 0010 // T IMPLEMENTED<OPERAND EXPECTED[ USER ERROR #1\ USER ERROR #2dGRAPHIC NOT ACTIVEe ILLEGAL COLORfILLEGAL PLOT COORDINATES OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT 0010 // T IMPLEMENTED<OPERAND EXPECTED[ USER ERROR #1\ USER ERROR #2dGRAPHIC NOT ACTIVEe ILLEGAL COLORfILLEGAL PLOT COORDINATES OPEN CON NOT POSSIBLE!ERROR IN PRINT USING"DIVISION BY ZERO#PROGRAM NOT PREPASSED$FILE NOT FOUND% &NOT  < P a P_`a,_#THIS PROGRAM WILL GENERATE AN ERRORe`a(_MESSAGE FILE ON DISK.e`a2_`a<+_"PLEASE INSERT THE DISK YOU WISH TOe`aF-_$WRITE THE ERROR MESSAGE FILE ON INTOe`aP!_THE DRIVE (DRIVE 0) NOW.e`aZ_`ad HIT RETURN WHEN R EADY nx@0:COMALERRORS \7 _KefKefKefefa FORMAT ERROR SYNTAX ERROR TYPE CONFLICT)FUNCTION ARGUMENT ERROR7%%STATEMENT TOO LONG OR TOO COMPLICATED  SYSTEM ERROR NAME TOO LONG BRACKET ERROROVERFLOW/ ERROR IN STRUCTURED STATEMENT") ERROR IN GOTO STATEMENT,  STACK OVERFLOW6" UNKNOWN VARIABLE@' PROCEDURE PARAM ERRORJ#INDEX/PARAM ERRORT!SUBSTRING ERROR^?--COMMAND, ARRAY, SUBSTRING, OR PROCEDURE ERRORh INDEX ERRN VARIABLE PROCEDURE PARAM ERRORINDEX/PARAM ERRORSUBSTRING ERROR-COMMAND, ARRAY, SUBSTRING, OR PROCEDURE ERROR INDEX ERRORILLEGAL NO. OF INDICESSTRING ASSIGNMENT ERRORFUNCTION ARGUMENT ERRORNOT IMPLEMENTEDZONE VALUE INCORRECTINPUT FILE'DEVICE NOT PRESENT(NOT OUTPUT FILE)STRING NOT DIMENSIONED*LOCAL VARIABLE ERROR4TOO MANY NAMES5FUNCTION VALUE NOT RETURNED6NOT A STATEMENT7!NOT A COMMAND OR SIMPLE STATEMENT8 ',' EXPECTED9NUMBER OUT OF RANGE:EXPRESSION EXPECORr(ILLEGAL NO. OF INDICES|)STRING ASSIGNMENT ERROR)FUNCTION ARGUMENT ERROR!NOT IMPLEMENTED&ZONE VALUE INCORRECTSTEP = 0!ARRAY REDEFINED!DIMENSION ERROR CASE ERROR END OF DATA#FILE ALREADY OPEN"FILE INPUT ERROR END-OF-FILE FILE NOT OPEN" CON NOT POSSIBLE{T ACTIVEe ILLEGAL COLOR*fILLEGAL PLOT COORDINATESAERRNOLNGSEVv-5FUNCTION VALUE NOT RETURNED!6NOT A STATEMENT37!!NOT A COMMAND OR SIMPLE STATEMENT 0010 // ------- --< >FILE GENERATOR< >---------- ---< GENERATE ERRFILE 0010 // ------- --< >FILE GENERATOR< >---------- ---< GENERATE ERRFILE 0010 // ------- --< >FILE GENERATOR< >---------- ---< GENERATE ERRFILE &+.  AUTO BOOT PROGRAM_Kefa REM CLEAR SCREEN( G!2 F GG<  GFP_Kefa LOWER CASE MODEZd0_'ELCOME TO THE REPLACEMENT OF ...e`an_ ... ...e`ax_`a2_AVE A PROGRAM: SAVEef"KefNAMEef"Kefa2_)LEASE BACKUP THIS DISK BEFORE USING IT.efa1_( efa1_(N EXCELLENT PUBLIC DOMAIN BASIC PROGRAMefa1_('1541BACKUP(FREE)' IS THE LAST PROGRAM efa1_(ON THIS DISK - SE IT TO COPY THFERENCE. LL FROM SERS ROUP,e`a6._%5501 ROVELAND ER, ADISON 53716.e`a@1_(ELF ADDRESSED STAMPED ENVELOPE FOR INFOe`aJT ^6+ȒELP ɒNFO ĒEMO ВROGRAM (H,I,D,P): h rPЦ|_YOUR TURN NOW ...eB LOADING INFORMATION FILE.e`aSEE'INFORMATIONCADISON 53716.e`a@1_(ELF ADDRESSED STAMPED ENVELOPE FOR INFOe`aJT ^6+ȒELP ɒNFO ĒEMO ВROGRAM (H,I,D,P): h rPЦ|_YOUR TURN NOW ...e&!ERROR IN PRINT USING""DIVISION BY ZERO'#PROGRAM NOT PREPASSED& $FILE NOT FOUND0% : &NOT INPUT FILED$'DEVICE NOT PRESENTN!(NOT OUT8 ',' EXPECTED%9NUMBER OUT OF RANGE%:EXPRESSION EXPECTED!;NOT IMPLEMENTED"<OPERAND EXPECTED[ USER ERROR #1\ USER ERROR #2$dGRAPHIC NO 0010 // INFORMATION FILE.e`aSEE'INFORMATIONCADISON 53716.e`a@1_(ELF ADDRESSED STAMPED ENVELOPE FOR INFOe`aJT ^6+ȒELP ɒNFO ĒEMO ВROGRAM (H,I,D,P): h rPЦ|_YOUR TURN NOW ...e 0010 // INFORMATION FILE.e`aSEE'INFORMATIONCADISON 53716.e`a@1_(ELF ADDRESSED STAMPED ENVELOPE FOR INFOe`aJT ^6+ȒELP ɒNFO ĒEMO ВROGRAM (H,I,D,P): h rPЦ|_YOUR TURN NOW ...e 0010 // INFORMATION FILE.e`aSEE'INFORMATIONCADISON 53716.e`a@1_(ELF ADDRESSED STAMPED ENVELOPE FOR INFOe`aJT ^6+ȒELP ɒNFO ĒEMO ВROGRAM (H,I,D,P): h rPЦ|_YOUR TURN NOW ...e 64  ELCOME TO , THE LANGUAGE DESIGNED TO REPLACE .  HIS INFORMATION IS AS OF OVEMBER 25, 1983 AND IS SUBJECT TO CHANGE.   NEWSLETTER IS THE SOURCE FOR UP TO DATE INFORMATION ABOUT , AS e`a2_OAD A PROGRAM: LOADef"KefNAMEef"Ke`a_`a:_IST PROGRAM TO DISK: LISTef"KefNAME.Lef"Ke`a1_(NTER A PROGRAM THAT efa:_ WAS LISTED TO DISK: ENTERef"KefNAME.Lef"Ke`a1_(E WHOLE efa2_)DISK - HEN RUN ... efa1_(efa-_$ IS THE NEWSLETTER.e`a,_# IS THEe`a"/_&TUTORIAL BOOK -- IS THEe`a,/_&RE`a)Iɦ!_LOADING INFORMATION FILEe`aSEE'INFORMATION)HȦ,_#LOADING HELP FILE WITH INSTRUCTIONSe`aSEE'INSTRUCTIONSĦD _LOADING IN DEMO PROGRAMe`aLOGO'BOOK'SAMPLE)(_WHAT?WELL AS MANY HELPFUL HINTS AND TUTORIAL ARTICLES. ONTRIBUTORS TO THIS NEWSLETTER INCLUDE ORGE HRISTENSEN (FOUNDER OF ), NIOMAL PS (UTHORS OF ALL SYSTEMS), AND EN INDSAY (AUTHOR OF ). T IS PUBLI PUT FILEX()STRING NOT DIMENSIONEDb&*LOCAL VARIABLE ERRORl 4TOO MANY NAMESv-5FUNCTION VALUE NOT RETURNED!6NOT A STATEMENT37!!NOT A COMMAND OR SIMPLE STATEMENT N 2.00 CARTRIDGE DUE FOR RELEASE PRING 1984.  HE GRAPHICS, SPRITE, AND TURTLE COMMANDS WILL BE DOCUMENTED BY THE BOOK  64  TO BE PUBLISHED BY ESTON UBLISHING UMMER 1984. BRIEF SUMMA AYS TO STORE PROGRAMS ON THE DISK, AND TWO CORRESPONDING WAYS TO RETRIEVE THEM:   "" HIS SAVES THE PROGRAM CURRENTLY IN THE COMPUTER ONTO DISK AS A BINARY FILE WITH THE NAME YOU SPECIFIED INSIDE QUOTES. T CAN BE RETRIEVED VIA  A . TO REMIND YOU LATER THAT THE FILE IS A FILE). HE FILE IS A BIT LARGER THAN THE SAME PROGRAM STORED VIA . OWEVER, THIS FILE HAS MANY ADDITIONAL USES. T CAN BE RETRIEVED BY VERSION. T CAN BE MERGED WITH  ECIFIED INSIDE QUOTES. HEN TO RUN THE PROGRAM ISSUE THE COMMAND.   "" HIS IS SIMILAR TO THE COMMAND, BUT THE PROGRAM WILL AND AUTOMATICALLY.   "." HIS WILL MERGE THE PROGRAM OR PROGRAM SEGMENALREADY EXISTING IN THE COMPUTER, THE PREVIOUS LINE IS DELETED AND THE NEW LINE ED REPLACES IT. O AVOID THIS PROBLEM, SIMPLY BER A PROGRAM OR PROGRAM SEGMENT TO HIGH LINE NUMBER BEFORE ING IT TO DISK (IE, 8000). O RY IN THE 64 SERIAL  TO DISK AND PRINTER YOU CANNOT SELECT OUTPUT TO PRINTER AND THEN DO A . UT THE () HAS PROVIDED YOU A WAY TO PRINT A DISK DIRECTORY ON THE PRINTER BYPASSING THIS PROBLEM. RY THE PROGAND COULD LOCK OUT YOUR SYSTEM.  O TRY TO A PROGRAM FILE INTO . GETS UPSET.  ======================================  SERS ROUP () 5501 ROVELAND ERRACE ADISON, 53716  (608) 222-4432  NCLUDE $2 HIPSHED BY THE SERS ROUP () FOR $14.95.  HE IS MEANT TO BE A COMPLETE REFERENCE FOR ALL VERSIONS OF  . HIS BOOK IS PUBLISHED BY ESTON UBLISHING (1-800-336-0338). T RETAILS FOR ABOUT $18.95 AND , IS AVAILABLE FROM THE SERS ROUP FOR $19.95 (INCLUDING BOOK AND DISK).   VERSION 0.14 ON THIS DISK INCLUDES ADDED GRAPHICS, TURTLE, AND SPRITE COMMANDS. LSO THE KEYWORDS $ AND ARE IN12 USED  "" AND "". ERSION 0.14 USES ":" AND ":". HE COLON IS NOW REQUIRED, ALLOWING IT TO BE COMPATIBLE WITH THE ADVANCED FILE HANDLING SYSTEM EMPLOYED BY THE VERSIORY OF ALL THESE ADDED COMMANDS AND STATEMENTS ARE INCLUDED IN THE DATA FILE ON THIS DISK CALLED . UN THE PROGRAM ' TO READ ABOUT THEM. T LISTS ALL THE WORDS WITH THEIR CORRECT SYNTAX.  HERE ARE TWO W , BUT ONLY WITH AN EXACT SAME VERSION.   "." HIS STORES THE PROGRAM CURRENTLY IN THE COMPUTER ONTO DISK AS AN FILE WITH THE NAME YOU SPECIFIED INSIDE QUOTES (WE SUGGEST THAT YOU END THE FILE NAME WITH ANOTHER PROGRAM AT A LATER TIME. T CAN BE READ BY ANOTHER PROGRAM USING STATEMENTS.   "" HIS WILL ERASE THE CURRENT PROGRAM FIRST, THEN WILL RETRIEVE THE PROGRAM STORED ON DISK WITH THE NAME YOU SPT FROM DISK WITH THE ONE CURRENTLY IN THE COMPUTER (REMEMBER THE SUGGESTED . AT THE END OF THE FILE NAME). INE NUMBERS ARE SIGNIFICANT DURING THIS PROCESS IN VERSION 0.14. F A LINE IS ED WITH A SAME LINE NUMBER AS ONE ETRIEVE A WHOLE PROGRAM, ISSUE THE COMMAND FIRST, THEN THE COMMAND.  O LIST THE PROGRAM CURRENTLY IN THE COMPUTER TO THE PRINTER:  ":"   O SEE WHAT IS ON YOUR DISK:    : UE TO A PECULIARITRAM CALLED "'".   0.12 ROGRAMS WRITTEN FOR VERSION 0.12 WILL RUN ON VERSION 0.14. UT THEM TO DISK FROM VERSION 0.12 AND THEM INTO 0.14. HE / FILES ARE NOT COMPLETLY COMPATIBLE PING/ANDLING WITH EVERY ORDER. R SEND A SELF ADDRESSED STAMPED ENVELOPE FOR MORE INFORMATION. RICES LISTED ARE SUBJECT TO CHANGE. THEM TO DISK FROM VERSION 0.12 AND THEM INTO 0.14. HE / FILES ARE NOT COMPLETLY COMPATIBLE  IS AVAILABLE THROUGH MOST LARGE BOOK STORES, SUCH AS . ALTONS, OR FROM THE  SERS ROUP ().  HE SERIES OF BOOK/DISK PACKAGES ARE MEANT TO BE TUTORIALS TO MODULAR PROGRAMMING WITH . HE FIRST,  CLUDED. THERWISE  FIRST EDITION CAN BE USED AS REFERENCE FOR VERSION 0.14. (HENEVER THE BOOK MENTIONS VERSION 0.12, JUST REPLACE IT WITH 0.14). HE ONLY DIFFERENCE IS IN SELECTING THE OUTPUT LOCATION. ERSION 0.  : (VERSION 0.14)  // -- ALLOWS COMMENTS IN A PROGRAM //   -- GIVES THE ABSOLUTE VALUE ()   -- LOGICAL    -- START AT END OF SEQ FILE    -- GIVES DISK DIRECTORY    -- LOAD & RUN PROGRAM ON DISK   $ -- GIVES THAT NUMBERS CHARACTER $()   -- CLOSES FILES    -- ALL ,...   -- DELETES LINES    -- DELETES A FILE FROM DISK    -- ALLOCATES STRING & ARRAY SPACE   ()  ()   UC ALTERNATIVE STATEMENTS    -- HALT PROGRAM EXECUTION    -- END OF STRUCTURE    -- END OF STRUCTURE    -- END OF FUNCTION    -- END OF ILENUM>)   -- STOP KEY PRESSED FLAG     -- EXECUTE A PROCEDURE  ()   -- NATURAL LOG E TO N ()   -- PREDEFINED VALUE = 0    -- SPECIFIES THAT AART OF LOOP STRUCTURE  =   -- START OF A MULTILINE FUNCTION  ()  ()   -- GO TO LINE WITH THIS NAME