Ю(L$,WO$)│1зБж1320:Бе2510:В WORLD\^	ьЕ Ю(L$,NE$)│1зБж2090:Бе2510:В NEW PROGRAM-ERASE OLD ONE\Ж	ЎЕ Ю(L$,CL$)│1зБж2130:Бе2510:В CLOAD\о
Е Ю(L$,CS$)│1зБж2190:Бе2510:В CSAVE\╒

Е Ю(L$,LI$)│1зБж1140:Бе2510:В LIST]
Е Ю(L$,ST$)│1зSI│1:Бж990:Бе2510:В SINGLE STEP]=
Е  Ю(L$,LL$)│1 з PS│м2:Бж1140:PS│0:Бе2510:В LLIST]]
(Е Ю(L$,SK$)│1зБж2770:Бе2510]О
2Е Ю(L$,IM$)│1зБж1200:Бе2510:В IMMEDIATE MODE]ф
<LN│ Й(L$):ЕLN┤1▒LN▓999зБе2720:В BEGIN DECODING INPUT AS LINE STARTING WITH LINE #^
FL$│ П(L$, З(L$)м З( И(LN))л1):CO│0^
PЕ L$┤▓""з2680^u
ZN│LN:LO│LI:Бж200:NN│ Г2(0):Е Ж(RV)┤▓0з2510:В TRY TO ELIMINATE LINE LN FROM PROGRAM ^Р
dN│╠P(NNл5):LO│NN:Бж200^╒
nЕ ╠P(NN)│&HFFFF з2510:ДАJ│2е6:ТNNлJ, Ж(NNлJл5):ЛJ:NN│NNл5:Бе2670_ 
xЕCO▓28зБе2720:ДЕ Ю(L$,CO$(CO))┤▓1зCO│COл1:Бе2680:В MATCH L$ TO COMMAND_u
ВRI│ Й( П(L$, З(L$)м З(CO$(CO)))):В GET LINE # REFERENCE OR DO-LOOP COUNT FROM L$_У
МLO│LI:N│LN:Бж200:N│ Г3(0)`
ЦЕN│м1 зЗ"PROGRAM BUFFER FULL--SORRY":Бе2510 :Д Т Nл2,CO:LO│Nл3:N│RI:Бж200:Бе2510:В PUT LINE INTO PROGRAM`5
аЗ"?SN ERROR":З"OK":Бе2510:В CAN'T RECOGNIZE LINE`L
кВ END OF MAIN LOOP`R
┤В`^
╛В SKIPF`d
╚В`p
╥В SKIPF`р
▄I│ Ю(L$, Л(34)):ЕI▓0зJ│ Ю(Iл1,L$, Л(34)):ЕJ┤│Iл1зN$│"":ДЕJмI┤10зN$│ Р(L$,Iл1,JмIм1):ДN$│ Р(L$,Iл1,8):ДN$│""`¤
цЮ:З"SKIPPING ";N$;" ..."a
ЁгN$a
·ЗN$;" SKIPPED":Р0:В CAN'T RECOGNIZE LINE`L
кВ END OF MAIN LOOP`R
┤В`^
╛В SKIPF`d
╚В`p
╥В SKIPF`р
▄I│ Ю(L$, Л(34)):ЕI▓0зJ│ Ю(Iл1,L$, Л(34)):ЕJ┤│Iл1зN$│"":ДЕJмI┤10зN$│ Р(L$,Iл1,JмIм1):ДN$│ Р(L$,Iл1,8):ДN$│""`¤
цЮ:З"SKIPPING ";N$;" ..."a                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0 ▒ N▓30000 з З@0,"YOU CAN'T PUT BEEPERS THERE":Бж240:Бе1350K'Бж200:LL│ Г1(0):LO│X:N│XX:Бж200:LO│Y:N│YY:Бж200:XX│XQ:YY│YQ:N│NU:Бж470:В PUT LOC OF BEEPER INTO X,Y; GET LL=ADDR OF RECORD OF BEEPERS THERE(0 IF NONE); RESTORE X,Y TO LOC OF CARL; PRINT NEW # BEEPERS NU AT XX,YY=LOCATION OF BEEPERSKВ&ЕLL┤▓0 зЕNU┤▓0 з Т LL,NU:Бе 1350:Д1870:В PUT NEW # BEEPERS INTO EXISTING BEEPER RECORDL0ЕNU│0 з 1350 :ДI│BE:В IF NO BEEPERS WHERE NONE WERE DO NOTHING ELSE ERASE OLD BEEPER RECORD TO PUT NO BEEPERS WHERE SOME WHERELD:Е  Ж(I)┤▓255 з I│Iл5:Бе1850:В PUTTING A NEW RECORD INTO BEL╛DЕ(IмBE)о5▓│MB зЗ@0,"TOO MANY BEEPER LOCATIONS":Бж240:Бе1350:ДТI,N:LO│Iл1:N│XX:Бж200:LO│Iл3:N│YY:Бж200:ТIл5,255:Бе1350M<NЕ Ж(LLл5)│255зТLL,255:Бе1350:ДАJ│0е4:ТLLлJ, Ж(LLлJл5):ЛJ:LL│LLл5:Бе1870:В IN CASE RECORD IN BE SET TO 0, ELIMINATE RECORDMUXВ PUT BEEPERS IN BAGM╛bЗ@0,"HOW MANY IN THE BAG":Бж300:N│ Й(L$):ЕN┤0з1350:ДЕN▓999зЗ@0,"TOO MANY FOR THE BAG!!":Бж240:Бе1350M█lLO│BG:Бж200:Бж550:Бе1350MЎvВ SAVE A WORLD ON TAPEN]АЗ@0,"PREPARE TAPE RECORDER AND ENTER NAME OF WORLD--@ TO RETURN":Бж300:N$│L$:Е З(N$)▓8зN$│ О(N$,8)NnКЕL$│"@"з1340NБФШM N$,NS,CA,NSNлЮЗ"WORLD ";N$;" IS SAVED":Бж240:Бе1340N╚иВ LOAD A WORLD FROM TAPEO/▓З@0,"PREPARE TAPE RECORDER AND ENTER NAME OF WORLD--@ TO RETURN":Бж300:N$│L$:Е З(N$)▓8зN$│ О(N$,8)OE╝Е L$│"@" з Бе1340OO╞ЧM N$OZ╨Бе1340Oz┌В RETURN FROM WORLD BUILDEROАфРOШюВ START A NEW WORLDP6°Т BE,255:LO│BG:N│0:Бж200:N│&HFFFF:LO│NSл12:Бж200:LO│EWл12:Бж200:N│7:LO│X:Бж200:N│5:LO│Y:Бж200:N│2:LO│DX:Бж200:N│0:LO│DY:Бж200:ТCA,&H7E:Бе1320:В NEW WORLDP^В END OF SUBROUTINE TO BUILD A WORLPdВPВ 'NEW'--ERASE PROGRAMPЕ ВPа*LO│PR:N│&HFFFF:Бж200:РPж4ВP╞>В CLOAD A PROGRAM FROM TAPEP╠HВQ=RI│ Ю(L$, Л(34)):ЕI▓0зJ│ Ю(Iл1,L$, Л(34)):ЕJ┤│Iл1 зN$│"":ДЕJмI┤10зN$│ Р(L$,Iл1,JмIм1):ДN$│ Р(L$,Iл1,8):ДN$│""QY\Ю:З"LOADING ";N$;" ..."QwfЧM N$:ЗN$;" IS LOADED.":РQ}pВQЭzВ CSAVE A PROGRAM FROM TAPEQгДВRОI│ Ю(L$, Л(34)):ЕI▓0зJ│ Ю(Iл1,L$, Л(34)):ЕJ┤│Iл1зN$│"":ДЕJмI┤10зN$│ Р(L$,Iл1,JмIм1):ДN$│ Р(L$,Iл1,8):ДN$│""R,ШЗ"SAVING ";N$;" ..."RFвШM N$,PR,PRл5нMLл2,PRRLмРRR╢ВRn└В INITIALIZE EVERYTHINGRt╩ВRЯ╘╣╠P(X)│256н Ж(X)л Ж(Xл1):В 2-BYTE PEEKS▐╣ Г1│&H78A2:В RETURNS ADDRESS OF BEEPER RECORD AT CURRENT X,Y--RETURNS 0 IF NO BEEPERS THERESZшW1$│" . . . . . . . . . . . . . . . .                                ":W2$│ О(W1$,63)S╔Є╣ Г0│&H78CF:В RETURNS 0 IF FRONT IS CLEAR ELSE RETURNS ADDR OF RECORD IN NS OR EW CONTAINING BLOCKING WALLT6№╣ Г2│&H78B4:В RETURNS ADDR OF LINE IN PROGRAM WITH LINE #>=CONTENTS OF LI.  RV CONTAINS 0 IFF LINE FOUNDT╥	╣ Г3│&H78DF: В MAKES ROOM FOR NEW LINE IN PROGRAM BUFFER WITH LINE # LI, PUTS LI IN BUFFER, AND RETURNS ADDRESS OF LINE.  RETURNS &HFFFF IF BUFFER FULLU"	Ю:З@104,"CARL THE ROBOT":З:Зд7);"BY DAVID MEREDITH":З:Зд8);"COPYRIGHT 1983"Uz	З:З:З"PREPARE TAPE FOR READING MACHINELANGUAGE COMPONENT OF CARL AND  PRESS ENTER."UЫ	$Е  Т▓┤ Л(13)з2340:Д╙M"CARLM"Uё	.М CO$(28),C1$(28),EM$(10):В CONTAIN COMPRESSED COMMANDS, COMMANDS, ERROR MESSAGESV	8А I│0 е 28:НCO$(I),C1$(I):ЛIV)	BАI│0е10:НEM$(I):ЛIVг	LRU$│"RUN":WO$│"WORLD":NE$│"NEW":CL$│"CLOAD":CS$│"CSAVE":LI$│"LIST":ST$│"STEP":IM$│"IMMEDIATE":SK$│"SKIPF":LL$│"LLIST"W-	VX│&H74E3:Y│&H74E5:DX│&H74E7:DY│&H74E9:CA│&H74EB:В LOCATIONS CONTAINING CARL COORDS, DIRECTION VECTOR, AND CHARACTER REPRESENTING CARLWц	`PR│&H7000:PP│&H71F6:RV│&H74EC:LI│&H74ED:DS│&H74F0:DP│&H7518:SS│&H751A:SP│&H7542:В PROGRAM POINTER, PROGRAM POINTER, RETURN VALUE, LINE #, DOSTACK AND POINTER, SUB STACK AND POINTERXЕ	jBE│&H72EC:NS│&H71F8:EW│&H7272:MB│&H64:MW│&H14:ML│&H64:IC│&H74EF:В BEEPERS, NSWALLS,EWWALLS,MAX NUMBERS OF BEEPERS,WALLS,PROGLINES;IMMEDIATE COMMAND BUFFERXЄ	tRN│&H757E:TL│&H75C2:BG│&H74E1:В ADDRESS OF ROUTINE TO EXECUTE ONE INSTRUCTION, TURN LEFT, AND CARL'S BAGY	~BS$│ б(32, Л(8))Y╝	ИLO│EW:N│0:Бж200:LO│EWл2:N│29999:Бж200:LO│EWл4:N│0:Бж200:LO│EWл6:N│0:Бж200:LO│EWл8:N│29999:Бж200:LO│EWл10:N│30000:Бж200:LO│EWл12:N│&HFFFF:Бж200:В BUILD WALLS AROUND CARL'S WORLDZO	ТLO│NS:N│0:Бж200:LO│NSл2:N│0:Бж200:LO│NSл4:N│29999:Бж200:LO│NSл6:N│30000:Бж200:LO│NSл8:N│0:Бж200:LO│NSл10:N│29999:Бж200:LO│NSл12:N│&HFFFF:Бж200[-	ЬТBE,255:LO│BG:N│0:Бж200:LO│X:N│7:Бж200:LO│Y:N│5:Бж200:LO│DX:N│2:Бж200:LO│DY:N│0:Бж200:ТCA,&H7E:LO│PR:N│&HFFFF:Бж200:В NO BEEPERS IN WORLD OR BAG, CARL 2 STEPS EAST, 1 STEP NORTH OF SW CORNER POINTING EAST, NO PROGRAM.[>	жБж 670:З@0,;[D	░В[╛	║В BEGIN MAIN LOOP WHERE WE GET LINE FROM USER AND DO IT IF IT'S A COMMAND OR ADD IT TO PROGRAM IF IT'S A PROGRAM LINE[─	─В[╬	╬Бж300[∙	╪Е  Ю(L$,RU$)│1зSI│0:Бж990:Бе2510:В RUN\"	тЕPP:N│PR:Бж200:LO│SP:N│SSм2:Бж200:LO│DP:N│DSм4:Бж200:В INITITALIZE PROGRAM POINTER, SUBROUTINE POINTER, DO-NEXT POINTER8К№З@0," ":З@32," "8еБж 670:В DISPLAY WORLD8№XX│╠P(X):YY│╠P(Y):N│ Г1(0):В GET INFO RE BEEPERS HERE BEFORE EXECUTING INSTRUCTION9 Е N┤▓0зN│ Ж(N):В N=# OF BEEPERS9░$Е Т│"@"зЗ@0,"BREAK IN ";╠P(╠P(PP)):З"OK":Р :ДЕSI│0з1080:ДЗ@0,"";:Бж630:В @ USED AS BREAK KEY OR SINGLE STEPPING.  SI<>0 IF SINGLE STEPPING.:5.I$│ Т:ЕI$│"@"зЗ@0,"BREAK IN ";╠P(╠P(PP)):З"OK":Р:ДЕI$│""з1070:В WHILE SINGLE STEPPING, BREAK WITH @, CONTINUE WITH ANY OTHER KEY:X8в RN:В DO THE NEXT INSTRUCTION:цBP│ Ж(RV):ЕP│0з1060:ДЕP│1зБж470:Бж360:Бе1040:ДЕP│2зБж550:Бе1040:ДЕP│3зТ1024л╠P(X)мBXл32н(15м╠P(Y)лBY), Ж(CA):Бе1060:ДЗ@0,EM$(Pм4);╠P(LI):Р;ULВ P=0 IS NO CHANGE, P=1 IS CARL MOVED, P=2 IS BEEPER BAG CHANGED, P=3 IS CARL TURNED, P=4 IS ERROR OR STOP;[VВ;й`В LIST PROGRAM LINES BETWEEN N1 AND N2 TO SCREEN OR PRINTER.  PS=DEVICE #;пjВ;╦tЕ PS│0 з L│Lм4 :Д L│Lм5;■~L$│ П(L$,L):N1│ Й(L$):ЕN1┤0зN2│мN1:N1│0:Бе1170<GИЕL│0зN1│0:N2│999:Бе1170:ДJ│ Ю(L$,"-"):N2│ Й( П(L$,LмJ)):ЕN2│0зN2│999<ТN│N1:LO│LI:Бж200:N│ Г2(0):В FIND FIRST LINE # >= N1<┤ЬЕ ╠P(N)▓N2 з Р :Д LO│PP:Бж200:Бж630:N│Nл5:Бе1180<║жВ<╧░В IMMEDIATE MODE<╒║В<▀─Бж670=&╬З@0,"wALK, TURN rIGHT, TURN lEFT,     PuTBEEPER, PiCKBEEPER, sTOP"=<╪I$│ Т:ЕI$│""з1240=√тN│ICм2:LO│PP:Бж 200:В FOOL MACHINE LANGUAGE ROUTINE INTO EXECUTING IMMEDIATE COMMAND BY MAKING IC THE THIRD BYTE FOLLOWING THE LOCATION POINTED AT BY PP AND PUTTING COMMAND CODE INTO IC.>_ьЕ I$│"W"зТIC,0:ДЕI$│"R"зТIC,2:ДЕI$│"L"зТIC,1:ДЕI$│"U"зТIC,6:ДЕI$│"I"зТIC,5:ДЕI$│"S"зТIC,7:Д1240>МЎXX│╠P(X):YY│╠P(Y):N│ Г1(0):ЕN┤▓0зN│ Ж(N)>╚в RN:В EXECUTE THE INSTRUCTION THEN CHECK RV FOR STATUS?i
P│ Ж(RV):ЕP│0з1240:ДЕP│1зБж470:Бж360:Бе1240:ДЕP│2зБж550:Бе1240:ДЕP│3зТ1024л╠P(X)мBXл32н(15м╠P(Y)лBY), Ж(CA):Бе1240:ДЕP│4зЗ@0,"FRONT IS BLOCKED":Бж240:Бе1230?ъЕP│5зЗ@0,"NO BEEPERS HERE":Бж240:Бе1230:ДЕP│6зЗ@0,"BAG IS EMPTY":Бж240:Бе1230:ДЕP│12зЗ@0,"IMMEDIATE MODE STOPPED":З@32,"";:Р?ЁВ@
(В BUILD A WORLD FOR CARL@2В@<Ю:Бж670@kFЗ@0,"mOVE, tURN, wALL, eRASEWALL, nEWbEEPERS, BAg, sAVE, lOAD, rETURN";@БPI$│ Т:ЕI$│""з1360@╒ZИ  Ю("MTWEBGSLRN",I$)л1Бе1360,1390,1450,1470,1740,1780,1890,1920,1970,2020,2040@хdВ MOVE CARLAnЗ@0,"HOW FAR TO MOVE":Бж300:N│ Й(L$):ЕN┤1з1350AЭxXX│╠P(X):YY│╠P(Y):NN│ Г1(0):Е Ж(DXл1)│2зXQ│XXлNн2:YQ│YY :ДP│╠P(DY):ЕP│2зYQ│YYл2нN:XQ│XX :ДЕP│0зXQ│XXм2нN:YQ│YY :ДYQ│YYм2нN:XQ│XXAяВЕ XQ┤0 ▒ XQ▓30000 ▒ YQ┤0▒YQ▓30000зЗ@0,"YOU TRIED TO LEAVE WORLD":Бж240:Бе1350BМЕ NN│0 зN│NN :Д N│ Ж(NN)BDЦБж 470:LO│X:N│XQ:Бж200:LO│Y:N│YQ:Бж200:Бж360:Бе1350BUаВ TURN CARL Bkкв TL:Бж360:Бе1360B~┤В BUILD A WALLB▒╛З@0,"HOW LONG A WALL":Бж300:N│ Й(L$):ЕN┤1з1350B╟╚XX│╠P(X):YY│╠P(Y)B▌╥Е Ж(DXл1)│0з 1620C1▄I│NS:Е Ж(DX)│0зXX│XXл1:ДXX│XXм1:В BUILD A NORTH SOUTH WALL FROM XX,YY TO XX,Y2.CTцY2│YYл2нNм2:ЕY2▓30000зY2│30000CШЁЕ  Ж(I)│255 з 1590:В FIRST SEE IF WALL AMALGAMATES WITH ANOTHERC╩·ЕXX┤▓╠P(I)▒Y2┤╠P(Iл2)▒YY▓╠P(Iл4)зI│Iл6:Бе1520DВ JOIN THIS WALL TO NEW WALL THEN ERASE THIS WALLDYZ│╠P(Iл2):ЕYZ┤YY зYY│YZD:YZ│╠P(Iл4):ЕYZ▓Y2 зY2│YZDB"J│ID|,АK│0е5:ТJлK, Ж(JлKл6):Л:Е Ж(J)│255з1520:ДJ│Jл6:Бе1580D╜6Е(IмNS)о6▓│MW зЗ@0,"TOO MANY NORTH-SOUTH WALLS":Бж240:Бе1350E@@LO│I:N│XX:Бж200:LO│Iл2:N│YY:Бж200:LO│Iл4:N│Y2:Бж200:LO│Iл6:N│&HFFFF:Бж200:Бе1320:В PUT NEW WALL INTO LIST OF NORTH-SOUTH WALLSEsJВ ADD A NEW EAST-WEST WALL FROM XX,YY TO X2,YYEЧTI│EW:Е Ж(DY)│0зYY│YYл1:ДYY│YYм1E║^X2│XXл2нNм2:ЕX2▓29999зX2│29999E∙hЕ Ж(I)│255з1710:В FIRST SEE IF THIS WALL RUNS INTO ANOTHERF+rЕXX▓╠P(Iл2)▒X2┤╠P(I)▒YY┤▓╠P(Iл4)зI│Iл6:Бе1640Fa|В JOIN THIS WALL TO NEW WALL THEN ERASE THIS WALLF|ЖXZ│╠P(I):ЕXZ┤XX зXX│XZFЩРXZ│╠P(Iл2):ЕXZ▓X2 зX2│XZFбЪJ│IF█дАK│0е5:ТJлK, Ж(JлKл6):Л:Е Ж(J)│255з1640:ДJ│Jл6:Бе1700GоЕ(IмEW)о6▓│MW зЗ@0,"TOO MANY EAST-WEST WALLS":Бж240:Бе1350GЫ╕LO│I:N│XX:Бж200:LO│Iл2:N│X2:Бж200:LO│Iл4:N│YY:Бж200:LO│Iл6:N│&HFFFF:Бж200:Бе1320:В PUT NEW WALL INTO LIST OF EAST-WEST WALLSGо┬В ERASE A WALLGф╠U│ Г0(0):ЕU│0зЗ@0,"NO WALL TO ERASE":Бж240:Бе1350HM╓Е U│NS ▒ U│NSл6 ▒ U│EW ▒ U│EWл6 з З@0,"THAT WALL IS PERMANENT":Бж240:Бе1350:В CANT ERASE BORDER WALLHйрЕ  Ж(Uл6)│255 з ТU,255:Бе1320:ДАJ│0е5:ТUлJ, Ж(UлJл6):Л:U│Uл6:Бе1760:В ERASE WALL RECORDH╥ъВ PUT DOWN BEEPERS WHERE CARL POINTSI@ЇЗ@0,"HOW MANY BEEPERS GO HERE?":Бж300:NU│ Й(L$):ЕNU┤0з1350:ДЕNU▓99зЗ@0,"TOO MANY BEEPERS!!!":Бж240:Бе1350I╢■XX│╠P(X):YY│╠P(Y):Е Ж(DXл1)│2 з N│XXл2:LO│X :Д Е  Ж(DYл1)│2 з N│YYл2:LO│Y :Д Е  Ж(DX)│0зN│YYм2:LO│Y :ДN│XXм2:LO│XIўЕ LO│X з XQ│N:YQ│YY :Д XQ│XX:YQ│N:В XQ,YQ=LOCATION OF BEEPERJ;ЕN┤ ;&!
В            CARL THE ROBOT&DВ            BY DAVID MEREDITH&cВ            DEPT. OF MATH&Й(В            SAN FRANCISCO SATE U&з2В            NOV. 8, 1983&н<В&чFВ   REQUIRES COMPANION MACHINE LANGUAGE PROGRAM CARLM&эPВ'ПZЖ WALK,WALK,TURNLEFT,TURN LEFT,TURNRIGHT,TURN RIGHT,NEXT,NEXT,RETURN,RETURN,PICKBEEPER,PICK BEEPER,PUTBEEPER,PUT BEEPER,STOP,STOP,DO,DO,GOTO,GOTO,GOSUB,GOSUB(АdЖ IFFRONTISCLEARTHEN,IF FRONT IS CLEAR THEN,IFLEFTISCLEARTHEN,IF LEFT IS CLEAR THEN,IFRIGHTISCLEARTHEN,IF RIGHT IS CLEAR THEN,IFFRONTISBLOCKEDTHEN,IF FRONT IS BLOCKED THEN,IFLEFTISBLOCKEDTHEN,IF LEFT IS BLOCKED THEN,IFRIGHTISBLOCKEDTHEN)`nЖ IF RIGHT IS BLOCKED THEN,IFBEEPERHERETHEN,IF BEEPER HERE THEN,IFBEEPERNOTHERETHEN,IF BEEPER NOT HERE THEN,IFBAGEMPTYTHEN,IF BAG EMPTY THEN,IFBAGNOTEMPTYTHEN,IF BAG NOT EMPTY THEN,IFFACINGNORTHTHEN,IF FACING NORTH THEN*GxЖ IFFACINGSOUTHTHEN,IF FACING SOUTH THEN,IFFACINGEASTTHEN,IF FACING EAST THEN,IFFACINGWESTTHEN,IF FACING WEST THEN,IFNOTFACINGNORTHTHEN,IF NOT FACING NORTH THEN,IFNOTFACINGSOUTHTHEN,IF NOT FACING SOUTH THEN,IFNOTFACINGEASTTHEN*СВЖ IF NOT FACING EAST THEN,IFNOTFACINGWESTTHEN,IF NOT FACING WEST THEN+*МЖ FRONT IS BLOCKED AT,NO BEEPER HERE AT,BAG EMPTY AT, NEXT WITHOUT DO AT,RETURN WITHOUT GOSUB AT,DO-NEXT STACK OVERFLOWS AT,GOSUB STACK OVERFLOWS AT+МЦЖ UNDEFINED LINE # IN, STOP AT, PROGRAM ENDS WITHOUT STOP AFTER, TOO MANY BEEPER LOCATIONS AT+даХ500,&H6FFF:Бе 2230+ккВ+ъ┤В SUBROUTINE TO POKE 2-BYTE UNSIGNED INTEGER N INTO LO,LO+1+Ё╛В,╚NX│ Б(Nо256):ТLO,NX:ТLOл1,Nм256нNX:Р,╥В,5▄В WAIT SUBROUTINE,;цВ,aЁЗ"PRESS ANY GREY KEY TO CONTINUE",u·Е Т┤▓""з Р:Д250,{
В,Щ
В INPUT-A-LINE SUBROUTINE,Ї
В BLANK A LINE ON THE SCREEN, INPUT L$, AND ELIMINATE BLANK FROM L$.  AT END L=LEN(L$),·
"В-
,З" ":ЗBS$;:╗ЙL$-
6I│1:L│ З(L$)-l
@ЕI▓L зР:ДJ│ Ю(I,L$," "):ЕJ│0зР:ДL$│ О(L$,Jм1)л П(L$,LмJ):L│Lм1:I│J:Бе320-r
JВ."
TВ PRINT CARL AT LOCATION IN X,Y (CORRESPONDS TO CX,CY IN ASSEMBLER LISTING).  MOVE WINDOW INTO WORLD IF CARL OUTSIDE CURRENT WINDOW.  BX,BY IS LOWER LEFT CORNER OF WINDOW..(
^В..
hВ.О
rXX│╠P(X):YY│╠P(Y):ЕXX▓│BX ░XX┤│BXл31░YY▓│BY ░YY┤│BYл13з 410:В IF CARL INSIDE CURRENT WINDOW.╞
|Е XX┤32 зBX│0:ДBX│XXм15:В RESET LEFT SIDE OF WINDOW.∙
ЖЕ YY┤14зBY│0:ДBY│YYм7:В RESET BOTTOM OF WINDOW/
РБж 670:Р/H
ЪLO│1024лXXмBXл32н(15мYYлBY):ТLO, Ж(CA):Р:В DRAW CARL IN WORLD/N
дВ/Д
оВ PRINT N WITH RIGHT END AT AT SCREEN LOCATION LO/К
╕В/╖
┬N$│ И(N):L│ З(N$):З@LOмLл2, П(N$,Lм1);:Р/╜
╠В/▄
╓:ГPRINT N BEEPERS AT XX,YY/т
рВ0%
ъЕXX┤BX ▒XX▓BXл31▒YY┤BY ▒YY▓BYл13зР:В IF LOCATION NOT IN WINDOW0@
ЇLO│XXмBXл32н(15мYYлBY)0b
■CH│ Ж(LOл1023):ЕCH┤▓150зCH│960ЖЕN│0зТLOл1024,110:ТLOл1023,CH:Р0ЬЕN┤│9зТLOл1023,CH0иБж430:Р0╖&З@94,"  ";0╜0В0°:В PRINT CONTENTS OF BAG IN UPPER RIGHT CORNER OF WORLD0■DВ1NN│╠P(BG):LO│95:Бж430:Р1XВ1ubВ LIST INSTRUCTION WITH ADDRESS IN PP.  LIST ON SCREEN OR PRINTER DEPENDING ON PS1{lВ1ЎvP│╠P(PP):Q│╠P(P):ЕQ│65535зР:ДR│ Ж(Pл2):ЕR┤8зЗ#PS,Q;C1$(R):Р:ДS│╠P(Pл3):ЕR│8зЗ#PS,Q;"DO";S;"TIMES":Р:ДЗ#PS,Q;C1$(R);S:Р1№АВ2КВ DISPLAY WORLD2ФВ2FЮАI│64е384й64:З@I,W1$;:Л:З@448,W2$;:Т1535,962риTX│BXл31:TY│BYл13:I│NS:В BX,BY LOWER LEFT CORNER OF WINDOW INTO WORLD TO BE DISPLAYED.  TX,TY TOP RIGHT CORNER.  I=ADDRESS OF NORTH-SOUTH WALL BUFFER3(▓XX│╠P(X):YY│╠P(Y):В CHANGE WINDOW IF NECESSARY TO GET CARL IN WORLD3R╝ЕXX▓│BX ░XX┤│TX ░YY▓│BY ░YY┤│TY з 7403l╞ЕXX┤32зBX│0:ДBX│XXм153Е╨ЕYY┤14зBY│0:ДBY│YYм73Ы┌TX│BXл31:TY│BYл133─фP│╠P(I):ЕP│65535з790:В DRAW NS WALLS3сюЕBX▓P ▒P▓TX зI│Iл6:Бе7404°Q│╠P(Iл2):ЕQ▓TY зI│Iл6:Бе740:ДЕQ┤BY зQ│BY4=R│╠P(Iл4):ЕR┤BY зI│Iл6:Бе740:ДЕR▓TY зR│TY4ЗАJ│PмBXл32н(15мQлBY)еPмBXл32н(15мRлBY)йм32:З@J, Л(150);:Л:I│Iл6:Бе7404╟I│EW:В DRAW EW WALLS.  I = ADDRESS OF EAST-WEST WALL BUFFER4р P│╠P(I):ЕP│65535з8605*R│╠P(Iл4):ЕR┤BY ▒R▓TY зI│Iл6:Бе8005+4ЕP▓TX зI│Iл6:Бе800:ДЕP┤BX зP│BX5]>Q│╠P(Iл2):ЕQ┤BX зI│Iл6:Бе800:ДЕQ▓TXм1 зQ│TXм15╖HАJ│PмBXл32н(15мRлBY)еQмBXл32н(15мRлBY):З@J, Л(150);:ЛJ:ЕQ│TXм1зТ1055л32н(15мRлBY),1505╟RI│Iл6:Бе8006\I│BE:В PRINT BEEPERS IN WORLD.  I=ADDRESS OF BEEPER LIST6fN│ Ж(I):ЕN│255з9106BpQ│╠P(Iл1):ЕQ┤BX ▒Q▓TX зI│Iл5:Бе8706izR│╠P(Iл3):ЕR┤BY ▒R▓TY зI│Iл5:Бе8706ФДLO│QмBXл32н(15мRлBY):Бж430:I│Iл5:Бе8706ёОB│ Б(BXо10):LO│489мBXл10нB:N│5н(Bл1):В PRINT COORDINATES ALONG LEFT AND BOTTOM OF WINDOW7ШБж430:LO│LOл10:N│Nл5:ЕLO┤511з9207DвB│ Б(BYо10):L1│192л32н(BYм10нB):N│5н(Bл1)7{мLO│L1л З( И(N))м2:Бж430:L1│L1м320:N│Nл5:ЕL1▓63з9407С╢Бж550:В PRINT BAG7й└Бж 360:В PRINT CARL7╚╩Р: В FROM DISPLAYING WORLD7╬╘В7ё▐В RUN OR SINGLE STEP A PROGRAM7ўшВ8uЄLO│  Ю(L$,WO$)│1зБж1320:Бе2510:В WORLDT^	ьЕ Ю(L$,NE$)│1зБж2090:Бе2510:В NEW PROGRAM-ERASE OLD ONETЖ	ЎЕ Ю(L$,CL$)│1зБж2130:Бе2510:В CLOADTо
Е Ю(L$,CS$)│1зБж2190:Бе2510:В CSAVET╒

Е Ю(L$,LI$)│1зБж1140:Бе2510:В LISTU
Е Ю(L$,ST$)│1зSI│1:Бж990:Бе2510:В SINGLE STEPU=
Е  Ю(L$,LL$)│1 з PS│м2:Бж1140:PS│0:Бе2510:В LLISTU]
(Е Ю(L$,SK$)│1зБж2770:Бе2510UО
2Е Ю(L$,IM$)│1зБж1200:Бе2510:В IMMEDIATE MODEUф
<LN│ Й(L$):ЕLN┤1▒LN▓999зБе2720:В BEGIN DECODING INPUT AS LINE STARTING WITH LINE #V
FL$│ П(L$, З(L$)м З( И(LN))л1):CO│0V
PЕ L$┤▓""з2680Vu
ZN│LN:LO│LI:Бж200:NN│ Г2(0):Е Ж(RV)┤▓0з2510:В TRY TO ELIMINATE LINE LN FROM PROGRAM VР
dN│╠P(NNл5):LO│NN:Бж200V╒
nЕ ╠P(NN)│&HFFFF з2510:ДАJ│2е6:ТNNлJ, Ж(NNлJл5):ЛJ:NN│NNл5:Бе2670W 
xЕCO▓28зБе2720:ДЕ Ю(L$,CO$(CO))┤▓1зCO│COл1:Бе2680:В MATCH L$ TO COMMANDWu
ВRI│ Й( П(L$, З(L$)м З(CO$(CO)))):В GET LINE # REFERENCE OR DO-LOOP COUNT FROM L$WУ
МLO│LI:N│LN:Бж200:N│ Г3(0)X
ЦЕN│м1 зЗ"PROGRAM BUFFER FULL--SORRY":Бе2510 :Д Т Nл2,CO:LO│Nл3:N│RI:Бж200:Бе2510:В PUT LINE INTO PROGRAMX5
аЗ"?SN ERROR":З"OK":Бе2510:В CAN'T RECOGNIZE LINEXL
кВ END OF MAIN LOOPXR
┤ВX^
╛В SKIPFXd
╚ВXp
╥В SKIPFXр
▄I│ Ю(L$, Л(34)):ЕI▓0зJ│ Ю(Iл1,L$, Л(34)):ЕJ┤│Iл1зN$│"":ДЕJмI┤10зN$│ Р(L$,Iл1,JмIм1):ДN$│ Р(L$,Iл1,8):ДN$│""X¤
цЮ:З"SKIPPING ";N$;" ..."Y
ЁгN$Y
·ЗN$;" SKIPPED":Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  EKZшW1$│" . . . . . . . . . . . . . . . .                                ":W2$│ О(W1$,63)K╔Є╣ Г0│&H78CF:В RETURNS 0 IF FRONT IS CLEAR ELSE RETURNS ADDR OF RECORD IN NS OR EW CONTAINING BLOCKING WALLL6№╣ Г2│&H78B4:В RETURNS ADDR OF LINE IN PROGRAM WITH LINE #>=CONTENTS OF LI.  RV CONTAINS 0 IFF LINE FOUNDL╥	╣ Г3│&H78DF: В MAKES ROOM FOR NEW LINE IN PROGRAM BUFFER WITH LINE # LI, PUTS LI IN BUFFER, AND RETURNS ADDRESS OF LINE.  RETURNS &HFFFF IF BUFFER FULLM"	Ю:З@104,"CARL THE ROBOT":З:Зд7);"BY DAVID MEREDITH":З:Зд8);"COPYRIGHT 1983"Mz	З:З:З"PREPARE TAPE FOR READING MACHINELANGUAGE COMPONENT OF CARL AND  PRESS ENTER."MЫ	$Е  Т▓┤ Л(13)з2340:ДЧM"CARLM"Mё	.М CO$(28),C1$(28),EM$(10):В CONTAIN COMPRESSED COMMANDS, COMMANDS, ERROR MESSAGESN	8А I│0 е 28:НCO$(I),C1$(I):ЛIN)	BАI│0е10:НEM$(I):ЛINг	LRU$│"RUN":WO$│"WORLD":NE$│"NEW":CL$│"CLOAD":CS$│"CSAVE":LI$│"LIST":ST$│"STEP":IM$│"IMMEDIATE":SK$│"SKIPF":LL$│"LLIST"O-	VX│&H74E3:Y│&H74E5:DX│&H74E7:DY│&H74E9:CA│&H74EB:В LOCATIONS CONTAINING CARL COORDS, DIRECTION VECTOR, AND CHARACTER REPRESENTING CARLOц	`PR│&H7000:PP│&H71F6:RV│&H74EC:LI│&H74ED:DS│&H74F0:DP│&H7518:SS│&H751A:SP│&H7542:В PROGRAM POINTER, PROGRAM POINTER, RETURN VALUE, LINE #, DOSTACK AND POINTER, SUB STACK AND POINTERPЕ	jBE│&H72EC:NS│&H71F8:EW│&H7272:MB│&H64:MW│&H14:ML│&H64:IC│&H74EF:В BEEPERS, NSWALLS,EWWALLS,MAX NUMBERS OF BEEPERS,WALLS,PROGLINES;IMMEDIATE COMMAND BUFFERPЄ	tRN│&H757E:TL│&H75C2:BG│&H74E1:В ADDRESS OF ROUTINE TO EXECUTE ONE INSTRUCTION, TURN LEFT, AND CARL'S BAGQ	~BS$│ б(32, Л(8))Q╝	ИLO│EW:N│0:Бж200:LO│EWл2:N│29999:Бж200:LO│EWл4:N│0:Бж200:LO│EWл6:N│0:Бж200:LO│EWл8:N│29999:Бж200:LO│EWл10:N│30000:Бж200:LO│EWл12:N│&HFFFF:Бж200:В BUILD WALLS AROUND CARL'S WORLDRO	ТLO│NS:N│0:Бж200:LO│NSл2:N│0:Бж200:LO│NSл4:N│29999:Бж200:LO│NSл6:N│30000:Бж200:LO│NSл8:N│0:Бж200:LO│NSл10:N│29999:Бж200:LO│NSл12:N│&HFFFF:Бж200S-	ЬТBE,255:LO│BG:N│0:Бж200:LO│X:N│7:Бж200:LO│Y:N│5:Бж200:LO│DX:N│2:Бж200:LO│DY:N│0:Бж200:ТCA,&H7E:LO│PR:N│&HFFFF:Бж200:В NO BEEPERS IN WORLD OR BAG, CARL 2 STEPS EAST, 1 STEP NORTH OF SW CORNER POINTING EAST, NO PROGRAM.S>	жБж 670:З@0,;SD	░ВS╛	║В BEGIN MAIN LOOP WHERE WE GET LINE FROM USER AND DO IT IF IT'S A COMMAND OR ADD IT TO PROGRAM IF IT'S A PROGRAM LINES─	─ВS╬	╬Бж300S∙	╪Е  Ю(L$,RU$)│1зSI│0:Бж990:Бе2510:В RUNT"	тЕ0 ▒ N▓30000 з З@0,"YOU CAN'T PUT BEEPERS THERE":Бж240:Бе1350C'Бж200:LL│ Г1(0):LO│X:N│XX:Бж200:LO│Y:N│YY:Бж200:XX│XQ:YY│YQ:N│NU:Бж470:В PUT LOC OF BEEPER INTO X,Y; GET LL=ADDR OF RECORD OF BEEPERS THERE(0 IF NONE); RESTORE X,Y TO LOC OF CARL; PRINT NEW # BEEPERS NU AT XX,YY=LOCATION OF BEEPERSCВ&ЕLL┤▓0 зЕNU┤▓0 з Т LL,NU:Бе 1350:Д1870:В PUT NEW # BEEPERS INTO EXISTING BEEPER RECORDD0ЕNU│0 з 1350 :ДI│BE:В IF NO BEEPERS WHERE NONE WERE DO NOTHING ELSE ERASE OLD BEEPER RECORD TO PUT NO BEEPERS WHERE SOME WHEREDD:Е  Ж(I)┤▓255 з I│Iл5:Бе1850:В PUTTING A NEW RECORD INTO BED╛DЕ(IмBE)о5▓│MB зЗ@0,"TOO MANY BEEPER LOCATIONS":Бж240:Бе1350:ДТI,N:LO│Iл1:N│XX:Бж200:LO│Iл3:N│YY:Бж200:ТIл5,255:Бе1350E<NЕ Ж(LLл5)│255зТLL,255:Бе1350:ДАJ│0е4:ТLLлJ, Ж(LLлJл5):ЛJ:LL│LLл5:Бе1870:В IN CASE RECORD IN BE SET TO 0, ELIMINATE RECORDEUXВ PUT BEEPERS IN BAGE╛bЗ@0,"HOW MANY IN THE BAG":Бж300:N│ Й(L$):ЕN┤0з1350:ДЕN▓999зЗ@0,"TOO MANY FOR THE BAG!!":Бж240:Бе1350E█lLO│BG:Бж200:Бж550:Бе1350EЎvВ SAVE A WORLD ON TAPEF]АЗ@0,"PREPARE TAPE RECORDER AND ENTER NAME OF WORLD--@ TO RETURN":Бж300:N$│L$:Е З(N$)▓8зN$│ О(N$,8)FnКЕL$│"@"з1340FБФШM N$,NS,CA,NSFлЮЗ"WORLD ";N$;" IS SAVED":Бж240:Бе1340F╚иВ LOAD A WORLD FROM TAPEG/▓З@0,"PREPARE TAPE RECORDER AND ENTER NAME OF WORLD--@ TO RETURN":Бж300:N$│L$:Е З(N$)▓8зN$│ О(N$,8)GE╝Е L$│"@" з Бе1340GO╞ЧM N$GZ╨Бе1340Gz┌В RETURN FROM WORLD BUILDERGАфРGШюВ START A NEW WORLDH6°Т BE,255:LO│BG:N│0:Бж200:N│&HFFFF:LO│NSл12:Бж200:LO│EWл12:Бж200:N│7:LO│X:Бж200:N│5:LO│Y:Бж200:N│2:LO│DX:Бж200:N│0:LO│DY:Бж200:ТCA,&H7E:Бе1320:В NEW WORLDH^В END OF SUBROUTINE TO BUILD A WORLHdВHВ 'NEW'--ERASE PROGRAMHЕ ВHа*LO│PR:N│&HFFFF:Бж200:РHж4ВH╞>В CLOAD A PROGRAM FROM TAPEH╠HВI=RI│ Ю(L$, Л(34)):ЕI▓0зJ│ Ю(Iл1,L$, Л(34)):ЕJ┤│Iл1 зN$│"":ДЕJмI┤10зN$│ Р(L$,Iл1,JмIм1):ДN$│ Р(L$,Iл1,8):ДN$│""IY\Ю:З"LOADING ";N$;" ..."IwfЧM N$:ЗN$;" IS LOADED.":РI}pВIЭzВ CSAVE A PROGRAM FROM TAPEIгДВJОI│ Ю(L$, Л(34)):ЕI▓0зJ│ Ю(Iл1,L$, Л(34)):ЕJ┤│Iл1зN$│"":ДЕJмI┤10зN$│ Р(L$,Iл1,JмIм1):ДN$│ Р(L$,Iл1,8):ДN$│""J,ШЗ"SAVING ";N$;" ..."JFвШM N$,PR,PRл5нMLл2,PRJLмРJR╢ВJn└В INITIALIZE EVERYTHINGJt╩ВJЯ╘╣╠P(X)│256н Ж(X)л Ж(Xл1):В 2-BYTE PEEKK▐╣ Г1│&H78A2:В RETURNS ADDRESS OF BEEPER RECORD AT CURRENT X,Y--RETURNS 0 IF NO BEEPERS THER:Бж300:N│ Й(L$):ЕN┤1з13509ЭxXX│╠P(X):YY│╠P(Y):NN│ Г1(0):Е Ж(DXл1)│2зXQ│XXлNн2:YQ│YY :ДP│╠P(DY):ЕP│2зYQ│YYл2нN:XQ│XX :ДЕP│0зXQ│XXм2нN:YQ│YY :ДYQ│YYм2нN:XQ│XX9яВЕ XQ┤0 ▒ XQ▓30000 ▒ YQ┤0▒YQ▓30000зЗ@0,"YOU TRIED TO LEAVE WORLD":Бж240:Бе1350:МЕ NN│0 зN│NN :Д N│ Ж(NN):DЦБж 470:LO│X:N│XQ:Бж200:LO│Y:N│YQ:Бж200:Бж360:Бе1350:UаВ TURN CARL :kкв TL:Бж360:Бе1360:~┤В BUILD A WALL:▒╛З@0,"HOW LONG A WALL":Бж300:N│ Й(L$):ЕN┤1з1350:╟╚XX│╠P(X):YY│╠P(Y):▌╥Е Ж(DXл1)│0з 1620;1▄I│NS:Е Ж(DX)│0зXX│XXл1:ДXX│XXм1:В BUILD A NORTH SOUTH WALL FROM XX,YY TO XX,Y2.;TцY2│YYл2нNм2:ЕY2▓30000зY2│30000;ШЁЕ  Ж(I)│255 з 1590:В FIRST SEE IF WALL AMALGAMATES WITH ANOTHER;╩·ЕXX┤▓╠P(I)▒Y2┤╠P(Iл2)▒YY▓╠P(Iл4)зI│Iл6:Бе1520<В JOIN THIS WALL TO NEW WALL THEN ERASE THIS WALL<YZ│╠P(Iл2):ЕYZ┤YY зYY│YZ<:YZ│╠P(Iл4):ЕYZ▓Y2 зY2│YZ<B"J│I<|,АK│0е5:ТJлK, Ж(JлKл6):Л:Е Ж(J)│255з1520:ДJ│Jл6:Бе1580<╜6Е(IмNS)о6▓│MW зЗ@0,"TOO MANY NORTH-SOUTH WALLS":Бж240:Бе1350=@@LO│I:N│XX:Бж200:LO│Iл2:N│YY:Бж200:LO│Iл4:N│Y2:Бж200:LO│Iл6:N│&HFFFF:Бж200:Бе1320:В PUT NEW WALL INTO LIST OF NORTH-SOUTH WALLS=sJВ ADD A NEW EAST-WEST WALL FROM XX,YY TO X2,YY=ЧTI│EW:Е Ж(DY)│0зYY│YYл1:ДYY│YYм1=║^X2│XXл2нNм2:ЕX2▓29999зX2│29999=∙hЕ Ж(I)│255з1710:В FIRST SEE IF THIS WALL RUNS INTO ANOTHER>+rЕXX▓╠P(Iл2)▒X2┤╠P(I)▒YY┤▓╠P(Iл4)зI│Iл6:Бе1640>a|В JOIN THIS WALL TO NEW WALL THEN ERASE THIS WALL>|ЖXZ│╠P(I):ЕXZ┤XX зXX│XZ>ЩРXZ│╠P(Iл2):ЕXZ▓X2 зX2│XZ>бЪJ│I>█дАK│0е5:ТJлK, Ж(JлKл6):Л:Е Ж(J)│255з1640:ДJ│Jл6:Бе1700?оЕ(IмEW)о6▓│MW зЗ@0,"TOO MANY EAST-WEST WALLS":Бж240:Бе1350?Ы╕LO│I:N│XX:Бж200:LO│Iл2:N│X2:Бж200:LO│Iл4:N│YY:Бж200:LO│Iл6:N│&HFFFF:Бж200:Бе1320:В PUT NEW WALL INTO LIST OF EAST-WEST WALLS?о┬В ERASE A WALL?ф╠U│ Г0(0):ЕU│0зЗ@0,"NO WALL TO ERASE":Бж240:Бе1350@M╓Е U│NS ▒ U│NSл6 ▒ U│EW ▒ U│EWл6 з З@0,"THAT WALL IS PERMANENT":Бж240:Бе1350:В CANT ERASE BORDER WALL@йрЕ  Ж(Uл6)│255 з ТU,255:Бе1320:ДАJ│0е5:ТUлJ, Ж(UлJл6):Л:U│Uл6:Бе1760:В ERASE WALL RECORD@╥ъВ PUT DOWN BEEPERS WHERE CARL POINTSA@ЇЗ@0,"HOW MANY BEEPERS GO HERE?":Бж300:NU│ Й(L$):ЕNU┤0з1350:ДЕNU▓99зЗ@0,"TOO MANY BEEPERS!!!":Бж240:Бе1350A╢■XX│╠P(X):YY│╠P(Y):Е Ж(DXл1)│2 з N│XXл2:LO│X :Д Е  Ж(DYл1)│2 з N│YYл2:LO│Y :Д Е  Ж(DX)│0зN│YYм2:LO│Y :ДN│XXм2:LO│XAўЕ LO│X з XQ│N:YQ│YY :Д XQ│XX:YQ│N:В XQ,YQ=LOCATION OF BEEPERB;ЕN┤PP:N│PR:Бж200:LO│SP:N│SSм2:Бж200:LO│DP:N│DSм4:Бж200:В INITITALIZE PROGRAM POINTER, SUBROUTINE POINTER, DO-NEXT POINTER0К№З@0," ":З@32," "0еБж 670:В DISPLAY WORLD0№XX│╠P(X):YY│╠P(Y):N│ Г1(0):В GET INFO RE BEEPERS HERE BEFORE EXECUTING INSTRUCTION1 Е N┤▓0зN│ Ж(N):В N=# OF BEEPERS1░$Е Т│"@"зЗ@0,"BREAK IN ";╠P(╠P(PP)):З"OK":Р :ДЕSI│0з1080:ДЗ@0,"";:Бж630:В @ USED AS BREAK KEY OR SINGLE STEPPING.  SI<>0 IF SINGLE STEPPING.25.I$│ Т:ЕI$│"@"зЗ@0,"BREAK IN ";╠P(╠P(PP)):З"OK":Р:ДЕI$│""з1070:В WHILE SINGLE STEPPING, BREAK WITH @, CONTINUE WITH ANY OTHER KEY2X8в RN:В DO THE NEXT INSTRUCTION2цBP│ Ж(RV):ЕP│0з1060:ДЕP│1зБж470:Бж360:Бе1040:ДЕP│2зБж550:Бе1040:ДЕP│3зТ1024л╠P(X)мBXл32н(15м╠P(Y)лBY), Ж(CA):Бе1060:ДЗ@0,EM$(Pм4);╠P(LI):Р3ULВ P=0 IS NO CHANGE, P=1 IS CARL MOVED, P=2 IS BEEPER BAG CHANGED, P=3 IS CARL TURNED, P=4 IS ERROR OR STOP3[VВ3й`В LIST PROGRAM LINES BETWEEN N1 AND N2 TO SCREEN OR PRINTER.  PS=DEVICE #3пjВ3╦tЕ PS│0 з L│Lм4 :Д L│Lм53■~L$│ П(L$,L):N1│ Й(L$):ЕN1┤0зN2│мN1:N1│0:Бе11704GИЕL│0зN1│0:N2│999:Бе1170:ДJ│ Ю(L$,"-"):N2│ Й( П(L$,LмJ)):ЕN2│0зN2│9994ТN│N1:LO│LI:Бж200:N│ Г2(0):В FIND FIRST LINE # >= N14┤ЬЕ ╠P(N)▓N2 з Р :Д LO│PP:Бж200:Бж630:N│Nл5:Бе11804║жВ4╧░В IMMEDIATE MODE4╒║В4▀─Бж6705&╬З@0,"wALK, TURN rIGHT, TURN lEFT,     PuTBEEPER, PiCKBEEPER, sTOP"5<╪I$│ Т:ЕI$│""з12405√тN│ICм2:LO│PP:Бж 200:В FOOL MACHINE LANGUAGE ROUTINE INTO EXECUTING IMMEDIATE COMMAND BY MAKING IC THE THIRD BYTE FOLLOWING THE LOCATION POINTED AT BY PP AND PUTTING COMMAND CODE INTO IC.6_ьЕ I$│"W"зТIC,0:ДЕI$│"R"зТIC,2:ДЕI$│"L"зТIC,1:ДЕI$│"U"зТIC,6:ДЕI$│"I"зТIC,5:ДЕI$│"S"зТIC,7:Д12406МЎXX│╠P(X):YY│╠P(Y):N│ Г1(0):ЕN┤▓0зN│ Ж(N)6╚в RN:В EXECUTE THE INSTRUCTION THEN CHECK RV FOR STATUS7i
P│ Ж(RV):ЕP│0з1240:ДЕP│1зБж470:Бж360:Бе1240:ДЕP│2зБж550:Бе1240:ДЕP│3зТ1024л╠P(X)мBXл32н(15м╠P(Y)лBY), Ж(CA):Бе1240:ДЕP│4зЗ@0,"FRONT IS BLOCKED":Бж240:Бе12307ъЕP│5зЗ@0,"NO BEEPERS HERE":Бж240:Бе1230:ДЕP│6зЗ@0,"BAG IS EMPTY":Бж240:Бе1230:ДЕP│12зЗ@0,"IMMEDIATE MODE STOPPED":З@32,"";:Р7ЁВ8
(В BUILD A WORLD FOR CARL82В8<Ю:Бж6708kFЗ@0,"mOVE, tURN, wALL, eRASEWALL, nEWbEEPERS, BAg, sAVE, lOAD, rETURN";8БPI$│ Т:ЕI$│""з13608╒ZИ  Ю("MTWEBGSLRN",I$)л1Бе1360,1390,1450,1470,1740,1780,1890,1920,1970,2020,20408хdВ MOVE CARL9nЗ@0,"HOW FAR TO MOVE"ж 670:Р'H
ЪLO│1024лXXмBXл32н(15мYYлBY):ТLO, Ж(CA):Р:В DRAW CARL IN WORLD'N
дВ'Д
оВ PRINT N WITH RIGHT END AT AT SCREEN LOCATION LO'К
╕В'╖
┬N$│ И(N):L│ З(N$):З@LOмLл2, П(N$,Lм1);:Р'╜
╠В'▄
╓:ГPRINT N BEEPERS AT XX,YY'т
рВ(%
ъЕXX┤BX ▒XX▓BXл31▒YY┤BY ▒YY▓BYл13зР:В IF LOCATION NOT IN WINDOW(@
ЇLO│XXмBXл32н(15мYYлBY)(b
■CH│ Ж(LOл1023):ЕCH┤▓150зCH│96(ЖЕN│0зТLOл1024,110:ТLOл1023,CH:Р(ЬЕN┤│9зТLOл1023,CH(иБж430:Р(╖&З@94,"  ";(╜0В(°:В PRINT CONTENTS OF BAG IN UPPER RIGHT CORNER OF WORLD(■DВ)NN│╠P(BG):LO│95:Бж430:Р)XВ)ubВ LIST INSTRUCTION WITH ADDRESS IN PP.  LIST ON SCREEN OR PRINTER DEPENDING ON PS){lВ)ЎvP│╠P(PP):Q│╠P(P):ЕQ│65535зР:ДR│ Ж(Pл2):ЕR┤8зЗ#PS,Q;C1$(R):Р:ДS│╠P(Pл3):ЕR│8зЗ#PS,Q;"DO";S;"TIMES":Р:ДЗ#PS,Q;C1$(R);S:Р)№АВ*КВ DISPLAY WORLD*ФВ*FЮАI│64е384й64:З@I,W1$;:Л:З@448,W2$;:Т1535,96*риTX│BXл31:TY│BYл13:I│NS:В BX,BY LOWER LEFT CORNER OF WINDOW INTO WORLD TO BE DISPLAYED.  TX,TY TOP RIGHT CORNER.  I=ADDRESS OF NORTH-SOUTH WALL BUFFER+(▓XX│╠P(X):YY│╠P(Y):В CHANGE WINDOW IF NECESSARY TO GET CARL IN WORLD+R╝ЕXX▓│BX ░XX┤│TX ░YY▓│BY ░YY┤│TY з 740+l╞ЕXX┤32зBX│0:ДBX│XXм15+Е╨ЕYY┤14зBY│0:ДBY│YYм7+Ы┌TX│BXл31:TY│BYл13+─фP│╠P(I):ЕP│65535з790:В DRAW NS WALLS+сюЕBX▓P ▒P▓TX зI│Iл6:Бе740,°Q│╠P(Iл2):ЕQ▓TY зI│Iл6:Бе740:ДЕQ┤BY зQ│BY,=R│╠P(Iл4):ЕR┤BY зI│Iл6:Бе740:ДЕR▓TY зR│TY,ЗАJ│PмBXл32н(15мQлBY)еPмBXл32н(15мRлBY)йм32:З@J, Л(150);:Л:I│Iл6:Бе740,╟I│EW:В DRAW EW WALLS.  I = ADDRESS OF EAST-WEST WALL BUFFER,р P│╠P(I):ЕP│65535з860-*R│╠P(Iл4):ЕR┤BY ▒R▓TY зI│Iл6:Бе800-+4ЕP▓TX зI│Iл6:Бе800:ДЕP┤BX зP│BX-]>Q│╠P(Iл2):ЕQ┤BX зI│Iл6:Бе800:ДЕQ▓TXм1 зQ│TXм1-╖HАJ│PмBXл32н(15мRлBY)еQмBXл32н(15мRлBY):З@J, Л(150);:ЛJ:ЕQ│TXм1зТ1055л32н(15мRлBY),150-╟RI│Iл6:Бе800.\I│BE:В PRINT BEEPERS IN WORLD.  I=ADDRESS OF BEEPER LIST.fN│ Ж(I):ЕN│255з910.BpQ│╠P(Iл1):ЕQ┤BX ▒Q▓TX зI│Iл5:Бе870.izR│╠P(Iл3):ЕR┤BY ▒R▓TY зI│Iл5:Бе870.ФДLO│QмBXл32н(15мRлBY):Бж430:I│Iл5:Бе870.ёОB│ Б(BXо10):LO│489мBXл10нB:N│5н(Bл1):В PRINT COORDINATES ALONG LEFT AND BOTTOM OF WINDOW/ШБж430:LO│LOл10:N│Nл5:ЕLO┤511з920/DвB│ Б(BYо10):L1│192л32н(BYм10нB):N│5н(Bл1)/{мLO│L1л З( И(N))м2:Бж430:L1│L1м320:N│Nл5:ЕL1▓63з940/С╢Бж550:В PRINT BAG/й└Бж 360:В PRINT CARL/╚╩Р: В FROM DISPLAYING WORLD/╬╘В/ё▐В RUN OR SINGLE STEP A PROGRAM/ўшВ0uЄLO│ ;!
В            CARL THE ROBOTDВ            BY DAVID MEREDITHcВ            DEPT. OF MATHЙ(В            SAN FRANCISCO SATE Uз2В            NOV. 8, 1983н<ВчFВ   REQUIRES COMPANION MACHINE LANGUAGE PROGRAM CARLMэPВПZЖ WALK,WALK,TURNLEFT,TURN LEFT,TURNRIGHT,TURN RIGHT,NEXT,NEXT,RETURN,RETURN,PICKBEEPER,PICK BEEPER,PUTBEEPER,PUT BEEPER,STOP,STOP,DO,DO,GOTO,GOTO,GOSUB,GOSUB АdЖ IFFRONTISCLEARTHEN,IF FRONT IS CLEAR THEN,IFLEFTISCLEARTHEN,IF LEFT IS CLEAR THEN,IFRIGHTISCLEARTHEN,IF RIGHT IS CLEAR THEN,IFFRONTISBLOCKEDTHEN,IF FRONT IS BLOCKED THEN,IFLEFTISBLOCKEDTHEN,IF LEFT IS BLOCKED THEN,IFRIGHTISBLOCKEDTHEN!`nЖ IF RIGHT IS BLOCKED THEN,IFBEEPERHERETHEN,IF BEEPER HERE THEN,IFBEEPERNOTHERETHEN,IF BEEPER NOT HERE THEN,IFBAGEMPTYTHEN,IF BAG EMPTY THEN,IFBAGNOTEMPTYTHEN,IF BAG NOT EMPTY THEN,IFFACINGNORTHTHEN,IF FACING NORTH THEN"GxЖ IFFACINGSOUTHTHEN,IF FACING SOUTH THEN,IFFACINGEASTTHEN,IF FACING EAST THEN,IFFACINGWESTTHEN,IF FACING WEST THEN,IFNOTFACINGNORTHTHEN,IF NOT FACING NORTH THEN,IFNOTFACINGSOUTHTHEN,IF NOT FACING SOUTH THEN,IFNOTFACINGEASTTHEN"СВЖ IF NOT FACING EAST THEN,IFNOTFACINGWESTTHEN,IF NOT FACING WEST THEN#*МЖ FRONT IS BLOCKED AT,NO BEEPER HERE AT,BAG EMPTY AT, NEXT WITHOUT DO AT,RETURN WITHOUT GOSUB AT,DO-NEXT STACK OVERFLOWS AT,GOSUB STACK OVERFLOWS AT#МЦЖ UNDEFINED LINE # IN, STOP AT, PROGRAM ENDS WITHOUT STOP AFTER, TOO MANY BEEPER LOCATIONS AT#даХ500,&H6FFF:Бе 2230#ккВ#ъ┤В SUBROUTINE TO POKE 2-BYTE UNSIGNED INTEGER N INTO LO,LO+1#Ё╛В$╚NX│ Б(Nо256):ТLO,NX:ТLOл1,Nм256нNX:Р$╥В$5▄В WAIT SUBROUTINE$;цВ$aЁЗ"PRESS ANY GREY KEY TO CONTINUE"$u·Е Т┤▓""з Р:Д250${
В$Щ
В INPUT-A-LINE SUBROUTINE$Ї
В BLANK A LINE ON THE SCREEN, INPUT L$, AND ELIMINATE BLANK FROM L$.  AT END L=LEN(L$)$·
"В%
,З" ":ЗBS$;:╗ЙL$%
6I│1:L│ З(L$)%l
@ЕI▓L зР:ДJ│ Ю(I,L$," "):ЕJ│0зР:ДL$│ О(L$,Jм1)л П(L$,LмJ):L│Lм1:I│J:Бе320%r
JВ&"
TВ PRINT CARL AT LOCATION IN X,Y (CORRESPONDS TO CX,CY IN ASSEMBLER LISTING).  MOVE WINDOW INTO WORLD IF CARL OUTSIDE CURRENT WINDOW.  BX,BY IS LOWER LEFT CORNER OF WINDOW.&(
^В&.
hВ&О
rXX│╠P(X):YY│╠P(Y):ЕXX▓│BX ░XX┤│BXл31░YY▓│BY ░YY┤│BYл13з 410:В IF CARL INSIDE CURRENT WINDOW&╞
|Е XX┤32 зBX│0:ДBX│XXм15:В RESET LEFT SIDE OF WINDOW&∙
ЖЕ YY┤14зBY│0:ДBY│YYм7:В RESET BOTTOM OF WINDOW'
РБU2L3R5"$	╞"BM185,108;XR$;D6U2L3R5"*	$РJ	.:ГROUTINE TO ERASE EARRINGSV	8R$│"C5"b	BБе 2320Н	L:ГROUTINE TO DRAW RANDOM          FACEЬ	VА X│1 е 15■	`И  Б( Д(17)) Бж 640,590,560,700,740,770,1370,1120,1160,1290,1420,1580,1650,1890,2200,2300,830	jQ│ Д(м Я)	tЛ X	~Р8	И:ГROUTINE TO DRAW 'BRIAN'[	Т╞"BM187,12;S9C6D6R3U3L3R3U3L3"t	Ь╞"BM199,15;S9D4U3R2"Т	ж╞ "BM208,15;D4BM208,11D1"░	░╞ "BM214,15;D4U4R3D4U2L3"╔	║╞"BM224,15;D4U4R3D4"▌	─╞"BM186,29;R20"у	╬Р$:╔SP$:Л:Е Т│""з3200 К                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                NEТ┬(121,121),20,5,.34Ь┬(121,121),20,8,.3,1,.5:жРR░:ГHAIR LOSS ROUTINEm║Е H┤│61 з H│61:Бе 1270Д─┬(121,96),H,5,1,.5О╬H│Hм1й╪Е  а(55,100)│7 з  1300птР╗ьБж 1300╨Ў┬(121,96),60,8,1╓Рш
:ГEAR ROUTINE┬(55,100),8,8,1.3,.1,.9"┬(185,100),8,8,1.3,.62,.44(├(187,97),7,8E2├(50,97),7,8W<Е H│62 з 1360]FРiPБе 1120ЕZ:ГROUTINE TO DRAW PATCHдd┬(147,42),90,7,.3,.2185,.4├n┬(140,63),22,7,1.3,.04,.48╒x├(140,78),8,7█ВРёМ:ГGLASSES ROUTINE√Ц┴ 6,5а┬(105,80),15,6,.8'к┬(139,80),15,6,.8>┤╗(92,80)м(62,92),╜W╛╗(151,80)м(177,92),╜q╚┬(120,82),7,6,1,.6,.9w╥РЧ▄:ГROUTINE TO REMOVE GLASSESнц┬(105,80),15,5,.8├Ё┬(139,80),15,5,.8┌·╗(92,80)м(62,92),╛є╗(151,80)м(177,92),╛
┬(120,82),7,5,1,.6,.9&Е  а(140,78)│8з 1370,"РC,:ГMUSTACHE ROUTINEO6D$│"C8"	@╞"BM100,118;XD$;S6U4R1D4R1U4R1D4R1U5R1D4R1U5R1D4R1U6R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D6R1U5R1D6R1U5R1D5R1U4R1D5R1U4"JР/T:ГROUTINE TO ERASE MUSTACHE;^D$│"C5"GhБе 1600[r:ГBEARD ROUTINEg|B$│"C8"еЖ╞"BM112,127;XB$;S9D4R1U4R1D5R1U5R1D6R1U6R1D5R1U5R1D4R1U4"лРР╚Ъ:ГROUTINE TO ERASE BEARD╘дB$│"C5"роБе 1670№╕:ГROUTINE TO START OVER┬╝╠Бе 50(╓:ГROUTINE TO ERASE EARS:р├(187,97),5,8Kъ├(50,97),5,8gЇ┬(55,100),8,5,1.3,.1,.9Е■┬(185,100),8,5,1.3,.62,.4ЯЕ  а(55,95)┤▓8 з 1830╗┬(55,100),8,8,1.3,.6,.9╪┬(185,100),8,8,1.3,.6,.9▐&РЁ0:ГEND PROGRAM■:Т 65494,0DЮNЗ @ 236,"BYE-BYE";!XК8b:ГWHISKERS ROUTINEBl┴ 8,5QvА X│1 е 15gАA│ Д(20):B│ Д(20)yК╜(75лA,110лB)БФЛ XРЮА X│1 е 15жиA│ Д(20):B│ Д(20)╕▓╜(82лA,117лB)└╝Л X╧╞А X│1 е 15х╨A│ Д(20):B│ Д(20)ў┌╜(88лA,127лB) фЛ XюА X│1 е 15$°A│ Д(23):B│ Д(23)7╜(108лA,128лB)?Л XNА X│1 е 15d A│ Д(20):B│ Д(20)w*╜(130лA,125лB)4Л XО>А X│1 е 15дHA│ Д(20):B│ Д(20)╖R╜(141лA,117лB)┐\Л X╬fА X│1 е 15фpA│ Д(20):B│ Д(20)ўz╜(147лA,110лB) ДЛ XОР"Ш:ГROUTINE TO DRAW MOHAWK2вЕ M▓│95 з РNм┬(121,96),M,8,1,.73,.79X╢M│Mл1^└Р|╩:ГROUTINE TO ERASE MOHAWKП╘Е M┤│61 з 1270л▐┬(121,96),M,5,1,.73,.79╡шM│Mм1╗ЄР┌№:ГROUTINE TO DRAW EARRINGSц	R$│"C6"	╞"BM55,108;XR$;S13D65 й.5:╔"V"л И( Б(X))л";2;6;10;6;5;6;11;7;3;11;2;10;11;2;8;1;10;9;2;2":Л'QдБе4000'XЗ:Г''МP$(12):Гdefine often used strings'╕'P$(1)│"1;2;3;4;5;6;7;8;9;10;11;12;":ГASCENDING SCALE'Ё'$P$(2)│"12;11;10;9;8;7;6;5;4;3;2;1":ГDESCENDNG SCALE('.P$(3)│"B;A;G;F;E;D;C":ГDESCENDING NOTES(v'8P$(4)│"1;12;2;11;3;10;4;9;5;8;6;7;7;6;8;5;9;4;10;3;11;2;12;1;":ГINTERSECTING SEQUENCE(┐'BP$(5)│"1;P2;1;P2;1;P2;1;P2;1;P2;1;P2;1;P2;1;P2;1;P2;1;":ГSIMPLE RASP)'LC$│"GO+CEO-;":P$(6)│C$л"P1;"лC$л"P1;"лC$л"P1;":ГCONSONANT RASP)''VP$(7)│"CC#D;P1;CC#D;P1;CC#D;P1;")К'`P$(9)│"1;P8;1;P8;":P$(8)│"XP$(9);XP$(9);XP$(9);XP$(9);XP$(9);XP$(9);":ГCONSTRUCTED SIMPLE RASP)Ў'jP$(11)│"1;P255;1;P255;1;P255;1;P255;":P$(10)│"XP$(11);XP$(11);XP$(11);XP$(11);":ГSHORT CONSTRUCTED RASP* 'tP$(12)│"C;D;E;F;G;A;B;":ГSIMPLE SCALE*'N:Г*7N :Гmain menu*EN*╔"V20;O2"+N4Ю6:З@9,"*MAIN MENU*";:З@64," DEMONSTRATIONS OF SOUNDS FROM   MAGAZINE ARTICLE.":З@160," 'LAZY BUTTON' PLAYS ALL BUT THE FIRST TWO SOUNDS IN SEQUENCE.":З@257, Л(255);"TO STOP SOUNDS PRESS ANY KEY"; Л(255);+МN>З@329,"**CHOICES**";:З@352,"  1 SCALES, SIRENS, AND RASPS":З"  2 BUILDING COMPLICATED SOUNDS":З"  3 'LAZY BUTTON'+мNHЙMU:ИMU Бе20050,22000,30000+щNRЮ6:З"**SCALES, SIRENS, AND RASPS**":З@64,"1 SIMPLE SCALE,	N\З"2 SIMPLE SCALE BY OCTAVES,)NfЗ"3 ABOVE FASTER AND FASTER,@NpЗ"4 EXTENDED SIREN,cNzЗ"5 ASCENDING DESCENDING SIREN,}NДЗ"6 SIREN WITH WARBLE,ШNОЗ"7 INTERSECTING SIREN,кNШЗ"8 POLYPHONY,╬NвЗ"9 SINGLE AND MULTI TONE RASPS,шNмЗ"0 BACK TO MAIN MENU-N▒З"":З"  PRESS ANY KEY TO STOP SOUNDS":З""-HN╢ЙMU:ИMU Бж100,200,300,400,500,600,700,800,900-_N└ЕMU│0з20000:Д20050-fUя:Г-vUЁ:Гsubmenu 2-дU·Ю6:З@0,"**BUILDING COMPLICATED SOUNDS**";-╟VЗ@64," 1 RANDOM NOTE SEQUENCES-шVЗ" 2 RANDOM NOTES AND PAUSES- VЗ" 3 OTHER SOURCES.V"З" 4 SPECIAL PURPOSE NOISES.;V,З" 0 BACK TO MAIN MENU".iV1З"":З"  PRESS ANY KEY TO STOP SOUNDS":З"".}V6ЙMU:ЕMU│0з20000.ЫV@ИMU Бж1000,2000,3000,4000.зVJБе22000.оu/:Г/0u0Бж300:Бж400:Бж31000:Бж500:Бж31000:Бж600:Бж31000:Бж700:Бж31000:Бж800:Бж31000:Бж900:Бж31000:Бж1000:Бж31000:Бж2000:Бж3000:Бж4000/<u:Бе20000/ZyЗ"PRESS KEY TO CONTINUE";/pyБАT│1е100:ЛT:Z$│ Т/ДyЖЕ Т│""з31110:ДР;A'
┬З@197,"IS";A8
╠З@200,"NOT";AG
╓З@204,"A";AZ
рЗ@206,"VALID";Aq
ъЗ@212,"SELECTION";AД
ЇЗ@261,"PRESS";AХ
■З@267OVEN":З"0 BACK TO LAST MENU"3╠ЙMU:ИMU Бж3100,3300F╓ЕMU│0зР:Д3000РПЮ6:З"SOUND GENERATED FROM SCIENTIFIC DATA":З"TRANSFER RNA":З"TEMPO 8а&╔"T8;O3;L2;"▄0Ж C,A,C,E,G,E,A,A,A,G,C,E,A,A,C,E,E,A,G,C,A,E,E,A,A,C,C8:Ж E,E,E,E,A,A,G,E,E,A,A,A,G,A,E,E,A,A,G,A,G,A,A,C,C,A,A,C,A,C,C,E,C,E,E,E,A,C,A,G,E,G,ALDП:А LOOP│1 е 69\NН SP$:╔ SP$bXЛГbЗ Л(239);"TEMPO 250":╔"T250"нlП:А LOOP│1е69:НSP$:╔SP$:Л:Е Т│""з3180╤vZ$│ Т:З Л(239)"LOW OCTAVE":╔"O1·АП:АLOOP│1е69:НSP$:╔SP$:Л:Е Т│""з3200 КР ╬фЮ6:З@35,"PASSAGES FROM SHEET MUSIC";:З@128,"0 ESCAPE TO LAST MENU":З"1  BEETHOVEN AT NORMAL TEMPO":З"2  FOUR TIMES NORMAL (TEMPO 8)":З"3   16 TIMES NORMAL (TEMPO 32)":З"4   64 TIMES NORMAL (TEMPO 128)" сюЙMU:ЕMU│0з3000 ·°╔"T2;O2":ЕMU│2з╔"T8"!
ЕMU│3з╔"T32"!
ЕMU│4з╔"T128"!1
П:АZ│1е69:НZ$:Л!O
 АPO│1е90:НP$:╔P$:Л:Бе3300!Y
*╔ MP$!═
4ЖV30,L8,B-,B-,B-,L2,V25,E-,V20,F,O1,B-,L4,O2,V15,P1,B-,O3,E-,D,E-,F,C,P64,C,O2,B-,P64,B-,O3,E-,D,E-,F,C,C,O2,B-"p
>ЖP1,O2,L2.,G,L4,F#,E,D,P99,D,P99,D,P99,L2.,G,L4,F#,E,D,P99,D,P99,D,P99,L2.,O3,C,O2,L4,B,A,G#,P99,G#,P99,G#,P99,L2,A,P99,O3,L4..,C,O2,L16,A,L2,G,L4..,A,L16,'F#"wЯ:Г"∙аЮ6:З"SPECIAL PURPOSE NOISES":З б(32,223);:З"1 TRAILING SIREN AND IMPACT":З"2 TRAILING RASP AND IMPACT":З"0 BACK TO LAST MENU"#кЙMU:ИMU Бж4100,4200##┤ЕMU│0зР:Д4000#3Ю6:З"IMPACT#>Бж2400#i:ГPLAY"V30;O5;T250;"+P$(1)+"O1;"+R$(1)$"╔"V3;O5;T4;L4;12;T50;V20;"лP$(2)л"V10;O4;T100;"лP$(2)л"V10;O3;"лP$(2):╔"O2;"лP$(2):╔"T2;P2;T250;V31;O1;"лR$(1)л"V20;"лR$(1):╔"T150;V15;"лR$(1)лR$(1)$%,╔"V31;"лR$(1):╔"V10;O2;"лR$(1)$J6╔"V31;O1;"лR$(1)л"V31;O2;"лR$(1)$╖@╔"V20;O1;XR$(1);XR$(1);XR$(1);V15;XR$(1);XR$(1);XR$(1);V10;XR$(1);XR$(1);XR$(1);V5;XR$(1);XR$(1);XR$(1);$┬JБе4000$хhЮ6:З"TRAILING RASP WITH IMPACT%;rC$│"12;P1;11;P1;10;P1;9;P1;8;P1;7;P1;6;P1;5;P1;4;;P1;3;P1;2;P1;":ГINTITAL STRINGS%GvDNA$│""%owП:А LOOP│1 е 69:Н Z$:DNA$│DNA$лZ$:Л%Ь|З"DOWNSCALE RASP WITH INCREASING  TEMPO"%хЖ╔"V20;L20;;T20;O5;XC$;T40;O4;XC$;T80;O3;XC$;T160;O2;XC$;T250;O1;XC$;&)Р╔"T4;P1;T250;L250":Ю8:╔"V31;O1;CC#DCBO5A#O1DD#ECC#O3BO1CDEF#FE#&fФЮ2:╔"T4;P1;L250;T250":Ю5:З"RUMBLE DERIVED FROM DNA DATA"&╚Х╔"V31O1;XDNA$;V15;XDNA$;V31T5CT250V10;XDNA$;V25;XDNA$;V15;XDNA$;V10;XDNA$;V5;XDNA$;V1;XDNA$;"'FЪ╔"O5;V1":З"'CRICKETS' FROM RANDOM FUNCTION":АX│1е1):ЛщЕ Т┤▓""зР6юАO│5е1 йм1:╔"O"л И(O)л";"лP$(4):ЛE°Е Т│""з740KРR:Гn Ю6:З"POLYPHONIC EFFECTSГ%З"G MAJOR CHORD"б*C$│"O1GO3GO4CEO1GO3GO4CE"н/╔"T200"└4╔C$:Е Т│""з820█>З"G SHARP MINOR CHORD"·HC$│"O1G#O3G#BO4EO1G#O3G#B"
R╔C$:Е Т│""з850\З"DISSONANCE";fC$│"O1GO2G#ABO1GO2G#AB"Np╔C$:Е Т│""з880TВР[Г:ГвДЮ6:З"RASPS":З@64,"1 SINGLE NOTE":З"2 MULTI TONE":ЙMZ:ИMZ Бе910,980иЙРхОЮ6:З"SINGLE NOTE RASPS":З"STRING PLAYED="P$(5):SP$│P$(5)УЗ"TEMPO=50,LOW OCTAVE":╔"T50;O1;V31;"#Ш╔SP$:Е Т│""з920JЭЗ Л(255);"TEMPO 150":╔"T150":Z$│ Т^в╔SP$:Е Т│""з930ЛзЗ Л(255);"TEMPO INCREASED FROM 20 TO 255▓мАT│20е255 й20:╔"T"л И(T)л";"лSP$:Л╤▒З Л(255);"CHANGING OCTAVES№╢АO│1е4:╔"O"л И(O)л";"лSP$:Л:Е Т│""з950╗З Л(255);"UP AND DOWN":Z$│ Тh└АO│1е4:╔"O"л И(O)л";"лSP$:Л:АO│4е2 йм1:╔"O"л И(O)л";"лSP$:Л:Е Т│""з960д┼З Л(255);"HIGH OCTAVE WITH VOLUME CHANGE":╔"T255":Z$│ Т╥╩АV│1е31й6:╔"V"л И(V)л";"лSP$:Л:Е Т│""з970у╧╔"T20;V20":Р2╘Ю6:З"MULTI NOTE RASP":З Л(239);"CONSONANT":SP$│P$(6):З"STRING PLAYED ="SP$C┘╔"L64":Бж915П▐З"MULTI NOTE RASP":З Л(239);"DISSONANT":SP$│P$(7):З"STRING PLAYED ="SP$ЩуБж915ец╔"L2":Рмч:ГшЮ6:З"RANDOM TONES":З"SOUND WILL BE DIFFERENT EVERY   TIME":Бж2500:SP$│R$(1):З"STRING PLAYED="SP$;ЄЗ"TEMPO=250","HIGH OCTAVE":╔"T250;O5"P№╔SP$:Е Т│""з1020pЗ Л(255);"LOW OCTAVE":╔"O1"Е╔SP$:Е Т│""з1040зЗ Л(255);"WITH VOLUME CONTROL╫$АV│6е31 й5:╔"V"л И(V)л";"лSP$:Л:Е Т│""з1060№.З Л(255);"OCTAVE ALSO CONTROLLEDB8АV│31е4 йм5:╔"V"л И(V)л";O"л И( Б(6.5мVо6))л";"лSP$:Л:Е Т│""з1080HBРO╧:Г╠╨Ю6:З"RANDOM NOTES AND PAUSES":З"THIS SOUND WILL  BE  DIFFERENT  EVERY TIME.":Бж2510:З"THE STRING PLAYED THIS TIME="R$(3)▄┌╔"T250;V20"єф╔R$(3):Е Т│""з2020юZ$│ Т:З Л(255)"WITH CHANGING VOLUMEA°АV│1е31 й5:╔"V"л И(V)л";"лR$(3):ЛRЕ Т┤▓""з2080yАV│31е1 йм5:╔"V"л И(V)л";"лR$(3):ЛЙЕ Т│""з2040Ц ╔"V20":Р┬	`:Гfilling strings with random variables╥	jБж2500,2510╪	tР	─R$(1)│"":АX│1е20:Бж2520:R$(1)│R$(1)лR$:Л:Р6	╬R$(3)│"":АX│1е15:Бж2530:R$(3)│R$(3)лR$:Л:РN	╪R$│ И( Д(12))л";":РЙ	тR$│"O"л И( Д(5))л";"л И( Д(12))л";P"л И( Д(255))л";":РР╖:Гд╕:Гother sources┬Ю6:З"OTHER SOURCES OF PLAYABLE       STRINGS":З б(32,223);:З"1 TRANSFER RNA":З"2 BEETH #Е:ГVERSION FOR 'HOT COCO'%
:Г,:ГP:Г*****************************s:Г  MAKING NOISES MADE SIMPLE'Н:Г  PHILIP MCLAUGHLINб:Г  DENTON, TX ┼:Г*****************************╠	:Г
Е
Х1000:Ю6:З@98,"'MAKING NOISES MADE SIMPLE'";:З@192,"AN ACCOMPANIMENT TO THE MAGAZINEARTICLE OF THE SAME NAME.";:З@288,"A TONE OF MODERATE LOUDNESS IS  NOW BEING PLAYED.";:З@384,"";
╩З"":З Л(239);"ADJUST VOLUME":З Л(255);"PRESS ANY KEY TO CONTINUE
р╔"L8;V15;O2;T150"╔"V25;O1;A;P2;V5;O5;G":Е Т│""з15Z│ Д(м Я)Бе10000&c:ГЖdЮ6:З"STEP UP SCALE":SP$│"STRING TO BE PLAYED='1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12;'":ЗSP$Чn╔"V20;T4;L2"║Ц╔"1;2;3;4;5;6;7;8;9;10;11;12;"└╞Р╟╟:Г╚Ю6:З"STEP UP SCALE BY OCTAVES":ЗSP$:З"IT WILL BE PLAYED IN EACH OCTAVE FROM 1 TO 5(с╔"T5"7цА LOOP│1е5KЁO$│"O"л И(LOOP)S·╔O$v ╔"1;2;3;4;5;6;7;8;9;10;11;12;"|
ЛВ
*РЙ
+:Г╞
,Ю6:З"SAME THING BUT FASTER.":З"STEP UP SCALE BY OCTAVES.
6З"TEMPO WILL BE 10, THEN 20,THEN  40, THEN 80, THEN 100, THEN 150,THEN 250.Q
@╔"T10;L4":Бж330:╔"T20":Бж330:╔"T40":Бж330:╔"T80":Бж330c
B╔"T100":Бж330Г
D╔"T150":Бж330:╔"T250":Бж330Й
EРШ
JА LOOP│1е5м
TO$│"O"л И(LOOP)┤
^╔O$╫
h╔"1;2;3;4;5;6;7;8;9;10;11;12;"▌
rЛу
|Ръ
П:Гa
РЮ6:З"ASCENDING SCALE UP ALL OCTAVES.":З"REPEATED AT HIGH SPEED TO MAKE  CONTINUOUS SOUND.":З"PRESS ANY KEY TO STOPr
д╔"T250;L250"З
оБж330:Е Т│""з430▓
┬Z$│ Т:З Л(255);"WITH VOLUME CONTROLLEDс
╠АO│1е5:╔"O"л И(O)л";V"л И(Oн6)л";"лP$(1):Л
╓АO│1е5:╔"O"л И(O)л";V"л И(36мOн6)л";"лP$(1):Л"
рЕ Т│""з460/
Є╔"V20":Р6
є:ГЕ
ЇЮ6:З"ASCENDING DECENDING SIREN.":З"STRINGS PLAYED ARE "P$(1):З"AND  "P$(2)С
■╔"T250"│АO│1е5:╔"O"л И(O)л";"лP$(1):Л┘АO│5е1 йм1:╔"O"л И(O)л";"лP$(2):ЛшЕ Т│""з520Є&Z$│ Т%0З Л(255);"SAME THING BUT WITH INVERTED   ORDERG:АO│1е5:╔"O"л И(O)л";"лP$(2):ЛmDАO│5е1 йм1:╔"O"л И(O)л";"лP$(1):ЛNЕ Т│""з570:ДРЖW:Г▌XЮ6:З"ASCENDING DECENDING SIREN WITH  WARBLE":З"STRINGS PLAYED="P$(1):З"AND  "P$(2)шb╔"T250lАO│1е5:╔"O"л И(O)л";"лP$(1)лP$(2):ЛqЕ Т┤▓""зРJvАO│5е1 йм1:╔"O"л И(O)л";"лP$(2)лP$(1):ЛYАЕ Т│""з620_КРf╗:ГЫ╝Ю6:З"INTERSECTING SIREN":З"STRING PLAYED=";P$(4)к╞╔"O3;T250"└╨╔P$(4):Е Т│""з720р┌З Л(255);"BY OCTAVES":Z$│ ТфАO│1е5:╔"O"л И(O)л";"лP$(4 ф

:ГFACE'#:ГBY BRIAN RUPERTE:ГTRS-80 EXTENDED COLOR BASICZ(:ГCOLOR COMPUTERd2╚ 3,1j<╝tF┐ 1,1БPТ65495,0КZH│60УdM│60Яn:ГFRAME╕x╗(0,191)м(255,191),╜═В╗(0,191)м(0,0),╜тМ╗(0,0)м(255,0),╜√Ц╗(255,0)м(255,191),╜
а┬(121,96),60  :ГHEAD
%к├ (121,96),5
5┤:ГSHOULDERS
R╛┬(40,140),60,6,1,.04,.25
p╚┬(200,140),60,6,1,.25,.48
Г╥┬(121,96),60,6
Ц▄├(120,170),6,6
йц┬(121,96),60,8
╡ЁБж 2450
╚·:ГMAIN ROUTINE
ф А Z│ 1 е 7:Т338лZ,255:Л
¤
Е  Ж(339)│254 Бж 640
Е  Ж(340)│254 Бж 590/
Е  Ж(341)│254 Бж 560H
"Е  Ж(342)│254 Бж 700a
,Е  Ж(343)│254 Бж 740z
6Е  Ж(344)│254 Бж 770У
@Е  Ж(345)│254 Бж 830╣
JЕ  Ж(338)│253 з Т 338,255: Бж 940╙
TЕ  Ж(339)│253 Бж 1000э
^Е  Ж(340)│253 Бж 1120
hЕ  Ж(341)│253 Бж 1160!
rЕ  Ж(342)│253 Бж 1200;
|Е  Ж(343)│253 Бж 1290U
ЖЕ  Ж(344)│253 Бж 1370o
РЕ  Ж(345)│253 Бж 1420Й
ЪЕ  Ж(338)│251 Бж 1500г
дЕ  Ж(339)│251 Бж 1580╜
оЕ  Ж(340)│251 Бж 1620╫
╕Е  Ж(341)│251 Бж 1650ё
┬Е  Ж(342)│251 Бж 1690
╠Е  Ж(343)│251 Бж 1720%
╓Е  Ж(344)│251 Бж 1750?
рЕ  Ж(345)│251 Бж 1890e
ъЕ  Ж(338)│247 з Т338,255: Бж 2200
ЇЕ  Ж(339)│247 Бж 2250Щ
■Е  Ж(339)│239 Бж 2300│Е  Ж(340)│239 Бж 2350═Е  Ж(341)│239 Бж 2380чЕ  Ж(340)│247 Бе 1840Є&Бе 250■0:ГMOUTH:┬(121,121),20,8,.3DР&N:ГNOSE=X╞"BM123,87;S4C8F4"Yb╗ (129,105)м(120,106),╜sl╗(126,90)м(129,105),╜yvРХА┬(105,80),10,8,.4:ГEYESзК├(105,80),6,8╜Ф┬(139,80),10,8,.4╧Ю├(139,80),6,8╒иРш▓:ГHAIR ROUTINE°╝Е H▓│96 з Р╞┬(121,96),H,8,1,.5╨H│Hл1┌Р*ф:ГCHINHю┬(121,140),15,8,.4,.15,.4N°Р^:ГEYE BROWSoА A│68 е 72 Й┬(105,A),15,8,.4,.5,1г ┬(138,A),15,8,.4,.5,1л*Л A▒4Р╛>:ГCHEEKS╚H┴ 7,8╫RА C│1 е 40э\A│ Д(20):B│ Д(20)■f╜(87лA,90лB)pЛ CzА C│1 е 40+ДA│ Д(20):B│ Д(20)=О╜(140лA,90лB)EШЛ CKвРaм:ГTALKING ROUTINEx╢┬(121,121),20,8,.3Л└├(121,121),7,8Ю╩А X│1 е 55:Л X▒╘├(121,121),5,8╖▐Р╬ш:ГBLINKING ROUTINEфЄ┬(105,80),10,8,.4·№┬(139,80),10,8,.4├(105,80),8,8├(139,80),8,81А X│1 е 80:Л XC$├(105,80),6,5\.Е  а(144,70)│8 з1090n8├(139,80),6,5ДB┬(105,80),10,8,.4ЪL┬(139,80),10,8,.4аVР┤`:ГFROWN ROUTINE╦j┬(121,121),20,5,.3чt┬(121,121),20,8,.3,.5,1э~Р
И:ГSMILE ROUTI                                                                                                                                                                                                                                                                            ╞ ╞┬╔┼├%&'(╞*┼,┴╚/├                    TITLE   BAS"0SPOOLER BAS#XNOISES  BAS ИFACE    BAS!чLRNCURVEBAS$	MOUSLOGOBAS)wSHOWCARLBASCARLM   BIN+BCROAKER5BIN-GRAPHICSBAS.^SHOWCARLDSK                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 -
Х200,15000:Ю'B$│"<HIT ENTER>":АX│15000е15103R(НOP$:N│ Й("&H"лOP$)c2ТX,N:S│SлN:ЛБ<З@72,"HOT COCO MAGAZINE "ЦFЗ@139,"PRESENTS"ЮPЗ:З╪ZЗ д4) Л(130)л Л(131)л"              "л Л(129)л Л(135)dЗ д4) Л(136)л Л(140)л" N S T A N T  "л Л(132)л Л(140)л" O C O"4iЗ@330,"OCTOBER 1984"AnЗ@426,B$vxв15000:АX│1е130:Л:A$│ Т:Е A$│ Л(13)  з 140:Бе120БВБе 120═МЮ:З@65, " SPECIFIC INSTRUCTIONS FOR       PROGRAMS APPEAR IN HOT COCO " ЦЗ@162,"* cload FOR BASIC PROGRAMS *    * cloadm FOR ML PROGRAMS   *" \ЫЗ@290,"*ALL PROGRAMS COPYRIGHT 1984*       * HOT COCO MAGAZINE *" АЬЗ@389,"** CW COMMUNICATIONS **" НаЗ@458,B$ ├кв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170 ╬┤Бе 170!4╛Ж 31,8D,00,5F,1F,21,E6,8D,00,5D,3A,1F,12,8E,04,00,A6,A0,A7,80,8D,44,8C,04,20,26,F5,8E,04,3F,A6,A0!<╚Ю:С!е╥Ж A7,00,8D,36,30,88,20,8C,05,FF,26,F2,8E,06,00,A6,A0,A7,82,8D,25,8C,05,E0,26,F5,8E,05,C0,A6,A0,A7,00"▄Ж 30,88,E0,8D,14,8C,04,00,26,F2,A6,8D,00,18,4C,81,04,26,01,4F,A7,8D,00,0E,39,81,BF,26,04,31,8D,00,01,39"#цЖ 9F,AF,CF,BF",ЁЖ 00¤
   √
 ї ∙
 є
   ё   ∙ ∙
 °	 ё · · ∙	 ¤   ∙ ∙ є
 ў °	 √ ё · ° Є №
 є" ў
 Ї ° Ў √ № ║ ° ╥ №	 ■ Ї ■
 ї ° №       ·
 ¤                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  U
Х 200,&H7F4FoDB$│"1A508E8000AF8C1BAF8C1A308C58BF010D308C13BF0168C637F7FF03C601D7961CAF39800080003414"╠DC$│"D66FC1FE2632AE8CF11A50B7FFDFA780B7FFDE1CAF8CFF0026038E8000AC8CDC27FBAF8CD5810D2708")(DD$│"0C9CD69CD19B25020F9C351432623935147ECB4AAE8CBCAC8CB72733F6FF2254252DB7FFDFA680B7FF"Ж2DE$│"DE8CFF0026038E8000AF8C9EBDA2FB5FBDA2FDC60834045F445958BDA2FD35045A26F2BDA2FB7ED7BC"Ф<AD│&H7F50жFDA$│DB$:Бж130╕PDA$│DC$:Бж130╩ZDA$│DD$:Бж130▄dDA$│DE$:Бж130щnв &H7F50яxКўВI│1 
МА A│AD е ADл40 %ЦD│ Й("&H"л Р(DA$,I,2)) /аТ A,D 9кI│Iл2 A┤Л A N╛AD│ADл41 T╚РNE *" АЬЗ@389,"** CW COMMUNICATIONS **" НаЗ@458,B$ ├кв15000:А X│1е130:Л:A$│ Т:Е A$│ Л(13) з 200 :Бе170 ╬┤Бе 170!4╛Ж 31,8D,00,5F,1F,21,E6,8D,00,5D,3A,1F,12,8E,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 )
Ю0%З @73, "LEARNING CURVE";@З @138,"(C) 1983 BY:";_(З @200,"PHILIP N. WILCOX";Г2:Г           16665 OLIVE CIRCLEо<:Г           FOUNTAIN VALLEY, CA 92708┬FА J│1 е 2300: Л
PU1$│"0":U2$│"0":H1$│"0":H2$│"0":E$│"=":C$│",":SP$│" ":T$│"T":SLP$│"SLP":P$│"%"
!ZБе 2000
(_:Г
fdВ **** SUBROUTINE TO CALCULATE AN UNKOWN UNIT NUMBER ****
ЛnЮ:З@69,"CALCULATE UNIT NUMBER":З
вxЙ "ENTER SLOPE ";S
╕ВB│ Щ(Sо100)о Щ(2)
▐МЙ "ENTER A KNOWN UNIT NUMBER ";U1ЦЗ "ENTER THE HOURS FOR UNIT";U1аЙ H1<кЙ "ENTER THE HOURS FOR THE UNKNOWN UNIT ";H2J┤A│H1оU1пB`╛U2│ Ч( Щ(H2оA)оB)g╚Ю е╥З @102, "UNIT":З @107,═"####.#";U2:З @114, "@";H2 "HOURS"╝▄З @171, "BASED ON"┘цЗ @266, "SLOPE = ";S "%"■ЁЗ @326, "UNIT";U1 "@";H1 "HOURS"
·Бж 2500
Бе 110
:Гb
ЇВ **** SUBROUTINE TO CALCULATE THE VALUE OF AN UNKNOWN SLOPE ****Б
■Ю:З@72,"CALCULATE SLOPE":З╡Й "ENTER ONE OF THE KNOWN UNIT     NUMBERS ";U1┘З "ENTER THE HOURS FOR UNIT";U1тЙ H1&Й "ENTER THE OTHER KNOWN UNIT      NUMBER ";U290З "ENTER THE HOURS FOR UNIT";U2B:Й H2HDЮ{NB│ Щ(H1оH2)о( Щ(U1)м Щ(U2)): S│ Ч(Bн Щ(2))н100▓XЗ @106, "SLOPE = ": З @114, ═"###.#";S :З @119,"%"╔bЗ @171, "BASED ON"яlЗ @ 262, "UNIT";U1 "@";H1 "HOURS"vЗ @326, "UNIT";U2 "@";H2 "HOURS" АБж 2500,КБе 510 3Ф:ГmшВ **** SUBROUTINE TO CALCULATE CUMULATIVE TOTALS ****ЧЄЮ:З@70,"CALCULATE CUMULATIVE HOURS":Зо№Й "ENTER SLOPE ";S╒Й "ENTER STARTING UNIT NUMBER ";U1∙З "ENTER THE HOURS FOR UNIT";U1Й H1'$Й "ENTER ENDING UNIT NUMBER ";U2L.B│ Щ(Sо100)о Щ(2):A│H1оU1пB:HC│0j8Ю:З @ 103, "COMPUTING..."ОBА I│U1 е U2 : Q│IпB: HC│HCлQ: ЛЪLHC│AнHCаVЮ╧`З @39, ═"########.#";HC:З @47," CUM HOURS"цjЗ @107, "BASED ON"
tЗ @170, "SLOPE =";S"%"%~З @229, "UNIT";U1 "@";H1 "HOURSCГЗ @297, "THROUGH UNIT";U2mИB│ Щ(Sо100)о Щ(2):A│H1оU1пB:H2│AнU2пByТБж 2500ЕЬБе 1010Мж:Г╦▄В**** SUBROUTINE TO CALCULATE HOURS FOR A  GIVEN UNIT ****яцЮ:З@70,"CALCULATE UNIT HOURS":ЗЁЙ "ENTER SLOPE ";S,·Й "ENTER A KNOWN UNIT NUMBER ";U1PЗ "ENTER THE HOURS FOR UNIT";U1YЙ H1жЙ "ENTER THE UNIT NUMBER THAT YOU  WOULD LIKE TO KNOW THE HOURS FOR ";U2╨"B│ Щ(Sо100)о Щ(2):A│H1оU1пB:H2│AнU2пB╓,Ю 6З @ 99, "UNIT";U2:З @109, "@":З @111, ═"######.#";H2:З @119, " HOURS"8@З @ 171, "BASED ON"VJЗ @ 266, "SLOPE = ";S "%"|TЗ @ 326, "UNIT";U1 "@";H1 "HOURS"И^Бж 2500ФhБе 1510Ыr:Г╖╨Ю: В**** MAIN MENU ****▌┌З @100,"PRESS NUMBER BY FUNCTION"°фЗ @132,"TO CALCULATE:"юЗ @232,"1. SLOPE"*°З @264,"2. UNIT NUMBER"EЗ @296,"3. UNIT HOURS"gЗ @328,"4. CUMULATIVE TOTALS"ГЗ @360,"5. PRINT GRAPH"ЮR$│ Т: Е R$│"" Бе 2070┬ R│ Й(R$): Е R┤1 ▒ R▓5 з Бе 2070ф*И R Бе 510,110,1510,1010,6000ы4:Г 	─А J│1 е 2300: ЛD	╬З @385, "PRESS C TO CONTINUE, M TO GOTO  MENU, P TO PLOT RESULTSa	╪R$│ Т: Е R$│"" з Бе 2520r	тЕ R$│"C" з РЙ	ьЕ R$│"M" з Бе 2000а	ЎЕ R$│"P" з Бе 3010м
Бе 2520│

:ГоX│U2:U2│U1:U1│X:X│H2:H2│H1:H1│X:Р: В**** ADJUSTS FOR HIGHER UNIT NUMBER BEING ENTERED FIRST ****X╕В**** SET-UP SUBROUTINE FOR CALCULATION OF PLOT POINTS ****r┬X│ Б(Sл.5):S$│ И(X):ЮИ╠Е U1▓U2 з Бж 2990о╓P│ Б(U1л.5):U1$│ И(P):C│0:Бж 3210╖рU1│P╤ъX│ Б(U2л.5):U2$│ И(X)чЇP│U2о10пC:Бж 3170Ё■U2│PP│ Б(H1л.5):C│0:H1$│ И(P):Бж 3150'P│181мP:H1│PAY│ Б(H2л.5):H2$│ И(Y)W&P│H2о10пC:Бж 3170h0P│181мP:H2│Pt:Бе 3500оDВ**** SUBROUTINE TO CALCULATE Y-AXIS PLOT POINTS ****┼NЕ P ┤│ 100 Бе 3170ъXЕ P ▓ 100 з P│Pо10:C│Cл1:Бе 3150bЕ P│1 з ║ P│0:Е P│0 з Бе 3190$lP│85н( Щ(P)о Щ(10))*vРdАВ**** SUBROUTINE TO CALCULATE X-AXIS PLOT POINTS ****{КЕ P ┤│1000 Бе 3170аФЕ P ▓1000 з P│Pо10:C│Cл1:Бе 3210зЮ:ГЇ
мЮ:З:З:З"IN 34 CHARACTERS OR LESS ENTER  TOP TITLE":З@169,"***EXAMPLE***"@
╢З @ 225, "ACME BEAR TRAPS  JULY 12, 1983":╗Й TT$: В **** TOP TITLE ****Ш
└BT$│T$лU1$лE$лH1$лC$лSP$лT$лU2$лE$лH2$лC$лSP$лSLP$лE$лS$лP$:В**** BOTTOM TITLE ****Я
╩:Г╦ИВ**** GRAPHICS PLOTTING SUBROUTINE ****╘Т╚4,1┌Ь╝фж┐ 1,0 ░╗ (0,11)м(255,181),╜,B▓╗ (26,11)м(26,181),╜1┤╗ (41,11)м(41,181),╜J╢╗ (51,11)м(51,181),╜c╕╗ (59,11)м(59,181),╜|║╗ (66,11)м(66,181),╜Х╝╗ (72,11)м(72,181),╜о╛╗ (77,11)м(77,181),╜╟└╗ (81,11)м(81,181),╜р┬╗ (85,11)м(85,181),╜√─╗ (111,11)м(111,181),╜╞╗ (126,11)м(126,181),╜1╚╗ (136,11)м(136,181),╜L╩╗ (144,11)м(144,181),╜g╠╗ (151,11)м(151,181),╜В╬╗ (157,11)м(157,181),╜Э╨╗ (162,11)м(162,181),╜╕╥╗ (166,11)м(166,181),╜╙╘╗ (170,11)м(170,181),╜ю╓╗ (196,11)м(196,181),╜	╪╗ (211,11)м(211,181),╜$┌╗ (221,11)м(221,181),╜?▄╗ (229,11)м(229,181),╜Z▐╗ (236,11)м(236,181),╜uр╗ (242,11)м(242,181),╜Рт╗ (247,11)м(247,181),╜лф╗ (251,11)м(251,181),╜┼ь╗ (0,155)м(255,155),╜▀ю╗ (0,140)м(255,140),╜∙Ё╗ (0,130)м(255,130),╜Є╗ (0,122)м(255,122),╜-Ї╗ (0,115)м(255,115),╜GЎ╗ (0,109)м(255,109),╜a°╗ (0,104)м(255,104),╜{·╗ (0,100)м(255,100),╜У№╗ (0,96)м(255,96),╜л■╗ (0,70)м(255,70),╜├╗ (0,55)м(255,55),╜█╗ (0,45)м(255,45),╜є╗ (0,37)м(255,37),╜ ╗ (0,30)м(255,30),╜ #╗ (0,24)м(255,24),╜ ;
╗ (0,19)м(255,19),╜ S╗ (0,15)м(255,15),╜ kP╗ (U1,H1)м(U2,H2),╜ ЩZ╞ "C1;S4;BM2,8": В **** POSITION PEN **** иdTITLE$│TT$ ┤nБж 5500 ╩x╞ "C1;S4;BM2,189" ┘ВTITLE$│BT$ хМБж 5500!ЦЕ  Т│"" Бе 5270 :Д Бе 2000!а:Г!O|В**** SUBROUTINE FOR DRAWING CHARACTERS ON GRAPHICS SCREEN ****!jЖА LNGTH│1 е  З(TITLE$)!vРSCHAR│0!|ЪП!РдН SCHAR$,FCHAR$!─оЕ SCHAR$│ Р(TITLE$,LNGTH,1) з ╞ FCHAR$: Бе 5570!щ╕SCHAR│SCHARл1: Е SCHAR┤51 з 5540!Є┬Л: Р"рЖ " ","BM+7,0""-тЖ"0","BM+1,0H1U4E1R2F1D4G1L2BM+6,0""NфЖ"1","BM+1,0R1NR1U6G1BM+6,5""sцЖ"2","NR4U1E1R1E2U1H1L2G1BM+7,5""гшЖ"3","BM+0,-1F1R2E1U1H1NL1E1U1H1L2G1BM+7,5""╚ъЖ"4","BM+3,0U2NR1L3U1E3D3BM+4,3""ёьЖ"5","BM+0,-1F1R2E1U2H1L3U2R4BM+3,6"#юЖ"6","BM+4,-5H1L2G1D4F1R2E1U1H1L3BM+7,3"#8ЁЖ"7","U1E4U1L4BM+7,6"#oЄЖ"8","BM+1,0H1U1E1H1U1E1R2F1D1G1NL2F1D1G1L2BM+6,0"#ЬЇЖ"9","BM+0,-1F1R2E1U4H1L2G1D1F1R2BM+4,3"#║ЎЖ",","BM+2,0NU1G1BM+6,-1"#▐°Ж"=","BM+1,-2R3BM-3,-2R3BM+4,4"$·Ж"%","BM+0,-5U1R1D1L1BM+0,+5U1E4U1BM+0,6L1U1R1D1BM+3,0"$2№Ж"/","U1E4U1BM+3,6"$M■Ж"-","BM+0,-3R4BM+3,3"$lЖ"A","U4E2F2D2NL4D2BM+3,0"$УЖ"B","U6R3F1D1G1NL3F1D1G1L3BM+7,0"$┴Ж"C","BM+1,-0H1U4E1R2F1BM+0,+4G1L2BM+6,0"$хЖ"D","NL1U6NL1R3F1D4G1L3BM+7,0"%Ж"E","NR4U3NR2U3R4BM+3,6"%
Ж"F","U3NR2U3R4BM+3,6"%PЖ"G","BM+1,-0H1U4E1R2F1BM+0,2NL1D2G1L2BM+6,0"%nЖ"H","U3NU3R4NU3D3BM+3,0"%ТЖ"I","BM+1,0R1NR1U6NL1R1BM+4,6"%╕Ж"J","BM+0,-1F1R1E1U5NL1R1BM+3,6"%╓Ж"K","U3NU3R1NE3F3BM+3,0"%яЖ"L","NU6R4U1BM+3,1"&Ж"M","U6F2ND1E2D6BM+3,0"&-Ж"N","U6F1D1F2D1F1NU6BM+3,0"&UЖ"O","BM+1,0H1U4E1R3F1D4G1L3BM+7,0"&sЖ"P","U6R3F1D1G1L3BM+7,3"&г Ж"Q","BM+1,0H1U4E1R2F1D3G1NH1NF1G1L1BM+6,0"&╞"Ж"R","U6R3F1D1G1L2NL1F3BM+3,0"&Ў$Ж"S","BM+0,-1F1R2E1U1H1L2H1U1E1R2F1BM+3,+5"'&Ж"T","BM+2,0U6NL2R2BM+3,6"'9(Ж"U","BM+0,-1NU5F1R2E1U5BM+3,6"'e*Ж"V","BM+0,-6D2F1D1F1ND1E1U1E1U2BM+3,6"'Г,Ж"W","NU6E2NU1F2U6BM+3,6"'з.Ж"X","U1E4U1BM-4,0D1F4D1BM+3,0"'╦0Ж"Y","BM+0,-6D2F2ND2E2U2BM+3,6"'ш2Ж"Z","NR4U1E4U1L4BM+7,6"(4Ж"?","BM+0,-5E1R2F1D1G2BM+0,2D1BM+5,-1"(76Ж"!","BM+2,1U1BM+0,-2U4BM+5,6"(Q8Ж".","BM+2,0U1BM+5,1"(u:Ж":","BM+2,-1U1BM+0,-2U1BM+5,5"(Ъ<Ж";","BM+1,1E1U1BM+0,-2U1BM+5,4"(╡>Ж"'","BM+1,-5E2BM+4,7"(╪@Ж"+","BM+2,-1U2NU2NL2R2BM+3,3"(ЎBЖ"(","BM+2,0H2U2E2BM+3,6")DЖ")","E2U2H2BM+6,6")N:Г)OpВ **** SUBROUTINE TO ACCESS SCREEN PRINT PROGRAM ****)guЕ SKIP│ 1 з Бе 6080)ЗzЮ:З @71,"PREP TAPE TO LOAD")йЗ @134,"SCREEN PRINT PROGRAM")╧ДЗ @260,"PRESS ANY KEY WHEN READY")щОR$│ Т: Е R$│"" з 6030*вЮ: З @104,"LOADING PROGRAM":З @170,"PLEASE WAIT"*/жХ 200,&H7D8F*KиЧM"GSPRP ",&H7D90м&H600*VкSKIP│1*gм╣  Г0│&H7D90*x╢╣  Г1│&H7D92*б└Ю: З @100,"PRESS NUMBER BY FUNCTION"*╕╩З @132,"TO PRINT:"*╒╘З @232,"1. NORMAL IMAGE"*є▐З @264,"2. INVERSE IMAGE"+шЗ @296,"3. DOUBLE SIZE"+)ЄR$│ Т: Е R$│"" з 6130+J№R│ Й(R$): Е R┤1 ▒ R▓3 з 6130+WЮ: ┐ 1,0+qИ R Бе 6200,6220,6240+~8X│ Г0(0)+ИBБе 80+ХLX│ Г1(0)+ЯVБе 80+ч`Т32181,2:Т32189,95:Т32206,4:Т32211,47:Т32341,48:Т32421,18:Т32422,18+ўjX│ Г0(м128),AtТ32181,1:Т32189,223:Т32206,2:Т32211,111:Т32341,24:Т32421,38:Т32422,13,K~Бе 80,jXВ **** VARIABLE TABLE ****,Уb:Г VAR         NAME         LINE NO.,╦l:Г A       1ST UNIT HOURS   180,1070,1100,1160,1570-n:Г B       EXPONENT         130,180,590,1070,1090,1160,1570-5p:Г BT$     BOTTOM TITLE     3520,5250-sr:Г C       COUNTER/EXPONENT 3030,3060,3080,3110,3160,3220-Ыt:Г C$      "COMMA"          80,3520-┼v:Г FCHAR$  FOUND CHARACTER  5540,5550-эx:Г E$      EQUAL SIGN       80,3520.Wz:Г H1      LOW UNIT HOURS   160,180,240,540,590,620,1050,1070,1150,1160,1550,1570,1620,2990,3080,3090.й|:ГH2       HIGH UNIT HOURS  170,210,570,590,630,1160,1590,2990,3100,3110,3120.х~:ГH1$      HOURS AS STRING  80,1050,1550,3080,3090,3510/А:ГH2$      HOURS AS STRING  80,1160,1570,3100,3520/PВ:ГHC       HOURS CUMULATIVE 1070,1090,1100,1120/uД:ГI        INCREMENT        1090/ЭЖ:ГJ        PAUSE LOOP       70,2500/╟И:ГLNGTH    TITLE LENGTH     5510,55500-К:ГP        PLOT POINT       3030,3040,3060,3070,3080,3090,3110,3120,3150,3160,3170,3180,3210,32200UМ:ГP$       PERCENT SIGN     80,35200zО:ГQ        CALC RESULT      10900оР:ГR        VAL(R$)          2080,2090,6140,61600ЎТ:ГR$       INKEY$ RESPONCE  2070,2080,2520,2530,2540,2550,6130,61401RФ:ГS        SLOPE            120,130,230,590,600,1020,1070,1140,1160,1520,1570,1610,30101|Ц:ГS$       SLOPE STRING     3010,35201жШ:ГSCHAR    COUNTER          5520,55601╨Ъ:ГSCHAR$   SEARCH CHARACTER 5540,55501°Ь:ГSLP$     "SLP" FOR BT$    80,35202 Ю:ГSP$      SPACE            80,35202Hа:ГT$       CHARACTER "T"    80,35202|в:ГTITLE$   TITLE FOR DRAW   5220,5250,5510,55503"д:ГTT$      TOP TITLE        7270 'U1       LOW UNIT NUMBER  140,150,180,240,520,530,590,620,1030,1040,1070,1090,1150,1160,1530,1540,1570,1620,2990,3020,3030,30403Сж:ГU2       HIGH UNIT NUMBER 190,210,550,560,590,630,1060,1090,1160,1560,1570,1590,2990,3020,3050,3060,30703╛и:ГU1$      LOW UNIT STRING  80,3010,35203ык:ГU2$      HIGH UNIT STRING 80,3080,35204м:ГX        EXCHANGE XPOINTS 2990,3010,30504?о:ГY        EXCHANGE YPOINTS 31004F╝:Г4^LВ **** FORMULA ****4ЙV:Г Y=AX^B, WHERE Y= UNKNOWN UNIT HOURS4╝`:Г               A= HOURS FOR FIRST UNIT BUILT4фj:Г               X= ANY UNIT NUMBER5t:Г               B= EXPONENT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
t
В**  COCO ROM HACKER0В**    MOUSE LOGOHВ**  (C)1984 J.J.B.`В**  V1.3 - 3/10/84fВж
Ю:╚ 0:└ 1:Х 8000:BL$│ б(32,128):МP$(20),PN$(20),P(20),S(20)JC│&HC000:Т Cл1,0:Т C,255:Т Cл1,4:Т C,0:C$(0)│"S":C$(1)│"BL":C$(2)│"FR":C$(3)│"X":C$(4)│"BR":C$(5)│"B":C$(6)│"R":C$(7)│"X":C$(8)│"FL":C$(9)│"L":C$(10)│"F":Бж600ЫЮ:З@4,"MOUSE LOGO COMMAND MODE":З@32,"(help=INSTRUCTIONS, end TO END)":ЗBL$;Ў(З@96,"  "C$:З" ":ЕF│1зF│0:ЕPN┤▓0зЗ@160,"PROCEDURES:":АI│1еPN:З О(PN$(I)л б(7,32),8);:Л k2З@128,;:Й C$:Е C$│"HELP"з500:ДЕ Ю(C$,"MAKE ")┤▓0з150:Д Е  Ю(C$,"DO ")з300:ДЕ Ю(C$,"LIST ")┤▓0з400:ДЕC$│"END"з700 Н<S│ Ю(C$," "):ЕS│0 з 80:ДS│Sм1 пFАI│0е10:ЕC$(I)│ О(C$,S)з90:ДЛ ╒PC$│"COMMAND NOT RECOGNIZED":Бе 40 №ZT│ Й( П(C$, З(C$)мS)):ЕT┤1▒T▓99з80!dТ C,I:АI│1е10нT:Л:Т C,0:Бе30!,М:Г**MAKE**!\ЦS│ Ю(C$," "):A$│ О( П(C$, З(C$)мS),8):C$│""!ЖаЮ:З"make procedure: ";A$:ЗBL$;:TMP│PN!╫кЕPN│0зPN│1:PN$(1)│A$:Бе200:Д А I│1еPN:ЕPN$(I)┤▓A$зЛ:PN│PNл1:PN$(PN)│A$:Бе200"┤З@128,"PROCEDURE EXISTS. REDO (Y/N)?";"J╛Бж800:Е Q$│"N"зC$│"REDO "лPN$(I)л" ABORTED":Бе 30 :Д PN│I:P$(PN)│"""h╚З@128,"  "C$:З" ":З@160,;"й╥Й C$:Е  Ю(C$,"END")┤▓0з260:ДS│ Ю(C$," "):ЕS│0 з 230 :Д S│Sм1"╠▄АI│0е10:ЕC$(I)│ О(C$,S)з240:ДЛ#цЕPN│0з290:ДАI│1еTMP:ЕC$│PN$(I)зP$(PN)│P$(PN)л Л(Iл127):Бе200:ДЛ:Бе290#>ЁT│ Й( П(C$, З(C$)мS)):ЕT┤1▒T▓99з290#c·P$(PN)│P$(PN)л Л(I)л Л(T):Бе 200#й
P$(PN)│P$(PN)л Л(255):З@327,"PROCEDURE COMPLETE":ЕTMP▓PN з PN│TMP#╤
З@483,"PRESS enter TO CONTINUE...";#·
C$│ Т:ЕC$│""з280:ДЕ К(C$)│13з30:Д280$ 
"C$│"COMMAND NOT RECOGNIZED":Бе200$N
,ЕPN│0з80:ДАI│1еPN:Е Ю(C$,PN$(I))│0зЛ:Бе80$n
6Ю:З@324,"EXECUTING ";PN$(I)$в
@S│1:A$│P$(I):S(1)│I:P│1:АI│2е20:P(I)│0:S(I)│0:Л$┼
JN│ К( Р(A$,P,1)):Е N│255 з 360%
TЕN┤128 з T│ К( Р(A$,Pл1,1)):Т C,N:АX│1е10нT:Л:ТC,0:P│Pл2:Бе330%b
^Е N▓147 з Т C,0:C$│"ERROR":Бе 30 :Д N│Nм127:P(S)│Pл1:S│Sл1:P│1:A$│P$(N):S(S)│N:Бе 330%Р
hS│Sм1:ЕS│0з30 :Д A$│P$(S(S)):P│P(S):Бе330%Я
Ж:Г**LIST**%╔
РS│ Ю(C$," "):A$│ П(C$, З(C$)мS):C$│""&	
ЪАI│1еPN:ЕA$┤▓PN$(I)зЛ:C$│"PROCEDURE NOT AVAILABLE":F│1:Бе30&C
дЮ:З"procedure: "A$:A$│P$(I):ЕA$│ Л(255)зЗ"/END":Бе270&д
оАI│1е З(A$)м1:Е К( Р(A$,I,1))┤127зЗC$( К( Р(A$,I,1)));:I│Iл1:З К( Р(A$,I,1)); Л(8)"/";:Бе450&┼
╕ЗPN$( К( Р(A$,I,1))м127)"/";&╪
┬Л:З"END":Бе270'║
ЇЮ:З"*********** H E L P ************MOVEMENT COMMAND SYNTAX= XX YY  XX=COMMAND, YY=INCREMENT (1-99) COMMANDS: F=FORWARD, B=BACK               R=RIGHT,L=LEFT,S=STOP NOTE: YOU CAN COMBINE B,L,R OR  F,L,R (EX: BL=BACK LEFT)"(И
■З:З"DIRECT COMMANDS: DO, MAKE, LIST SYNTAX: DO NAME DOES PROCEDURE  'NAME' (NAME <= 8 CHARACTERS).  MAKE NAME MAKES A PROCEDURE     'NAME' (END MAKE WITH 'END')    LIST NAME LISTS THE PROCEDURE.":Бе270(╦XЮ:З@11,"MOUSE LOGO":ЗBL$:З@130,"LOAD PROCEDURE FILE (Y/N)?..."(шbБж 800:Е Q$│"N"зР:ДБж900)0lЗ@264,"SEARCHING...":Щ"I",#м1,"LOGODATA":З@264,"LOADING...":Й#м1,PN)vvАI│1еPN:Й#м1,PN$(I),L:АJ│1еL:Й#м1,D:P$(I)│P$(I)л Л(D):ЛJ,I:Ъ:Бе30)╠╝Ю:З@11,"MOUSE LOGO":ЗBL$:З@130,"SAVE PROCEDURE FILE (Y/N)...":ЕPN│0зQ$│"N":ДБж800)э╞ЕQ$│"N"зQ$│"NO SAVE. ":Бе730*}╨Бж900:З@264,"SAVING...":Щ"O",#м1,"LOGODATA":З#м1,PN:АI│1еPN:X│ З(P$(I)):З#м1,PN$(I),X:АJ│1еX:D│ К( Р(P$(I),J,1)):З#м1,D,:ЛJ,I:Ъ:Q$│"DONE. "*═┌З@130,Q$;"PROGRAM ENDED.":З" ":З@258,"(ENTER GOTO 30 TO REENTER)":З@360,;:К*т Q$│ Т:ЕQ$│""з800*■*ЕQ$┤▓"Y"░Q$┤▓"N"з800:ДР+FДЗ@130,"PREPARE CASSETTE RECORDER":З@162,"PRESS enter WHEN READY..."+[ОQ$│ Т:ЕQ$│""з910+sШЕ  К(Q$)┤▓13з920:ДРоDВ**** SUBROUTINE TO CALCULATE Y-AXIS PLOT POINTS ****┼NЕ P ┤│ 100 Бе 3170ъXЕ P ▓ 100 з P│Pо10:C│Cл1:Бе 3150bЕ P│1 з ║ P│0:Е                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	8p  2	
2<
F  
PdZ_	Pd
nx
╚} ВЦМ

,С	ВЦак┤
╚╖├╣

Ї╝	╖├
─┼╞
╚╟	В╚╥▄
,
@ 
J
T
^

h 
r
Ї 
& 0:                 З                                                                д                                                       tЄu/u0u/                                                       u/u/u0     Ю                                                   	            є                                                                1                                                                ь                                                               ■                                            ~
F            Ў       tьpK                   uuбu┬u▀v vJvfvФv╤v╓vЎwwiwpwzwДwЛwХwЯwжwнw┤w╗w┼w╧w┘wуwэwўx
╛qЎоДМ  '	ОuDжHn╢№qЎГ¤qЎЖ
Ў╜x&№tуєtч¤tу№tхєtщ¤tхЖ
╬Ж╒╜u═╜u№Ж╛╛tч№tщ┐tщSC├
¤tч9╜uъ╜u№Жб╛tщ№tч┐tчSC├
¤tщ9№tч'+Ж~╖tы9Ж|╖tы9╢tщ+Ж^╖tы9ЖV╖tы9╛uМtЁ%ьДГ
'эДь¤qЎЖP0┐uЖFЖM╛uBМu%ьД¤qЎ0┐uBЖ*Ж1╜xg'$jД&жзАБ '
ьэБьэБ ю№tс├
¤tсЖ
№Ж№tс'3Г
¤tс╜xg'lДЖ
рМtр'Ж
зА№tуэБ№tхэБЖ зДЖ
─Ж
╦Ж
╞Ж
┴╛uМu'1$┐uьэбпдЖ
ЪЖ	
б╜w7&Ж╖tь9Ж
С╛uBМu@'"1"┐uBпд╜w7&Ж╖tь9╛uB1>┐uBЖ
eЖ

`╛qЎоОpмд%
'1% Ў┐qЎ9√9╜w7&Ж╖tь9Ж
3Ж
"╜x'ц Ї╜u═╜wi╜uъ9╜uъ╜wi╜u═9╜x&╦ ┘╜u═╜wД╜uъ9╜uъ╜wД╜u═9╜xg&░ ╛╜xg'й ╖№tс'в ░№tс&Ы й№tщ. Т Я№tщ- И Х№tч. ~ Л№tч- t Б№tщ/ j w№tщ, ` m№tч/ V c№tч, L Y№tч'+GVєtу╛tхОq°mД+гД&м%
м"√90 ф9№tщGVєtх╛tуОrrmд+г$&
мд%	м"" √91& ц9■tу╛tхОrь╞ сД'г
&м&√90 ы9╖tь╛qЎ0┐qЎ9╖tьоЯqЎ┐tэ9╜xg'╜┤Ї9╠╜┤Ї9Оtъ┐qЎ╜w7'Ж ╖tь ╜┤Ї9tь ї╜x'╜┤Ї9╠╜┤Ї9Оtъ┐qЎ╜w7'A4 ждБ '1% ЎМqЇ'&ьдэ%мф'1;ьдэ%ж"з'ь#э( ы№tээд 2b╜┤Ї9╠  ╜┤Ї2b9№tээд ╜┤Ї9  pN WORLD'N
дВ'Д
оВ PRINT N WITH RIGHT END AT AT SCREEN LOCATION LO'К
╕В'╖
┬N$│ И(N):L│ З(N$):З@LOмLл2, П(N$,Lм1);:Р'╜
╠В'▄
╓:ГPRINT N BEEPERS AT XX,YY'т
рВ(%
ъЕXX┤BX ▒XX▓BXл31▒YY┤BY ▒                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                	.qО?пО
жДза├ 
М?╣&яО
╞ў?├ь
эАЎ?├╦
ў?├┴ &ЁМ>$	╞ў?├жА тО
О?пжазД├ 
М?╣&я╛?гМ
%М
"z?в╛?гжВ┐?гО?пО_жДза├ 
М?╣&яО╞ў?├ьэДжВЎ?├╦
ў?├┴ &юМ@#	╞ў?├жВ рО@О?пжазД├ 
М?╣&я╛?гМ@%М_"|?в╛?гжА┐?г╢?мБ'Б'Б'
Б'Б' $╢?жБ&╛?йМБ&Ж╖?ж╛?й╜&╩╛?а╜'8~/╒╢?жБ'@Б ':J╖?жБ&	╛?й╜&ь~/╒╢?жБ&	╛?й╜&╩~/╒╢?жБ
&╛?й╜&Ж╛?а╜'8Ж ╖?жО?пОЮьДэб├ 
М?├&яО
╛╞ў?├ьэДжГЎ?├╦
ў?├┴&юМВ#	╞ў?├жГ рОАО?пьбэД├ 
М?├&я╛?гМА%МЯ"|?в|?в╛?гжБ┐?гО?пО
└жДза├ 
М?╣&яО
└╞ў?├ь
эАЎ?├╦
ў?├┴ &ЁМ■$	╞ў?├жА тО
▀О?пжазД├ 
М?╣&я╛?гМ
└%М
▀"z?в╛?гжВ┐?гО?пОжДза├ 
М?╣&яО?╞ў?├ьэДжВЎ?├╦
ў?├┴ &юМ#	╞ў?├жВ рОО?пжазД├ 
М?╣&я╛?гМ%М"|?в╛?гжА┐?г╢?мБ'Б'Б	'
Б'Б' $╢?еБ&╛?зМV&Ж╖?е╛?з╜&╩╛?а╜'8~1м╢?еБ '@Б':J╖?еБ&	╛?з╜&ь~1м╢?еБ&	╛?з╜&╩~1м╢?еБ
&╛?з╜&Ж╛?а╜'8Ж ╖?еО?пО@ьДэб├ 
М?├&яО@╞ў?├ьэБЎ?├╦
ў?├┴&ЁМ~$╞ў?├ фО^О?пьбэД├ 
М?├&я╛?гМ@%М_"z?вz?в╛?гжГ┐?г╛?гМ%М"╜'О?пОжДза├ 
М?╣&яО!╞ў?├ьэДжВЎ?├├
ў?├┴ &эМ#	╞ў?├жВ ▀ОО?пжазД├ 
М?╣&я╛?гМ%М"╛?а╜'8╛?гМ@%М_"╜'О?пО@жДза├ 
М?╣&яО@╞ў?├ь
эАЎ?├╦
ў?├┴ &ЁМ~$	╞ў?├жА тО_О?пжазД├ 
М?╣&я╛?гМ@%М_"╛?а╜'8╛?гМА%МЯ"╜'О?пОЮьДэб├ 
М?├&яО╛╞ў?├ьэДжГЎ?├╦
ў?├┴&юМВ#	╞ў?├жГ рОАО?пьбэД├ 
М?├&я╛?гМА%МЯ"╛?а╜'8╛?гМ└%М▀"╜'О?пО└ьДэб├ 
М?├&яО└╞ў?├ьэБЎ?├╦
ў?├┴&ЁМ■$╞ў?├ фО▐О?пьбэД├ 
М?├&я╛?гМ└%М▀"╛?а╜'8╛?гМ%М"╜'О?пОжДза├ 
М?╣&яО?╞ў?├ьэДжВЎ?├╦
ў?├┴ &юМ#	╞ў?├жВ рОО?пжазД├ 
М?╣&я╛?гМ%М"╛?а╜'8╛?гМ@%М_"╜'О?пО@жДза├ 
М?╣&яО@╞ў?├ь
эАЎ?├╦
ў?├┴ &ЁМ~$	╞ў?├жА тО_О?пжазД├ 
М?╣&я╛?гМ@%М_"╛?а╜'8№?й├Га%Г ¤?й№?зГГ@$├ ¤?з╢?лJБ&NЖ╖?ж╖?еЖ
Ў?м=├г
ЖUзД├ 
ЖUзД├ 
ЖUзД╢?мБ&|?c9Б&ОЎ┐?ч╜%o╢?мJ╖?мЖ ╖?л9 '"1"┐uBпд╜w7&Ж╖tь9╛uB1>┐uBЖ
eЖ

`╛qЎоОpмд%
'1% Ў┐qЎ9√9╜w7&Ж╖tь9Ж
3Ж
"╜x'ц Ї╜u═╜wi╜uъ9╜uъ╜wi╜u═9╜x&╦ ┘╜u═╜wД╜uъ9╜uъ╜wД╜u═9╜xg&░ ╛╜xg'й ╖№tс'в ░№tс&Ы й№tщ. Т Я№tщ- И Х№tч. ~ Л№tч- t Б№tщ/ j w№tщ, ` m№tч                                                                                                                                                                                                                                                                 [
Х 1000)ZU│ Ж(27)н256л Ж(28)м790ТЮ:З@40,"GRAPHIC/TEXT MIX":З@111,"by":З@165,"DR. CHARLES H. SANTEE":З:З б(32,"*"):З@235,"enter text";ц#W$│"":З@293, б(22,175);:З@325, Л(175);:З@346, Л(175):З@357, б(22,175):З@326,"";¤(X$│ Т:Е X$│"" з 40<Е X$│ Л(13) з 100yFЕ X$│ Л(8) з Е  З(W$)▓1 з W$│ О(W$, З(W$)м1):ЗX$;:Бе 40 :Д Е  З(W$)│1 з W$│"":ЗX$;:Бе 40 :Д Бе 40ЇPW$│W$лX$:Е  З(W$)▓20 з З@448,"text too long - try again";:╔"L2T2BAGFEDC":W$│"":З@448, б(31,32);:З@326, б(20,32);:Бе 35 ZЗX$;:Бе 40 ▒dЮ:З"SELECT NUMBER":З:З" 1. GRAPHIC SCREEN LOCATION":З:З" 2. TEXT SCREEN LOCATION":З:З" 3. ANIMATION SAMPLE":З:З" 4. TWENTY FIVE LINES":З:З" 5. TRY NEW TEXT":З:З" 6. END" яnX$│ Т:Е X$│"" з 110 :Д И  Й(X$) Бе 200,300,400,500,30,130 ·xБе 110!)ВЮ:З@163,"NOW TRY YOUR OWN PROGRAM":З:З:З:К!<╚З:З  б(32,"*")!З╥Й "HORIZONTAL LOCATION (0-255)";H:Й"VERTICAL LOCATION (0,183)";V:V│Vл4!─▄Е V▓187 ▒ V┤4 ▒ H▓255 ▒ H┤0 з З"invalid location":Бе 200!╓ц╚4,1:╝1:┐ 1,0!тЁБж 3000!ьїT$│W$"·Е V┤95 з V│183 :Д V│12"L ╚ 3,1:┴ 0,1:╗(8,Vм8)м(204,Vл6),╜,BF:┴ 1,1:╗(8,Vм8)м(204,Vл6),╜,B"z
H│16:W$│"PRESS ENTER TO CONTINUE":Бж 3000"Д
	W$│T$"г
X$│ Т:Е X$│"" з 270 :Д 100"│
,З б(32,"*")"∙
6Й"ENTER A LINE NUMBER (1-16)";LN:Й"ENTER A tab LOCATION (1-32)";T#3
@Е LN┤1 ▒ LN▓16 ▒ T┤1 ▒ T▓32 з З"invalid entry":Бе 300#I
JV│LNн12м6:H│Tн8м8#T
TБе 230#v
РW$│" "лW$л" ":LW│255м З(W$)н8#У
ХV│8:╚ 4,1:╝1:┐ 1,1:╚ 3,1#┤
Ъ┴ 2,1:╗(20,8)м(235,183),╜,BF#╙
дА H│0 е LW й 8:Бж 3000:Л H#▌
о┴ 0,1$
│А V│8 е 184:Бж 3000:╗(H,Vм5)м(255,Vм5),╜:Л$.
╕┴ 3,1:╗(60,28)м(195,163),╜,BF$M
╜┴ 0,1:╗(H,Vм5)м(255,Vм5),╜$k
┬А H│LW е 8 й м8:Бж 3000:Л$О
╟┴ 1,1:╗(100,48)м(145,143),╜,BF$Ш
╔┴ 0,1$╧
╠А V│184 е 8 й м1:Бж 3000:╗(0,Vл4)м(251мLW,Vл4),╜:Л$┌
╓Бе 250$э
Ї╚ 4,1:╝1:┐ 1,1%

■А V│4 е 192 й 8%Е 32мV1┤ З(W$) з AD│м1%.Е V1┤2 з AD│1%;V1│V1лAD%H&H│V1н8м4%T0Бж 3000%Z:Л%eDБе 250%Ф╕NX│ Б(Hо8)лVн32:VX│ Б(NXо256):HX│NXмVXн256%ц┬X│ Э(W$):Т ZU, Ж(X):Т ZUл1, Ж(Xл2):Т ZUл2, Ж(Xл3):Т ZUл3, Ж(188)лVX:Т ZUл4,HX%¤╠╣ Г│(ZUл5):F│ Г(0)&╓Р&Dр:Г******* MACHINE ROUTINE STARTS AFTER BASIC **************""YВоМ°оМўжН Ё'0А
зН шжаБ!%Бz"А! Ж?╞=3Н3╦╞Аж└CзЕ╦ ┴А&ї0
 ╩9      HHHPP°°PP xАpЁ ╚╚ @ШШxА`Аx    @@@ @  @ИP°PИ  °  00 °00И @АА0HHHHH0 `    ppИ0@А°pИ0Иp0PР°°АЁИppААЁИИp° @ААpИИpИИppИИpp    000  @ °°А@  @АpИ  pИhЪИp PИИ°ИИЁHHpHHЁpИАААИpЁHHHHHЁ°ААЁАА°°ААЁАААxААШИИxИИИ°ИИИp     pИpИРа└аРИАААААА°И╪ииИИИИ╚иШИИИ°ИИИИИ°ЁИИЁАААpИИИиРhЁИИЁаРИpИ@ Иp°      ИИИИИИpИИИPP  ИИИии╪ИИИP PИИИИP    ° @А°ТT8 @°@  ° 8TТ8xИxАААЁИИ░pИАИpxИИppИ°Аp0  °  `xИx0АА░╚ИИИ    pР`ААРа└аР@@@@@@`И╪иИИ░╚ИИИpИИИpЁИЁААpИИxШрАААpАpp °   0ИИИШhИИPP ИИи╪ИИP PИИИ°8° @° PRINTER DEPENDING ON PS){lВ)ЎvP│╠P(PP):Q│╠P(P):ЕQ│65535зР:ДR│ Ж(Pл2):ЕR┤8зЗ#PS,Q;C1$(R):Р:ДS│╠P(Pл3):ЕR│8зЗ#PS,Q;"DO";S;"TIMES":Р:ДЗ#PS,Q;C1$(R);S:Р)№АВ*