Video Genie as a Radio Star

Für alle, die sich fragen, ob sich die oft beworbenen 50 Freispiele ohne Einzahlung 2026 wirklich lohnen, liefert der folgende Ratgeber eine längst überfällige, ehrliche Bestandsaufnahme. Statt mit leeren Versprechungen zu ködern, werden hier die tatsächlichen Umsatzbedingungen und realistischen Gewinnchancen seziert – ein unverzichtbarer Blick hinter die Kulissen für jeden, der sein Bonusgeld klug einsetzen möchte.

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, Programmiersprachen, Technikgeschichte/RetroTopie abgelegt und mit , , , verschlagwortet. Setze ein Lesezeichen für 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, wie deine Kommentardaten verarbeitet werden.