10 R:LOCOMOTIVE›20 R:ANTIC OCTOBER, 1983›30 R:›40 J:*MAINLINE›100 *TRAIN›110 C(#M=25)+(#M=4):#R=#R+1›120 C(#M=25)+(#M=4):#D=#D*-1›130 C:#M=#M+#D›140 C(#R=20):#R=0›150 C:@B82=#M›160 C:@B84=#R›170 J(#D<0):*TRAINRIGHT›180 T:        [8 BLANKS›190 T:  ````  [›200 T:   Šˆ [›210 T:        [›220 T:  ````
[›230 E:›240 *TRAINRIGHT›250 T:         [9 BLANKS›260 T:   ````  [REM›270 T:  Šˆ   [REM›280 T:         [REM›290 T: ````  [REM›300 R:INCLUDE BLANKS & REMARK SIGN       AFTER GRAPHIC ... THEY HOLD SPACES!›310 E:›1000 R:›1010 *MAINLINE›1020 U:*STARTUP›1030 *LOCO1›1040 C:#L=1500 [LOUDNESS VALUE›1050 *LOCO2›1060 C:@B53761=(#L-#X)/100›1070 C:#L=#L-#X›1080 J(#L>400):*LOCO2›1090 C(#X<150):#X=#X+1›1100 C:#Z=#Z-1›1110 J(#Z=0):*LOCO3›1120 U:*TRAIN›1130 J:*LOCO1›1140 *LOCO3›1150 PA:60›1160 U:*WHISTLE›1170 PA:60›1180 C:@B82=2[RESTORES LEFT MARGIN›1190 E:›2000 R:›2010 *WHISTLE›2020 C:#W=3 [NUMBER OF WHISTLES›2030 *WHISTLE1›2040 C:@B53762=40 [FREQ. VOICE 1›2050 C:@B53764=10 [FREQ. VOICE 2›2060 C:@B53766=90 [FREQ. VOICE 3›2070 C:@B53763=160+10[CNTRL VOICE 1›2080 C:@B53765=160+8 [CNTRL VOICE 2›2090 C:@B53767=160+10[CNTRL VOICE 3›2100 PA:50›2110 C:@B53763=160›2120 C:@B53765=160›2130 C:@B53767=160›2140 PA:35›2150 C:#W=#W-1›2160 E(#W=0):›2170 J:*WHISTLE1›3000 R:›3010 *STARTUP›3020 R: THESE VARIABLES POSITION TRAIN›3030 C:#M=5 [LEFT MARGIN LOCATION›3040 C:#R=5 [ROW NUMBER›3050 C:#D=1 [DIRECTION 1=LEFT,-1=RIGHT›3060 R: THESE VARIABLES CONTROL SOUNDS        AND NUMBER OF PUFFS›3070 C:#Z=188 [NUMBER OF PUFFS›3080 C:#X=15 [DECREASES LOUDNESS›3090 C:@B53760=15[ FREQUENCY, VOICE 0›3100 C:@B53761=3 [CNTRL VOICE 0›3110 U:*TRAIN›3120 PA:120›3130 U:*WHISTLE›3140 PA:30›3150 E:›