10 REM LOCOMOTION  BY IAN ADAM (C) 1988
20 REM PUBLISHED BY SOFTDISK PUBLISHING, INC.
30 :
40 IF A=950 THEN 950
50 IF A=1100 THEN 1100
60 IF PEEK(2054)>32 THEN 100
70 POKE 2054,66:IF PEEK(56)=128 THEN IF PEEK(32768)=76 THEN POKE 2054,85
90 :
100 POKE 56,67:CLR
110 IF PEEK(18432)=76 THEN IF PEEK(18433)=172 THEN 150
120 DF$="LOCO.CODE":GOSUB 1200:IF C THEN 100
130 SYS 65418:POKE 808,234:LOAD DF$,8,1
140 :
150 GOSUB 500
160 POKE 53280,6:POKE 53281,6
190 :
198 REM ***  MAIN MENU  ***
199 :
200 SYS VW+6:POKE 646,TC:POKE FR,TB:POKE FR+1,TB
210 PRINT "[147][158]  >>>>> [204]OCOMOTION <<<<<   BY [201]AN [193]DAM  "
220 PRINT "   3-[196] [208]LOTTING OF [215]IRE-[205]ODEL [198]IGURES"
230 PRINT "[152] [208]UBLISHED BY [211]OFTDISK [208]UBLISHING, [201]NC."
240 PRINTTAB(13)"[158][212]HE [205]AIN [205]ENU:"
250 PRINTTAB(9)"[159]1  [201]NSTRUCTIONS"
260 PRINTTAB(9)"2  [204]OAD [198]IGURE FROM [196]ISK"
270 PRINTTAB(9)"3  [195]REATE [206]EW [198]IGURE"
280 PRINTTAB(9)"4  [197]DIT/[193]DD TO [198]IGURE"
290 PRINTTAB(9)"5  [214]IEW [195]URRENT [198]IGURE"
300 PRINTTAB(9)"6  [211]AVE [198]IGURE TO [196]ISK"
310 PRINTTAB(9)"7  [208]RINT [198]IGURE"
320 PRINTTAB(9)"8  [210]EVIEW [211]AVED [201]MAGES"
330 PRINTTAB(9)"9  [195]HANGE [195]OLORS"
340 PRINTTAB(9)"0  [197]ND[158]"
350 IF NP THEN PRINT "[198]IGURE " NF$ " HAS" NP "POINTS":PRINT "AND" NL "LINES.[158]"
360 :
370 PRINT"  ";:GOSUB 790:C=A:IF A=. THEN IF A$<>"0" THEN PRINT"[145][145]":GOTO 370
375 PRINT A$:IF A=9 THEN 420
380 IFA>3ANDNP=0THENPRINTTAB(5)"[206]O FIGURE!  [208]RESS [211]PACEBAR *[157]";:GOSUB1400:GOTO200
390 IF A=1 OR A>3 OR NP=. THEN 420
400 PRINT "[145]  [204]OSS OF [196]ATA: [193]RE [217]OU [211]URE ([217]/[206]) ";:GOSUB 800:IF A$<"Y" THEN 200
410 :
420 ON C+1 GOSUB 900, 1500, 1000, 2000, 3000, 6000, 7000, 8000, 9000, 10000
430 GOTO 200
440 :
480 : * DEFINE VARIABLES *
490 :
500 ED=18432:PL=ED+3:VW=ED+6
510 XS=ED+21:XF=XS+3:XX=XF+3:CB=XX+3
520 RP=19960:RO=RP+1:HT=RO+1
530 X1=20992:Y1=21248:Z1=21504
540 LI=19968:LR=LI+1:EN=X1-4
550 FOR I=RP TO LR:POKE I,.:NEXT
560 RA=18647:B=255:RS=218:Z$=CHR$(0):KB=198:BB=256:SA=5:W=54276
570 REM POKE 808,225
580 SYS XS-3:XM=PEEK(251)*8
590 TC=7:TB=6:GC=13:GB=11:POKE 18515,219
600 POKE W-3,30:POKE W+1,18:POKE W+2,.:POKE W,.:POKE W+7,.:POKE W+14,.:POKE W+20,15
610 FR=53280:RETURN
670 :
680 : * INPUT ROUTINES *
690 :
700 N$="":IN=.:PRINT">";
710 PRINT"[164][157]";
720 GET A$:IF A$="" THEN 720
730 IF A$=CHR$(13) THEN PRINT" [157]";:RETURN
740 IF A$=CHR$(20) OR A$="[157]" THEN 775
745 IF IN=12 THEN 720
750 IF A$<" " OR A$>"[218]" THEN 720
755 IF A$=CHR$(34) THEN 720
758 IF A$>"Z" AND A$<"[193]" THEN 720
760 PRINT A$;:N$=N$+A$:IN=IN+1
765 IF IN>12 THEN 720
770 GOTO 710
775 IF IN THEN IN=IN-1:N$=LEFT$(N$,IN):PRINT CHR$(20);
780 GOTO 710
785 :
790 PRINT "[217]OUR [195]HOICE ";
800 POKE 207,.:POKE 206,32:POKE 204,PEEK(KB)
810 GET A$:IF A$="" THEN 810
820 POKE 204,1:A=VAL(A$):PRINT " [157]";
830 :
850 POKE W,33:IN=9^9:POKE W,32:RETURN
870 :
880 : * EXIT PROGRAM *
890 :
900 POKE 808,237:SYS VW+6
910 IF PEEK(2054)=66 THEN POKE 2054,32:POKE 56,160:CLR:SYS 65126:END
920 :
930 CLR:LOAD"UPT.REBOOT",8
940 SYS 64738
990 :
1000 PRINT "[147][204]OAD FROM [196]ISK"
1010 :
1020 GOSUB 5400
1025 IF N$="" THEN RETURN
1030 GOSUB 1200
1040 IF C THEN RETURN
1050 A=1100:LOAD DF$,8,1
1060 :
1100 NP=PEEK(RP):NL=-1
1110 FOR I=LI TO X1:IF PEEK(I) THEN NEXT
1120 NL=NL+1:IF PEEK(I+1) THEN NEXT
1130 LR=I+1:NF$=N$:GOTO 200
1140 :
1180 : * CHECK DISK FILE: *
1190 :
1200 OPEN 15,8,15,"I0"
1210 OPEN 2,8,2,DF$
1220 INPUT#15,A$,B$:C=VAL(A$)
1230 CLOSE 2:CLOSE 15:IF C<20 THEN C=.:RETURN
1240 PRINT:PRINT "[147][158][208]ROBLEM: "B$
1250 PRINT:PRINTTAB(6)"[208]LEASE CHECK THE DISK DRIVE."
1260 IF PEEK(2054) THEN PRINTTAB(4)"[208]ERHAPS IT'S ON THE OTHER SIDE?";
1270 GOSUB 800:PRINT"[147]";:RETURN
1290 :
1300 POKE 198,0
1310 GET A$:IF A$<>" " THEN 1310
1320 POKE W,33:IN=9^9:POKE W,32:RETURN
1400 POKE 198,0
1410 POKE 207,.:POKE 206,32:POKE 204,PEEK(KB)
1420 GET A$:IF A$<>" " THEN 1410
1430 POKE W,33:IN=9^9:POKE W,32
1440 RETURN
1500 PRINT "[147]"TAB(14)"[201]NSTRUCTIONS"
1510 PRINT TAB(8)"[211]CREEN OR [208]RINTER [211]/[208] ";
1515 GOSUB 800:IF A$<>"S" AND A$<>"P" THEN 1515
1520 P=-(A$="P"):PP=1
1530 :
1540 DF$="LOCO.HELP":GOSUB 1200:IF C THEN RETURN
1550 OPEN 1,8,8,DF$+",P,R"
1560 POKE 53281,.:IF P=. THEN 1600
1570 OPEN 4,4,7:POKE 781,4:SYS 65481
1580 IF ST THEN CLOSE 4:GOSUB 850:PRINT "[208]LEASE CHECK THE PRINTER!":P=.:GOTO 1850
1585 PRINT#4:PRINT:PRINTTAB(7)"[208]RESS AND HOLD [198]7 TO QUIT."
1590 PRINT#4:PRINT#4, "               [201]NSTRUCTIONS FOR [204]OCOMOTION:      [208]AGE" PP
1595 PRINT#4:PRINT#4
1600 IF P=. THEN PRINT "[147][150]  [204]OCOMOTION   [208]RESS [211]PACEBAR  [198]7 [209]UIT  "
1610 INPUT#1,T$:IF T$="P" THEN 1800
1620 IF LEFT$(T$,1)="_" THEN POKE 646,VAL(MID$(T$,2)):GOTO 1610
1630 IF T$="Q" THEN 1850
1640 IF P=. THEN PRINT T$:GOTO 1610
1650 A$="               "
1660 IF LEFT$(T$,1)="[160]" THEN A$=A$+" ":T$=MID$(T$,2):GOTO 1660
1670 PRINT#4, A$ T$:GOTO 1610
1790 :
1800 IF P THEN 1810
1805 PRINT "":GOSUB 810:IF A$<>" " AND A$<>"[136]" THEN 1805
1807 GOTO 1830
1810 PRINT#4:PRINT#4:GET A$:P=P+1
1820 IF P=3 THEN P=1:PP=PP+1:PRINT#4,CHR$(12):IF A$<"[136]" THEN 1590
1830 IF A$<"[136]" THEN 1600
1840 :
1850 IF P=. THEN IF A$<>"[136]" THEN GOSUB 810
1855 IF P=. THEN IF A$<>" " AND A$<>"[136]" THEN 1850
1860 IF P THEN PRINT#4,CHR$(12):CLOSE 4
1870 CLOSE 1:RETURN
1990 :
2000 PRINT "[147][195]REATE [198]ILE"
2010 :
2020 NP=.:NL=.:LR=LI+1:NF$="":X=.:Y=.:Z=.
2030 GOSUB 5380
2040 PRINT "[147][195]REATING [198]ILE " NF$
2050 PRINT "[211]TART BY [195]REATING [208]OINTS IN [211]PACE,"
2060 PRINT "THEN [195]ONNECT WITH [204]INES."
2070 GOSUB 3200
2990 :
3000 PRINT "[147]":PRINT TAB(10)"[158] >>> [197]DIT [205]ENU <<< ":PRINT:GOSUB 850
3010 PRINTTAB(9)"[159]1  [193]DD [208]OINTS"
3020 PRINTTAB(9)"2  [205]ODIFY [208]OINTS"
3030 PRINTTAB(9)"3  [193]DD [204]INES"
3040 PRINTTAB(9)"4  [205]ODIFY A [204]INE"
3050 PRINTTAB(9)"5  [211]HIFT/[211]CALE [207]BJECT"
3060 PRINTTAB(9)"6  [197]RASE ALL [204]INES"
3070 PRINTTAB(9)"7  [195]HANGE [206]AME"
3080 PRINTTAB(9)"8  [204]IST [208]OINTS"
3090 PRINTTAB(9)"9  [204]IST [204]INES"
3100 PRINTTAB(9)"0  [205]AIN [205]ENU[158]"
3110 PRINT:POKE RA,48
3120 GOSUB 790:IF A$="0" THEN RETURN
3122 IF A=0 THEN PRINT:PRINT"[145][145]";:GOTO 3120
3125 PRINT A:PRINT:C=A
3130 IF A>7 THENSYS VW+6:PRINT "[211]CREEN OR [208]RINTER [211]/[208] ";:GOSUB 800:PRINT A$:GOTO3150
3140 SYS VW+9
3150 ON C GOSUB 3200, 3600, 3800, 4000, 4200, 4900, 5380, 5000, 5200
3160 GOTO 3000
3170 :
3200 PRINT:PRINT "[212]HERE MAY BE UP TO 255 POINTS,"
3210 PRINT "[216], [217], & HEIGHT IN THE RANGE 0 TO 255."
3220 POKE RA,210
3230 PRINT "[208]RESS [210][197][212][213][210][206] TO [203]EEP [211]AME AS [204]AST [208]OINT"
3240 IF NP>254 THEN PRINT "[194]UFFER [198]ULL: [208]RESS [193] [203]EY.":GOTO 800
3250 :
3260 P=NP+1:PRINT "[208]OINT #" P
3270 GOSUB 3400
3280 IF X<. OR X>B THEN RETURN
3290 NP=P:POKE RP,NP
3300 SYS ED:GOTO 3220
3310 :
3400 PRINT:PRINT TAB(25) ABS(X)
3410 PRINT"[216] [196]IMENSION (-1 TO [209]UIT)":GOSUB 700:IF N$="" THEN 3420
3415 X=VAL(N$)
3420 IF X<. OR X>B THEN RETURN
3430 POKE X1+P,X
3440 :
3450 PRINT:PRINT TAB(18) Y
3460 PRINT"[217] [196]IMENSION":GOSUB 700:IF N$="" THEN 3470
3465 Y=VAL(N$)
3470 POKE Y1+P,Y AND B
3480 :
3490 PRINT:PRINT TAB(10) Z
3500 PRINT"[200]EIGHT":GOSUB 700:IF N$="" THEN 3510
3505 Z=VAL(N$)
3510 POKE Z1+P,Z AND B
3520 :
3530 PRINT:RETURN
3540 :
3600 PRINT "[208]RESS [210][197][212][213][210][206] AT ANY [208]ROMPT TO"
3610 PRINT "[203]EEP THE [211]AME [214]ALUE.":PRINT
3620 POKE RA,RS:PRINT"[208]OINT # TO [197]DIT (0 TO [209]UIT)":GOSUB 700:P=VAL(N$)
3630 IF P<1 OR P>NP THEN RETURN
3640 X=PEEK(X1+P)
3650 Y=PEEK(Y1+P)
3660 Z=PEEK(Z1+P)
3670 GOSUB 3400
3680 SYS ED:GOTO 3620
3690 :
3800 PRINT:PRINT "[197]ACH LINE CONNECTS SEVERAL POINTS."
3810 PRINT "[197]NTER POINT #0 TO QUIT."
3820 :
3830 IF LR>EN THEN PRINT "[194]UFFER [198]ULL":GOTO 800
3840 N=NL+1
3850 PRINT "[204]INE #" N
3860 PRINT "[211]TART AT POINT # ";:GOSUB 700:P=VAL(N$)
3870 IF P<1 OR P>NP THEN RETURN
3880 POKE LR,P:LR=LR+1
3890 POKE LR,.:POKE LR+1,.
3900 SYS ED:POKE RA,RS
3910 IF LR>EN THEN 3830
3920 :
3930 PRINT:PRINT "[206]EXT POINT (0 TO [209]UIT) ";:GOSUB 700:P=VAL(N$)
3940 IF P>0 AND P<=NP THEN 3880
3950 :
3960 LR=LR+1
3970 NL=N:GOTO 3800
3980 :
4000 PRINT "[193]NY POINT IN A LINE CAN BE CHANGED,":REM EDIT LINE
4010 PRINT "BUT THE NUMBER OF POINTS CANNOT."
4020 PRINT "[195]HANGE WHICH LINE (0 TO QUIT) ";:GOSUB 700:N=VAL(N$):PRINT:PRINT
4030 IF N<1 OR N>NL THEN RETURN
4040 :
4050 L=.
4060 FOR I=LI TO LR:REM FIND IT
4070 IF PEEK(I) THEN NEXT
4080 L=L+1:IF L<N THEN NEXT
4090 :
4100 FOR I=I+1 TO LR
4110 IF PEEK(I)=. THEN RETURN
4120 PRINT TAB(8) PEEK(I)
4130 PRINT"[145][208]OINT #":GOSUB 700:P=VAL(N$)
4140 IF P<1 OR P>NP THEN 4120
4150 POKE I,P
4160 SYS ED:POKE RA,RS
4170 NEXT:RETURN
4180 :
4200 PRINT"[147]     >>> [211]HIFT / [211]CALE [207]BJECT <<< "
4205 PRINTTAB(6)"[159]1 [211]HIFT [208]OSITION"
4210 PRINTTAB(6)"2 [195]HANGE [211]CALE"
4220 PRINTTAB(6)"3 [206]EW [214]IEWPOINT"
4225 PRINTTAB(6)"0 [193]BORT[158]"
4230 GOSUB 790:IF A<4 THEN 4240
4235 PRINT"[145][145]":GOTO 4230
4240 IF A$="0" THEN RETURN
4242 IF A=0 THEN 4235
4245 ON A GOTO 4400, 4600, 4700
4250 :
4400 PRINT:PRINTTAB(6)"[159]1 [205]OVE [213]P"
4410 PRINTTAB(6)"2 [205]OVE [196]OWN"
4420 PRINTTAB(6)"3 [205]OVE [204]EFT"
4430 PRINTTAB(6)"4 [205]OVE [210]IGHT"
4435 PRINTTAB(6)"0 [193]BORT[158]"
4440 GOSUB 790
4445 IF A>4 THEN PRINT"[145][145]":GOTO 4440
4450 IF A$="0" THEN 4200
4455 IF A=0 THEN PRINT"[145][145]":GOTO 4440
4460 PRINT:PRINT "[158][205]OVE HOW FAR ":GOSUB 700:N=VAL(N$)
4470 IF A=2 OR A=3 THEN N=-N
4480 IF A<3 THEN A=Z1:GOTO 4530
4490 :
4500 PRINT:PRINT "[159][211]HIFT ON [216] OR [217] [193]XIS ([216]/[217]) ";:GOSUB 800:PRINT A$
4510 A=X1:IF A$>"X" THEN A=Y1
4520 :
4530 FOR I=A TO A+NP
4540 POKE I, PEEK(I)+N AND B
4550 NEXT:RETURN
4560 :
4600 PRINT:PRINT"[194]Y WHAT FACTOR?  [198]OR EXAMPLE, 1.5 TO"
4610 PRINT "[197]NLARGE BY HALF; 0.8 TO SHRINK BY 20%."
4620 PRINT "[211]CALE FACTOR ";:GOSUB 700:N=VAL(N$)
4630 :
4640 PRINT "":PRINT "[207]NE [205]OMENT"
4650 FOR I=Y1 TO Y1+NP
4660 POKE I-BB,PEEK(I-BB)*N AND B
4665 POKE I,PEEK(I)*N AND B
4670 POKE I+BB,PEEK(I+BB)*N AND B
4680 NEXT:GOTO 4710
4690 :
4700 GOSUB 4720
4710 SYS ED:FOR I=1 TO 1E3:I=I+1E3*PEEK(KB):NEXT:GET A$:RETURN
4720 PRINT:PRINTDN$"[211]ET ANGLES IN 5-DEGREE MULTIPLES,"
4730 PRINT "0 TO +360 DEGREES."
4740 PRINT "[208]RESS RETURN TO KEEP THE SAME."
4750 A=PEEK(RO)*5:C=PEEK(HT)*5
4760 PRINT "[214]IEWING ANGLE ON GROUND IS" A "DEGREES"
4770 PRINT"[206]EW ANGLE ";:GOSUB700:IF N$<>"" THEN A=ABS(VAL(N$)/5)
4780 PRINT DN$"[200]EIGHT ABOVE GROUND IS" C "DEGREES"
4790 PRINT"[206]EW HEIGHT":GOSUB 700:IF N$<>"" THEN C=ABS(VAL(N$)/5)
4800 IF A>72 THEN A=A-72:GOTO4800
4810 IF C>72 THEN C=C-72:GOTO4810
4820 POKE RO,A:POKE HT,C:RETURN
4830 :
4900 PRINT "  [204]OSE ALL [204]INES: [193]RE [217]OU [211]URE?  ([217]/[206])";:GOSUB 800:PRINT A$
4910 IF A$<"Y" THEN RETURN
4920 LR=LI+1:NL=0
4930 POKE LR,0:POKE LR+1,0:RETURN
4940 :
5000 I=1:L=22:P=3
5010 IF A$="P" THEN L=NP-1:P=4
5020 OPEN 4,P:CMD 4
5030 IF P=3 THEN PRINT"[147]";
5040 :
5050 PRINT "[208]OINT"," [216]"," [217]","[200]EIGHT"
5060 FOR I=I TO I+L
5070 IF I>NP THEN 5100
5080 PRINT I,PEEK(X1+I),PEEK(Y1+I),PEEK(Z1+I)
5090 NEXT
5100 IF P=3 THEN WAIT KB,7:GET A$
5110 IF I>NP THEN PRINT#4:CLOSE 4:RETURN
5115 IF P=3 THEN PRINT"[147]";
5120 GOTO 5050
5130 :
5200 PRINT "[147][208]RESS [198]7 TO [209]UIT"
5205 I=LI+1:P=3
5210 IF A$="P" THEN P=4
5220 OPEN 4,P:PRINT#4, "LINES FOR " NF$
5230 :
5240 FOR L=1 TO NL
5250 PRINT#4:PRINT#4, "LINE #" L "POINTS:"
5260 FOR I=I TO EN
5270 IF PEEK(I) THEN PRINT#4, PEEK(I);:NEXT
5280 :
5290 I=I+1:PRINT#4,CHR$(13)
5300 IF P=4 THEN IF PEEK(KB) THEN GET A$
5310 IF P=3 THEN PRINT "[208]RESS A KEY";:GOSUB 800:PRINT
5315 IF A$="[136]" THEN L=NL:PRINT#4:PRINT#4, "OUTPUT TERMINATED"
5320 NEXT L:CLOSE 4:POKE KB,.:RETURN
5330 :
5360 : * ENTER NAME, DIRECTORY *
5370 :
5380 GOSUB 5400:NF$=N$:RETURN
5390 :
5400 POKE 646,TC:PRINT "[197]NTER NAME OF FIGURE, UP TO 12 LETTERS,"
5410 PRINT "OR ENTER $ TO SEE THE DIRECTORY:"
5420 :
5430 GOSUB 700:GOSUB 850:IF N$="" THEN N$=NF$
5440 IF LEFT$(N$,4)="LOC." THEN N$=MID$(N$,5)
5460 IF N$<>"$" THEN DF$="LOC."+LEFT$(N$,12):PRINT:PRINT:RETURN
5490 :
5500 DF$="$0:LOC.*":GOSUB 1200:IF C THEN 5400
5510 PRINT "[157][208]RESS ANY KEY TO QUIT..."
5520 OPEN 1,8,0,DF$:GET#1, A$,A$
5530 GET#1, A$,A$:IF A$="" THEN CLOSE 1:PRINT:PRINT:GOTO 5400
5540 GET#1, A$,B$:A=ASC(A$+Z$)+ASC(B$+Z$)*BB:PRINT:PRINT A;
5550 FOR I=1 TO 28:GET#1,A$:IF A$>"" THEN PRINT A$;:NEXT
5560 IF PEEK(KB) THEN CLOSE 1:PRINT:PRINT:POKE KB,.:GOTO 5400
5570 GOTO 5530
5590 :
6000 DN$="[147]"
6002 POKE 646,TC
6005 POKE53265,11:PRINTDN$">> [214]IEWING [205]ODE <<[146] [193]NGLES:"
6010 PRINT "[195][210][211][210], [200]OME =[205]OVE.  [195][212][210][204]";:IF XM THEN PRINT"    [211]=STASH#" XI;
6020 PRINT:PRINT "[198]1: [200]IDDEN [204]INES   [198]3: [197]NTER [193]NGLES"
6030 PRINT "[198]5: [200]OLD [211]CREEN    [198]7: [205]AIN [205]ENU";
6040 R=29:L=157:U=145:D=17:S=1:C=72:E=5:F=21:G=E+F
6050 SYS VW+9:SYS PL
6060 FOR I=1 TO 1E9:SYS VW
6070 SYS CB,F,G:PRINT PEEK(RO)*E "[157] " PEEK(HT)*E "[157]    "
6080 FOR J=0 TO 9 STEP .02:GET A$:A=ASC(A$+Z$):J=J+A:NEXT
6090 IF A=R THEN H=PEEK(RO)+1:POKE RO,H+C*(H>=C):NEXT
6100 IF A=L THEN H=PEEK(RO)-1:POKE RO,H-C*(H<.):NEXT
6110 IF A=U THEN H=PEEK(HT)+1:POKE HT,H+C*(H>=C):NEXT
6120 IF A=D THEN H=PEEK(HT)-1:POKE HT,H-C*(H<.):NEXT
6130 IF A=. THEN POKE RA,RS*S:GOTO 6080
6140 IF A=19 THEN POKE RO,0:POKE HT,0
6150 IF A=133 THEN POKE HT+1,B-PEEK(HT+1)
6160 IF A=134 THEN POKE RA,RS-8:PRINT "":GOSUB 4720:GOTO 6000
6170 IF A=135 THEN S=1-S
6180 IF A=136 THEN RETURN
6190 IF A-83 THEN POKE RA,RS:NEXT:RETURN
6200 IF XM=. THEN NEXT:RETURN
6210 POKE FR,TB+4
6220 XI=XI-(XI<XM):PRINT TAB(35) XI
6230 SYS XS,XI-1:IF XI=XM THEN GOSUB 850
6240 POKE FR,TB:GOTO 6070
6250 :
7000 PRINT "[147][211]AVE TO DISK"
7010 :
7020 PRINT "[208]RESS [210][197][212][213][210][206] FOR NAME: "NF$
7030 GOSUB 5400
7035 IF N$="" THEN RETURN
7040 D$="0:"+DF$+",P,W"
7050 OPEN 2,8,15
7060 CLOSE 1:OPEN 1,8,8,D$
7070 INPUT#2,A$,B$:A=VAL(A$)
7080 IF A<20 THEN 7200
7090 :
7100 GOSUB 850:PRINT "[208]ROBLEM: "B$:CLOSE 2
7110 GOSUB 850
7120 IF A-63 THEN CLOSE 1:PRINT "[208]RESS A [203]EY ";:GOTO 800:(NO FILE OPENED)
7130 PRINT "[210]EPLACE [197]XISTING [198]ILE [217]/[206] ";:GOSUB 800:PRINT A$
7140 IF A$<"Y" THEN CLOSE 1:RETURN
7150 OPEN 2,8,15,"S0:"+DF$:GOTO 7060
7160 :
7200 PRINT "[211]AVING FILE "N$
7210 PRINT#1, CHR$(248) CHR$(77);
7220 FOR I=RP TO Z1+B
7230 PRINT#1, CHR$(PEEK(I));
7240 NEXT
7250 CLOSE 1:CLOSE 2:RETURN
7260 :
7980 : * PRINT OBJECT *
7990 :
8000 PRINT "[147][212]HE PROGRAM CONTAINS PRINTER CODES"
8010 PRINT "FOR AN [197]PSON-COMPATIBLE PRINTER."
8020 PRINT "[212]HE SECONDARY ADDRESS MUST BE SET SO"
8030 PRINT "THAT YOUR INTERFACE IS IN TRANSPARENT   GRAPHICS MODE, WITH NO LINEFEED."
8040 PRINT "[208]LEASE ENTER YOUR SECONDARY ADDRESS:"
8050 PRINT " " SA "[145]":GOSUB 850:GOSUB700:SA=VAL(N$) AND B
8070 POKE 19958,SA:REM 2ND ADDRESS
8080 PRINT "[208]RINTING IMAGE FOR " NF$
8090 :
8100 SYS VW+3:OPEN 4,4
8110 PRINT#4, CHR$(14) ">>> LOCOMOTION <<<   " NF$:PRINT#4
8120 PRINT#4, "GROUND ANGLE:" 5*PEEK(RO)
8130 PRINT#4, "ELEVATION:" 5*PEEK(HT)
8140 PRINT#4,CHR$(10)CHR$(12):CLOSE 4:RETURN
8970 :
8980 : * EXPANSION RAM MENU *
8990 :
9000 POKE 53281,TB
9010 PRINT "[147][158]>>> [193]NIMATION [205]ENU FOR [197]XPANSION [210][193][205] <<<"
9020 PRINTTAB(9)"[159]1  [193]NIMATE [201]MAGES"
9030 PRINTTAB(9)"2  [211]ET [208]ARAMETERS"
9040 PRINTTAB(9)"3  [210]APID [201]MAGES"
9050 PRINTTAB(9)"4  [211]INGLE-[211]TEP"
9060 PRINTTAB(9)"5  [214]IEW [207]NE [201]MAGE"
9070 PRINTTAB(9)"6  [195]LEAR [205]EMORY"
9080 PRINTTAB(9)"0  [205]AIN [205]ENU"
9090 SYS VW+6:POKE 2,96:POKE RA-37,198
9100 :
9110 PRINT "[158][197]XPANSION [210][193][205]:" XM*8 "[203] [194]YTES."
9120 PRINT "[210]OOM FOR" XM "IMAGES IN TOTAL."
9130 IF XM=. THEN PRINT "[212]HIS FUNCTION REQUIRES EXPANSION [210][193][205]...
9135 [139] XM[178]. [167][153][163]13)"(null)RESS (null)PACEBAR";:[137]1300
9140 [153] "(null)IEW CURRENT FIGURE FROM MAIN MENU,"
9150 [153] "IN ORDER TO STASH IMAGES IN MEMORY."
9160 [153] "(null)OU HAVE PUT" XI "IMAGES IN MEMORY."
9170 [139] XI[178]. [167] [153] [163]7)"(null)O IMAGES: (null)RESS (null)PACEBAR";:[137] 1300
9190 :
9200 [141] 790:[153] A
9210 [139] A[178]. [167] [142]
9220 C[178]XI[171]1
9230 [145] A [141] 9300, 9400, 9520, 9600, 9700, 9800:[137] 9000
9240 :
9300 [141] 9900
9310 [139] AE[178]. [176] AE[177][178]XI [167] AE[178]XI[171]1
9320 [129] K[178]. [164] 999
9330 [129] I[178]AS [164] AE:[158] XF,I
9340 [129] J[178]1 [164] DL:[130]
9350 [139] [194](KB) [167] [161] A$:[142]
9360 [130] I:[129] J[178]1 [164] PS:[130]
9370 [130] K:[142]
9380 :
9400 [153] "LOADATNNIMATION PARAMETERS:"
9410 [153] "(null)TART WITH WHICH IMAGE:"
9420 [153] " " 1 "ON":[141]700:AS[178][197](N$)[171]1
9430 [139] AS[179]. [176] AS[177][178]XI [167] 9400
9440 [153] "ATNND END WITH..."
9450 [153] " " XI "ON":[141]700:AE[178][197](N$)[171]1
9460 [139] AE[179]AS [176] AE[177][178]XI [167] 9400
9470 [153] "STR$ELAY BETWEEN IMAGES IN MICROSECONDS:"
9480 [153] " " DL "ON":[141]700:DL[178][197](N$)
9490 [153] "(null)AUSE BEFORE LOOPING, IN MICROSECONDS:"
9500 [153] " " PS "ON":[141]700:PS[178][197](N$):[142]
9510 :
9520 [153] "LOAD(null)APID CYCLE.  (null)RESS ANY KEY TO EXIT."
9530 [153]:[153] [163]26) XI "ON":[153]"(null)UMBER OF IMAGES TO CYCLE":[141] 700
9540 A[178][197](N$) [175] B:[139] A[179]1 [176] A[177]XI [167] [142]
9550 [151] 19959,A
9560 [141] 9900:[158] XX:[161] A$:[142]
9570 :
9600 [158] VW[170]9:[151] RA,242:[151] 646,GB
9610 [153] "LOAD":[151] 646,TC:[151] FR[170]1,GB
9620 [129] K[178]. [164] 999
9630 [129] I[178]. [164] C:[158] XF,I
9640 [158] CB,24:[153] "#" I[170]1 "CMD (null)RESS ANY KEY... (null)VAL(null)(null)(null)(null) TO (null)UIT ";
9650 [146] KB,7:[161] A$
9660 [139] A$[178][199](13) [167] [142]
9670 [130]:[151] RA,0:I[178]3[174]3:[130] K:[142]
9680 :
9700 [158] VW[170]9:[151] FR[170]1,GB:A[178]99
9710 [151] 646,GB:[153]"LOAD":[151] 646,TC:[158] CB,23
9720 [153] "(null)HE IMAGES ARE 1 TO" XI "CMD;";:[139] A[179]99 [167] [153] " THIS IS #" A;
9730 [153]:[153] "(null)HICH IMAGE (0 TO QUIT) ";:[141] 700:A[178][197](N$)
9740 [139] A[179]1 [176] A[177]XI [167] [142]
9750 [158] XF,A[171]1
9760 [151] RA,234:[137] 9710
9770 :
9800 [141] 850:[153]:[153] "(null)OSS OF" XI "IMAGES: ARE YOU SURE ";:[141] 800
9810 [139] A$[178]"Y" [167] XI[178]0
9820 [142]
9830 :
9880 : [172] HIGH[171]RES [172]
9890 :
9900 [151] 56576,198:[151] 53265,59:[151] 53272,29:[142]
9910 :
10000 [151] 646,TC:[151] FR,TB:[151] FR[170]1,TB
10010 [151] 18515,GC[172]16[170]GB
10020 [153] "LOAD":[158] CB,17:[153] "(null)ET LENOLORS:"
10030 [153] "(null)RESS 1  (null)EXT LENOLOR      (" TC [163]30) ")"
10040 [153] "      2  (null)EXT PEEKACKGROUND (" TB [163]30) ")"
10050 [153] "      3  CHR$RAPHIC LENOLOR   (" GC [163]30) ")"
10060 [153] "      4  CHR$RAPHIC PEEKACKGRD (" GB [163]30) ")"
10070 [153] "      0  (null)AIN (null)ENUON"
10080 [158] PL:[158] VW[170]9:[151] RA,RS[171]32
10090 [141] 850:[141] 790
10100 [139] A$[178]"0" [167] [142]
10105 [139] A[179]1 [176] A[177]4 [167][153]"ONON":[137] 10090
10110 :
10120 [153]A:[153]"VALNTER A COLOR NUMBER, 0 TO 15: ";
10130 [141] 700:C[178][197](N$) [175] 15
10135 [139] N$[178]"" [167] [142]
10140 [145] A [141] 10200, 10300, 10400, 10500
10150 [139] TC[178]TB [167] [153]:[153] "(null)EXT COLOR";:TC[178]TC[170]1:[137] 10600
10160 [139] GC[178]GB [167] [153]:[153] "CHR$RAPHIC COLOR";:[137] 10600
10170 [137] 10000
10180 :
10200 TC[178]C:[142]
10300 TB[178]C:[142]
10400 GC[178]C:[142]
10500 GB[178]C:[142]
10510 :
10600 [153] " (null)ROBLEM:"
10610 [153] "LENOLOR IS THE SAME AS THE BACKGROUND!!"
10620 [153] "(null)LEASE TRY AGAIN. ";
10630 [141] 800:[137] 10000
10640 :