1 REM:SONGFEST COPYRIGHT 1984 BY JOE KACZYNSKI
30 CLR:S=54272:FORL=STOS+24:POKEL,0:NEXT
31 DIMH%(2,1450),L%(2,1450),C%(2,1450),D(3),R(3),V(3),FQ(11):Z=0
34 FORA=0TO11:READFQ(A):NEXT
40 POKE53281,0:POKE53280,2:PRINT"[147][154]                                      [146]"
41 PRINT"          WELCOME TO SONGFEST         [146]"
42 PRINT"[154]                                      [146]"
43 PRINT"MENU[146]"
44 PRINT"R[154]= READ [150]PREPROGRAMMED SONG FROM DISK"
45 PRINT"P= PLAY SONG ONCE"
46 PRINT"C= CONTINUOUS [150]PLAY    SPACEBAR [150]TO END[146]"
47 PRINT"I= INPUT NOTES OF YOUR OWN SONG"
48 PRINT"A= ADD [150]NOTES TO SONG"
49 PRINT"M= MODIFY [153]WAVEFORM, A/D, S/R"
50 PRINT"S= SOUND [150]CHANGE DURING PLAYBACK"
51 PRINT"E= ERROR CORRECTION [153]AFTER INPUT"
52 PRINT"K= [153]KEYBOARD SYNTHESIZER"
53 PRINT"Q= QUIT AND EXIT PROGRAM"
54 GETA$:IFA$=""THEN54
55 GOSUB80
56 IFA$="R"THEN GOSUB625:IFVA%=3THEN265:GOTO40
57 IFA$="P"THEN70
58 IFA$="C"THEN70
59 IFA$="I"THEN100
60 IFA$="A"THENZ=2:I=IM:D=IM:GOTO110
61 IFA$="M"THENZ=1:GOSUB100:GOTO40
62 IFA$="S"THENGOSUB900:GOTO40
63 IFA$="E"THENZ=3:GOTO750
64 IFA$=CHR$(81)THENEND
65 IFA$="K"THENPRINT"[147]":GOTO1065
66 GOTO40
70 IFIM<>0THEN265
71 GOTO40
80 IFA$<>"R"ANDA$<>"I"ANDA$<>"P"THENRETURN
81 IFA$="P"ANDIM=0THENRETURN
82 PRINT"[147]":PRINT"[153]NOTE[146]":PRINT"ALL THE CHRISTMAS CAROLS USE 3 VOICES."
83 PRINT"I SUGGEST USING THE 3 VOICE OPTION WHEN"
84 PRINT"LOADING THESE SONGS FROM DISK."
85 PRINT"YOU HAVE THE OPTION OF USING ANY NUMBER"
86 PRINT"OF VOICES THAT YOU DESIRE FOR YOUR OWN"
87 PRINT"CREATIONS."
88 PRINT"THESE OPTIONS ARE VALID FOR INPUTTING "
89 PRINT"NOTES, LOADING FROM OR WRITING TO DISK,"
90 PRINT"WHEN ADDING NOTES TO YOUR SONG CREATION"
91 PRINT", AND PLAYBACK OF ANY SONGS INCLUDING"
92 PRINT"THE ONES IN THE PROGRAM LISTING."
93 PRINT"[153]HOW MANY VOICES WOULD YOU LIKE?[146]"
94 INPUT"                        (1,2,OR 3)";VA%
95 IFVA%>3ORVA%<1THENPRINT"PLEASE REENTER (1 2 OR 3)[146]":GOTO93
96 VB%=VA%-1:RETURN
100 FORK=0TOVB%
101 PRINT"[147]PARAMETERS FOR VOICE"K"ARE NOW:W/F-"V(K)",   A/D-"D(K)",S/R-"R(K)
102 PRINT"[153]ENTER NEW PARAMETERS FOR VOICE #"K":"
103 INPUT"[153]W/F(17,33,65)";V(K)
104 IFV(K)=65THENINPUT"HI PULSE(0-15)";HP(K):INPUT"LO PULSE(0-255)";LP(K)
105 INPUT"[150]A/D(0TO255)";D(K)
106 INPUT"S/R(0TO255)";R(K)
108 IFZ=1THENNEXT:Z=0:RETURN
109 NEXT
110 FORK=0TOVB%:IFZ=2THENI=D:GOTO112
111 I=0:D=0
112 PRINT"[147]RECORD MEASURE #[160](CLOSEST TO NOTE,ONLY)"
113 PRINT"BEFORE GOING TO NEXT VOICE OR FOR NOTE  ERROR CORRECTION[146]"
114 PRINT"[153]VOICE #"K"    [150]ENTER NOTES"
115 PRINT"[153]ENTER 0,0,0 TO GO TO NEXT VOICE"
119 IFZ=3THENZ=0:GOTO40
120 GOSUB800
121 IFK=2ANDI=IMTHEND=IM
122 IFNM=0ANDK<>0ANDI<>IMTHENPRINT"[147][150]ERROR IN ENTRY.  REDO LAST SERIES"
123 IFNM=0ANDK<>0ANDI<>IMTHENI=D:IM=D:FORT=1TO2000:NEXT:GOTO110
124 IFNM=0THEN250
135 B=I/16
140 WA=V(K):IFNM<0THENNM=-NM:WA=1
150 DR%=NM/128:OC%=(NM-128*DR%)/16
160 NT=NM-128*DR%-16*OC%
170 FR=FQ(NT)
180 IF OC%=7THEN200
190 FORJ=6TOOC%STEP-1:FR=FR/2:NEXT
200 HF%=FR/256:LF%=FR-HF%*256
210 IFDR%=1THENH%(K,I)=HF%:L%(K,I)=LF%:C%(K,I)=WA:I=I+1:C=I/16
211 IFDR%=1THENPRINT"[145][153]MEAS."B"[153]TO"C:GOTO119
220 FORJ=1TODR%-1:H%(K,I)=HF%:L%(K,I)=LF%:C%(K,I)=WA:I=I+1:NEXT
230 H%(K,I)=HF%:L%(K,I)=LF%:C%(K,I)=WA-1
240 I=I+1:C=I/16:PRINT"[145][153]MEAS."B"[153]TO"C:GOTO119
250 IFK=0THENIM=I
260 NEXT:Z=0:GOTO40
265 REM SONG WORDS
270 IFNS$="SILENT NIGHT"THEN299
271 REM IFNS$="NOEL"THENGOSUB350:RETURN
272 REM IFNS$="BETHLEHEM"THEN375
273 IFNS$="HOUSETOP"THEN400
274 IFNS$="ADESTE FIDELES"THEN425
275 IFNS$="JOY TO THE WORLD"THEN450
276 REM IFNS$="MANGER"THEN475
277 REM IFNS$="HERALD ANGELS"THEN310
278 IFNS$="MIDNIGHT CLEAR"THEN325
280 IFIM<>0THEN495
299 PRINT"[147][150]S[151]I[152]L[153]E[154]N[155]T [155]N[154]I[153]G[152]H[150]T"
300 PRINT"SILENT NIGHT, HOLY NIGHT":PRINT"ALL IS CALM, ALL IS BRIGHT"
302 PRINT"ROUND YON VIRGIN, MOTHER AND CHILD"
303 PRINT"HOLY INFANT SO TENDER AND MILD"
304 PRINT"SLEEP IN HEAVENLY PEACE":PRINT"SLEEP IN HEAVENLY PEACE"
306 GOTO500
310 PRINT"[147][150]HA[153]R[154]K [155]TH[156]E [158]HER[159]AL[155]D [154]A[153]N[152]G[151]E[150]L[153]S [151]S[153]I[150]N[153]G"
311 PRINT"HARK THE HERALD ANGELS SING":PRINT"GLORY TO THE NEW BORN KING"
312 PRINT"PEACE ON EARTH AND MERCY MILD":PRINT"GOD AND SINNER RECONCILED"
313 PRINT"JOYFUL ALL YE NATIONS RISE":PRINT"JOIN THE TRIUMPH OF THE SKIES"
314 PRINT"WITH ANGELIC HOSTS PROCLAIM":PRINT"CHRIST IS BORN IN BETHLEHEM"
315 PRINT"HARK THE HERALD ANGELS SING":PRINT"GLORY TO THE NEW BORN KING"
316 GOTO500
325 PRINT"[147][150]I[151]T [152]C[153]A[154]M[155]E U[159]P[156]ON T[158]H[155]E [153]M[152]I[151]D[150]N[158]IGH[156]T C[159]L[156]EAR"
326 PRINT"IT CAME UPON A MIDNIGHT CLEAR":PRINT"THAT GLORIOUS SONG OF OLD"
327 PRINT"FROM ANGELS BENDING NEAR THE EARTH"
328 PRINT"TO TOUCH THEIR HARPS OF GOLD"
329 PRINT"PEACE ON THE EARTH, GOOD WILL TO MEN"
330 PRINT"FROM HEAVEN'S ALL GRACIOUS KING"
331 PRINT"THE WORLD IN SOLEMN STILLNESS LAYS"
332 PRINT"TO HEAR THE ANGELS SING"
335 GOTO500
350 PRINT"[147][150]N[153]O[150]E[153]L"
351 PRINT"THE FIRST NOEL,THE ANGELS DID SAY"
352 PRINT"WAS TO CERTAIN POOR SHEPHERDS IN        FIELDS WHERE THEY LAY"
354 PRINT"IN FIELDS WHERE THEY":PRINT"LAY KEEPING THEIR SHEEP"
356 PRINT"ON A COLD WINTERS NIGHT":PRINT"THAT WAS SO DEEP"
358 PRINT"[153]CHORUS"
359 PRINT"NOEL, NOEL, NOEL, NOEL":PRINT"BORN IS THE KING OF ISRAEL"
361 PRINT"[150]REPEAT CHORUS"
362 GOTO500
375 PRINT"[147][150]O[151] [152]L[153]I[154]T[155]T[149]L[129]E [150]T[151]O[152]W[153]N[154] O[154]F [153]B[152]E[151]T[150]H[149]L[129]E[153]H[150]E[151]M"
376 PRINT"O LITTLE TOWN OF BETHLEHEM HOW STILL    WE SEE THEE LIE"
377 PRINT"ABOVE THY DEEP AND DREAMLESS SLEEP      THE SILENT STARS GO BY"
378 PRINT"YET IN THY DARK STREETS SHINETH         THE EVERLASTING LIGHT"
379 PRINT"THE HOPES AND FEARS OF ALL THE YEARS    ARE MET IN THEE TONIGHT"
380 GOTO500
400 PRINT"[147][155]U[154]P [153]O[152]N [151]T[150]H[149]E [150]H[153]O[129]U[149]S[155]E[154]T[150]O[153]P"
401 PRINT"UP ON THE HOUSETOP THE REINDEER PAUSE"
402 PRINT"OUT JUMPS GOOD OLD SANTA CLAUS"
403 PRINT"DOWN THROUGH THE CHIMNEY WITH LOTS OF   TOYS"
404 PRINT"ALL FOR THE LITTLE ONES CHRISTMAS       JOYS"
405 PRINT"[153]CHORUS"
406 PRINT"HO,HO,HO, WHO WOULDN'T GO":PRINT"HO,HO,HO, WHO WOULDN'T GO"
407 PRINT"UP ON THE HOUSETOP, CLICK,CLICK,CLICK"
409 PRINT"DOWN THROUGH THE CHIMNEY WITH           THE GOOD SAINT NICK"
410 GOTO500
425 PRINT"[147][129]A[153]D[150]E[151]S[152]T[153]E [154]F[155]I[154]D[153]E[152]L[151]E[150]S"
426 PRINT"O COME ALL YE FAITHFUL":PRINT"JOYFUL AND TRIUMPHANT"
428 PRINT"O COME YE, O COME YE TO BETHLEHEM"
429 PRINT"COME AND BEHOLD HIM":PRINT"BORN THE KING OF ANGELS"
431 PRINT"[153]CHORUS"
432 PRINT"O COME LET US ADORE HIM":PRINT"O COME LET US ADORE HIM"
434 PRINT"O COME LET US ADORE HIM":PRINT"CHRIST THE LORD"
436 GOTO500
450 PRINT"[147][129]J[150]O[151]Y [152]T[153]O [154]T[155]H[153]E [150]W[151]O[152]R[153]L[150]D"
451 PRINT"JOY TO THE WORLD,THE LORD HAS COME"
452 PRINT"LET EARTH RECEIVE HER KING"
453 PRINT"LET EVERY HEART,PREPARE HIM ROOM"
454 PRINT"AND HEAVEN AND NATURE SING":PRINT"AND HEAVEN AND NATURE SING"
456 PRINT"AND HEAVEN,AND HEAVEN,AND NATURE SING"
457 GOTO500
475 PRINT"[147][129]A[150]W[151]A[152]Y [153]I[154]N [155]A [154]M[153]A[152]N[151]G[150]E[153]R"
476 PRINT"AWAY IN A MANGER,NO CRIB FOR A BED"
477 PRINT"THE LITTLE LORD JESUS":PRINT"LAID DOWN HIS SWEET HEAD"
479 PRINT"THE STARS IN THE SKY":PRINT"LOOKED DOWN WHERE HE LAY"
481 PRINT"THE LITTLE LORD JESUS":PRINT"ASLEEP ON THE HAY"
483 PRINT"THE CATTLE ARE LOWING":PRINT"THE POOR BABY WAKES"
485 PRINT"BUT LITTLE LORD JESUS":PRINT"NO CRYING HE MAKES"
487 PRINT"I LOVE THEE LORD JESUS":PRINT"LOOK DOWN FROM THE SKY"
489 PRINT"AND STAY BY MY CRADLE":PRINT"TILL MORNING IS NIGH"
490 GOTO500
495 PRINT"[147][153] NOW PLAYING  ";NS$:PRINT"HOPE YOU ENJOY IT"
500 POKES+18,0:POKES+4,0:POKES+11,0
501 ONVA%GOTO525,520,510
510 POKES+19,D(2):POKES+20,R(2):POKES+16,LP(2):POKES+17,HP(2)
520 POKES+12,D(1):POKES+13,R(1):POKES+9,LP(1):POKES+10,HP(1)
525 POKES+5,D(0):POKES+6,R(0):POKES+2,LP(0):POKES+3,HP(0)
530 POKES+24,15
535 A1$=""
540 FORI=0TOIM
541 GETA1$:IFA1$=" "THENPOKES+24,0:GOTO40
545 ONVA%GOTO554,552,550
550 POKES+14,L%(2,I):POKES+15,H%(2,I):POKES+18,C%(2,I)
552 POKES+7,L%(1,I):POKES+8,H%(1,I):POKES+11,C%(1,I)
554 POKES,L%(0,I):POKES+1,H%(0,I):POKES+4,C%(0,I)
560 ONVA%GOTO565,567,569
565 FORR=1TO28:NEXT
567 FORR=1TO28:NEXT
569 NEXT
585 IFA$="C"THEN70
586 POKES+24,0
589 PRINT"[147][153]DO YOU WISH TO WRITE THE SONG TO DISK?                  Y/N "
590 GETA$:IFA$=""THEN590
592 IFA$="Y"THENGOSUB700
599 GOTO40
600 DATA34334,36376,38539,40830
610 DATA43258,45830,48556,51443
620 DATA54502,57743,61176,64814
625 PRINT"[147]":POKE53280,4
626 PRINT"[153]DO YOU WANT PRE-RECORDED SONGS? (Y/N)"
627 GETE$:IFE$=""THEN627
628 IFE$="Y"THEN650
629 IFE$="N"THENPRINT"[147]":GOTO41
630 GOTO627
650 PRINT"[147] CHOOSE A SONG AND ENTER THE[153] NAME ONLY"
651 PRINT"JUST AS YOU SEE IT.[146]"
652 PRINT"[154] SONG NAME[146]         [153]LOADING TIME[146]"
655 PRINT"[153]SILENT NIGHT      1 MIN.40 SEC."
656 REM PRINT"[153]BETHLEHEM         1 MIN.6 SEC."
657 PRINT"[153]HOUSETOP          1 MIN.30 SEC."
658 REM PRINT"[153]NOEL              1 MIN.30 SEC."
659 PRINT"[153]ADESTE FIDELES    1 MIN.15 SEC."
660 REM PRINT"[153]MANGER            1 MIN.28 SEC."
661 PRINT"[153]JOY TO THE WORLD  1 MIN.10 SEC."
662 REM PRINT"[153]HERALD ANGELS     1 MIN.15 SEC."
663 PRINT"[153]MIDNIGHT CLEAR    1 MIN.30 SEC."
665 INPUT"[153]NAME OF SONG";NS$
666 X$=","
667 OPEN2,8,2,"00:"+NS$+",S,R":TI$="000000"
668 PRINT"[147][153] LOADING  ";NS$ :PRINT"PLEASE WAIT[146]"
669 INPUT#2,IM:IFIM=0THEN676
670 FORK=0TOVB%:INPUT#2,V(K),D(K),R(K),LP(K),HP(K):NEXT
673 FORI=1TOIM:FORK=0TOVB%:INPUT#2,H%(K,I),L%(K,I),C%(K,I):NEXT
674 PRINT"[158]";TI$:NEXT
675 IFIM<>0THENCLOSE2:RETURN
676 PRINT"[147][150]FILE NOT FOUND [146]":CLOSE2:GOTO665
700 PRINT"[147]":PRINT"[153]INSERT DISK INTO DRIVE":PRINT"ENTER S TO SAVE"
701 PRINT"[150]ENTER N IF YOU CHANGE YOUR MIND"
702 GETA3$:IFA3$=""THEN702
703 IFA3$="N"THEN40
704 IFA3$="S"THEN708
705 GOTO702
708 X$=",":INPUT"[147]NAME OF SONG";NS$
709 OPEN2,8,2,"00:"+NS$+",S,W
710 [153]"SAVING SONG TO DISKWAIT":[152]2,IM
715 [129]K[178]0[164]VB%:[152]2,V(K)X$D(K)X$R(K)X$LP(K)X$HP(K):[130]
720 [129]I[178]1[164]IM:[129]K[178]0[164]VB%:[152]2,H%(K,I)X$L%(K,I)X$C%(K,I):[130]:[130]
725 [160]2:[142]
750 [143] CHANGE NOTE AND OCTAVE
760 [153]"LOADPRINTENTER VOICE(0,1,OR 2)";:[133]K
762 [139]K[177]2[167][153]"LOAD                                          LOADLOADLOAD":[137]760
765 [153]"LOADPRINTENTER MEASURE # FOR NOTE"
766 [153]"YOU WISH TO  CHANGE"
770 [133]"PRINTENTER THIS NUMBERWAIT";E1
772 E2[178][181](E1):E[178]E2:[139]E[179]0[167]E[178]0
773 F[178](E1[171]E2)[172]16
774 I[178]16[172]E[170]F
785 [153]"LOADPRINTENTER NEW NOTE, OCTAVE, AND DURATION# "
786 [153]"DO NOT WAIT DEFCHANGE THE DURATION #."
787 [133]NP$,NO,ND
788 [141]801:[137]140
800 [133]"DEFN,PRINTO,CONTD";NP$,NO,ND
801 [139]NP$[178]"0"[167]NM[178]0:[142]
802 [139]NP$[178]"S"[167]NM[178][171]128[172]ND:[142]
803 [139]NP$[178]"C"[167]NP[178]0
804 [139]NP$[178]"C#"[167]NP[178]1
805 [139]NP$[178]"D&"[167]NP[178]1
806 [139]NP$[178]"D"[167]NP[178]2
807 [139]NP$[178]"D#"[167]NP[178]3
808 [139]NP$[178]"E&"[167]NP[178]3
809 [139]NP$[178]"E"[167]NP[178]4
810 [139]NP$[178]"F"[167]NP[178]5
811 [139]NP$[178]"F#"[167]NP[178]6
812 [139]NP$[178]"G&"[167]NP[178]6
813 [139]NP$[178]"G"[167]NP[178]7
814 [139]NP$[178]"G#"[167]NP[178]8
815 [139]NP$[178]"A&"[167]NP[178]8
816 [139]NP$[178]"A"[167]NP[178]9
817 [139]NP$[178]"A#"[167]NP[178]10
818 [139]NP$[178]"B&"[167]NP[178]10
819 [139]NP$[178]"B"[167]NP[178]11
820 [139]NP$[178]"C&"[167]NP[178]11
821 NM[178]128[172]ND[170]16[172]NO[170]NP
822 [142]
900 [153]"LOAD"
905 [153]"PRINTPRESS F1..F3..F5..F7"
910 [153]"FOR UNUSUAL HARMONICS"
915 [161] B$:[139]B$[178]""[167]915
916 [151]S[170]24,15
920 [139] B$[178]"INPUT"[167][151]S[170]4,65:[151]S[170]5,0:[151]S[170]6,190:[151]S[170]12,8:[151]S[170]13,0
925 [139]B$[178]"INPUT"[167][151]S[170]19,6:[151]S[170]20,69:[137]535
930 [139]B$[178]"DIM"[167][151]S[170]5,63:[151]S[170]6,240:[151]S[170]12,113:[151]S[170]13,53
940 [139]B$[178]"DIM"[167][151]S[170]19,119:[151]S[170]20,7:[137]535
945 [139]B$[178]"READ"[167][151]S[170]5,36:[151]S[170]6,197:[151]S[170]12,53:[151]S[170]13,53:[151]S[170]10,6
955 [139]B$[178]"READ"[167][151]S[170]19,119:[151]S[170]20,7:[137]535
960 [139]B$[178]"LET"[167][151]S[170]5,15:[151]S[170]6,240:[151]S[170]12,10:[151]S[170]13,167:[151]S[170]10,0
970 [139]B$[178]"LET"[167][151]S[170]19,119:[151]S[170]20,240:[137]535
975 [142]
1065 [156]:[151]53280,11:[153]"LOADKEYBOARD FUNCTIONWAIT"
1068 [153]"PRINTF1..F3..F5..F7..SELECT OCTAVES"
1069 [153]"CONTF2..F4..F6..SELECT WAVEFORMS."
1070 [153]"PRINT#F8..MAINTAINS A NOTE TILL NEXT NOTE"
1071 [153]"IS PLAYED"
1072 [153]"PRINTPRESSING SPACEBAR SELECTS SOLO OR"
1073 [153]"POLYPHONIC SOUND."
1074 [153]"FORNOTES AND CORRESPONDING KEY CHART"
1075 [153]"PRINTNOTE..C C# D D# E F F# G G# A A# B C"
1076 [153] "KEY...Q 2  W 3  E R 5  T 6  Y 7  U I "
1077 [153]"PRINTNOTES CONT. C# D D# E F F# G G# A"
1078 [153]"KEYS  CONT. 9  O 0  P @ -  * \  ^"
1085 [153]"NOTES C TO B ARE OCTAVE 5 AND LAST C"
1086 [153]"STARTS OCTAVE 6."
1090 [153]"PRESS  PRINT Z FOR MAIN PROGRAMWAIT"
1100 S[178]54272:[134]X(26):[134]Y(255):[129]I[178]0[164]28:[151]S[170]I,0:[130]
1120 X1[178]7040:[129]I[178]1[164]26:X(27[171]I)[178]X1[172]5.8[170]30:X1[178]X1[173]2[174](1[173]12):[130]
1130 Y$[178]"Q2W3ER5T6Y7UI9O0P@-*\^"
1140 [129]I[178]1[164][195](Y$):Y([198]([202](Y$,I)))[178]I:[130]
1160 AT[178]0:DE[178]0:SU[178]15:RE[178]10:SR[178]SU[172]16[170]RE:AD[178]AT[172]16[170]DE:WV[178]16:W[178]0:M[178]1:OC[178]4:HB[178]256
1161 Z[178]0
1170 [129]I[178]0[164]2:T[178]I[172]7:[151]S[170]5[170]T,AD:[151]S[170]6[170]T,SR
1180 [151]S[170]2[170]T,4000[175]255:[151]S[170]3[170]T,4000[173]256:[130]:[151]S[170]24,15
1200 [161]D$:[139]D$[178]""[167]1200
1210 FR[178]Y([198](D$)):[139]FR[178]Z[167]1300
1220 FR[178]X(FR)[173]M:T[178]V[172]7:CR[178]S[170]T[170]4:[151]S[170]5[170]T,Z:[151]S[170]6[170]T,Z
1240 [151]CR,8:[151]CR,Z:[151]S[170]T,FR[171]HB[172][181](FR[173]HB):[151]S[170]1[170]T,FR[173]HB
1260 [151]S[170]5[170]T,AD:[151]S[170]6[170]T,SR:[151]CR,WV[170]1:[129]I[178]1[164]50[172]AT:[130]:[151]CR,WV
1285 [139]P[178]1[167]V[178]V[170]1:[139]V[178]3[167]V[178]0
1290 [137]1200
1300 [139]D$[178]"INPUT"[167]M[178]1:OC[178]4:[137]1200
1310 [139]D$[178]"DIM"[167]M[178]2:OC[178]3:[137]1200
1320 [139]D$[178]"READ"[167]M[178]4:OC[178]2:[137]1200
1330 [139]D$[178]"LET"[167]M[178]8:OC[178]1:[137]1200
1340 [139]D$[178]"GOTO"[167]W[178]0:WV[178]16:[137]1200
1350 [139]D$[178]"RUN"[167]W[178]1:WV[178]32:[137]1200
1360 [139]D$[178]"IF"[167]W[178]2:WV[178]64:[137]1200
1370 [139]D$[178]"RESTORE"[167]W[178]0:WV[178]17:[137]1200
1391 [139]D$[178]"Z"[167][151]S[170]24,0:[138]30
1395 [139]D$[178]" "[167]P[178]1[171]P:[137]1200
1400 [137]1200