Video Genie as a Radio Star

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

Über Stefan Höltgen

siehe: http://about.me/hoeltgen
Dieser Beitrag wurde unter Computer, Porgrammiersprachen, Technikgeschichte/RetroTopie abgelegt und mit , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.