Nachdem ich gestern in der „TRS-80 Model 1“-Facebook-Gruppe auf das BASIC-Programm „Jukebox“ aufmerksam gemacht worden bin, habe ich selbiges heute Morgen an meinem Video Genie II getestet. Das BASIC-Programm (s.u.) erzeugt ein hochfrequentes elektromagnetisches Feld (wie alle Operationen im Computer), das auf einem in der Nähe stehenden Radio „gestaltförmige“ Ausgaben produziert – hier ein Song von Simon & Garfunkel, dessen Titel angesichts der Tatsache, dass das Lied auf einem stummen (Soundchip-losen) Computer läuft – doppeldeutig ist: „Sounds of Silence“
2 :REM'COPYRIGHT (C) CLOAD 1978 4 DEFINTA-T:DEFSNGL:GOTO310 5 JAMES GARON:920 W. ROMNEYA #6 ANAHEIM, CA 92801 6 FORK=1TO11.5*L 7 ::::REM 8 ::::REM 9 NEXT:RETURN 10 FORK=1TO12*L 11 :::: REM 12 :::REM// 13 NEXT:RETURN 15 FORK=1TO13*L 16 ::: REM// 17 ::: REM/// 18 NEXT:RETURN 20 FORK=1TO14*L 21 ::REM////// 22 :::REM////// 23 NEXT:RETURN 25 FORK=1TO15*L 26 ::REM///// 27 :::REM 28 NEXT:RETURN 30 FORK=1TO16*L 31 :: REM//// 32 :: REM//// 33 NEXT:RETURN 40 FORK=1TO17*L 41 :: REM 42 :: REM 43 NEXT:RETURN 45 FORK=1TO18*L 46 : REM//// 47 :: REM//// 48 NEXT:RETURN 50 FORK=1TO19*L 51: REM 52 ::REM 53 NEXT:RETURN 55 FORK=1TO20*L 56 :REM////// 57 : REM///// 58 NEXT:RETURN 60 FORK=1TO21*L 61 : REM 62 :REM 63 NEXT:RETURN 65 FORK=1TO22*L 66 REM//////// 67 :REM///// 68 NEXT:RETURN 70 FORK=1TO23*L 71 :REM 72 REM 73 NEXT:RETURN 110 FORK=1TO24*L:::REM////////// 112 NEXT:RETURN 115 FORK=1TO26*L:::REM///// 116 NEXT:RETURN 120 FORK=1TO28*L::REM/////////////// 121 NEXT:RETURN 130 FORK=1TO32*L: REM///////////////////// 131 NEXT:RETURN 140 FORK=1TO34*L: REM///////////////// 141 NEXT:RETURN 310 U=1.4:V=U+U:W=V+V:X=W+W:Y=X+X:S=U+V:T=V+W:Q=W+X 320 CLS:PRINT@910,"Place A-M radio near keyboard":PRINT@20,"TRS-80 Jukebox":PRINT 410 PRINT:PRINT"1) Michael Row the Boat Ashore 420 PRINT"2) Marines Hymm":PRINT"3) Clementine":PRINT"4) Oh Susannah 430 PRINT"5) Silent Night":PRINT"6) The Sound of Silence 500 PRINT:INPUT"Number";A:IFA<1ORA>6THEN320ELSEPRINT@639,:PRINT@165+64*A,"<--------- Now playing"; 510 ONAGOSUB999,2000,3000,4000,5000,6000:GOTO320 999 FORR=1TO2:L=W:GOSUB10:GOSUB30:L=T:GOSUB50:L=V:GOSUB30:GOSUB50:L=T:GOSUB60 1020 L=X:GOSUB50:L=W:GOSUB30:GOSUB50:L=Y:GOSUB60:L=X:GOSUB50 1030 L=V:GOSUB30:L=T:GOSUB50:GOSUB50:L=V:GOSUB30:GOSUB40:L=T:GOSUB30 1040 L=X:GOSUB20:L=W:GOSUB10:GOSUB20:L=X:GOSUB30:GOSUB20:GOSUB10:NEXTR 1050 L=V:GOSUB15:L=T:GOSUB40:GOSUB55:L=V:GOSUB40:GOSUB55:L=T:GOSUB65 1060 L=X:GOSUB55:L=W:GOSUB115:GOSUB110:L=Y:GOSUB65:L=X:GOSUB55 1100 L=V:GOSUB40:L=V+W:GOSUB55:GOSUB55:L=V:GOSUB40:GOSUB45 1110 L=T:GOSUB40:L=X:GOSUB25:L=W:GOSUB15:GOSUB25 1120 GOSUB40:GOSUB55:L=V:GOSUB65:L=T:GOSUB110:L=X:GOSUB115:RETURN 2000 FORR=1TO4:ONRGOSUB2010,2010,2050,2010:NEXTR:REM 2010 L=S:GOSUB10:L=U:GOSUB30:L=W:FORI=1TO4:GOSUB50:NEXTI 2020 L=T:GOSUB50:L=V:GOSUB110:L=W:GOSUB50 2030 L=S:GOSUB30:L=U:GOSUB40:L=W:GOSUB50:GOSUB50:L=V:GOSUB40:L=T 2040 GOSUB20:L=W+X:GOSUB10:RETURN 2050 L=S:GOSUB110:L=U:GOSUB70:L=W:GOSUB60:GOSUB40:GOSUB60:GOSUB110 2060 L=T:GOSUB50:L=V:GOSUB30:L=W:GOSUB50 2070 L=S:GOSUB110:L=U:GOSUB70:L=W:GOSUB60:GOSUB40 2080 L=V:GOSUB60:L=T:GOSUB110:L=W+X:GOSUB50:RETURN 3000 FORR=1TO2:L=S:GOSUB40:L=U:GOSUB40:L=W:GOSUB40:GOSUB10:L=S:GOSUB60 3020 L=U:GOSUB60:L=W:GOSUB60:GOSUB40:L=S:GOSUB40:L=U:GOSUB60 3030 L=T:GOSUB110:L=V:GOSUB110:L=S:GOSUB65:L=U:GOSUB60:L=X:GOSUB50 3040 L=S:GOSUB50:L=U:GOSUB60:L=W:GOSUB65:GOSUB65:L=S:GOSUB60:L=U 3050 GOSUB50:L=W:GOSUB60:GOSUB40:L=S:GOSUB40:L=U:GOSUB60:L=T:GOSUB50 3060 L=V:GOSUB10:L=S:GOSUB30:L=U:GOSUB50:L=X:GOSUB40:NEXTR:RETURN 4000 FORR=1TO7:ONRGOSUB4010,4040,4010,4050,4060,4010,4050:NEXTR:RETURN 4010 L=U:GOSUB50:GOSUB60:L=V:GOSUB70:GOSUB120 4020 L=S:GOSUB120:L=U:GOSUB130:L=V:GOSUB120:GOSUB70 4030 L=S:GOSUB50:L=U:GOSUB60:L=V:GOSUB70:GOSUB70 4035 L=(U+V)/2:GOSUB60:L=V:RETURN 4040 GOSUB50:L=T:GOSUB60:RETURN 4050 GOSUB60:L=X:GOSUB50:RETURN 4060 L=W:GOSUB110:GOSUB110:L=V:GOSUB130:L=W:GOSUB130:L=V:FORN=1TO5 4070 ONNGOSUB130,120,120,70,50:NEXTN:L=T:GOSUB60:RETURN 5000 FORR=1TO2:L=T:GOSUB50:L=V:GOSUB60:L=W:GOSUB50:L=Q:GOSUB30:NEXTR 5020 L=X:GOSUB120:L=W:GOSUB120:L=Q:GOSUB70:L=X:GOSUB110:L=W 5030 GOSUB110:L=Q:GOSUB50:FORR=1TO2:L=X:GOSUB60:L=W:GOSUB60:L=T 5040 GOSUB110:L=V:GOSUB70:L=W:GOSUB60:L=T:GOSUB50:L=V:GOSUB60:L=W 5050 GOSUB50:L=Q:GOSUB30:NEXTR:L=X:GOSUB120:L=W:GOSUB120:L=T:GOSUB140 5060 L=V:GOSUB120:L=W:GOSUB70:L=Q:GOSUB110:GOSUB130:L=W:GOSUB110 5070 GOSUB50:GOSUB30:L=T:GOSUB50:L=V:GOSUB40:L=W:GOSUB20 5080 L=Q+X:GOSUB10:RETURN 6000 L=V:FORN=1TO6:ONNGOSUB20,20,40,40,60,60:NEXTN:L=Y:GOSUB50 6030 L=V:FORN=1TO8:ONNGOSUB10,10,10,30,30,50,50,40:NEXTN:L=Y-V 6040 GOSUB20:FORR=1TO2:L=V:FORN=1TO7:ONNGOSUB40,40,40,60,60,110,110 6050 NEXTN:L=W:GOSUB120:L=V:GOSUB120:L=Q:GOSUB110:NEXTR 6060 L=V:GOSUB40:GOSUB40:GOSUB120:L=T+W:GOSUB120:L=V:GOSUB120:GOSUB130 6070 GOSUB140:L=T:GOSUB140:L=V:GOSUB130:L=T:GOSUB120:L=Q:GOSUB110 6080 L=V:GOSUB120:GOSUB110:L=Y:GOSUB60:L=V:GOSUB40:GOSUB40:GOSUB40:L=Q 6090 GOSUB110:L=V:GOSUB30:GOSUB40:L=Y:GOSUB20:RETURN
