Beitrag zum BASIC 10Liners 2017 von

Telespielator/Inferior Software International

(telespielator@gmx.de)

"AMERICA" (geschrieben und getestet in BASIC 4.0 auf CBM 8096-SK)

Programmbeschreibung und Anleitung:

Der verrückte Präsident Trump hat sein wahnsinniges Vorhaben begonnen, eine Mauer zwischen
den USA und Mexiko zu errichten. Als mutiger Menschenrechtsaktivist hast Du die Aufgabe,
mit Sombreros bekleidete mexikanische Arbeitsmigranten (○) durch Lücken in der Mauer zu
lotsen, die der mit ausgebreiteten Armen wie irre hin und her flitzende Trump (T) zu
reparieren versucht (dieser russische Beton ist aber auch ein mieses Zeug)!
Doch Vorsicht: Wenn ein Mexikaner die Mauer oder den Präsidenten berührt, wird er von
dessen Schergen gefasst und abgeschoben. Gelingt es, zehn Migranten in die USA zu bringen,
hast Du gewonnen, werden zehn Migranten abgeschoben, gewinnt Trump. Oben links ist der
aktuelle Punktestand (You/He) zu sehen. Zu Beginn jedes Versuchs tritt ein Mexikaner aus
dem schützenden Dickicht und rennt in Diagonalen auf die Grenze zu (Steuerung mit den
Tasten 1 und 3), die in jeder Runde schräger werden. Ein Herz zeigt an, wenn der Glückliche
das Ziel erreicht hat und die neue Runde beginnt... Viel Glück!

	01234567890123456789012345678901234567890123456789012345678901234567890123456789
	________________________________________________________________________________

10-Zeilen-Version á 80 Zeichen (mit Abkürzungen):

	0dIm(16):pO59467,16:pO59466,15:?"♥"chr$(142):d=32800:fOa=1to9:fOb=1to5:rEc:i=20
	1p=34727:d=d+1:pOd,c:nEb:d=d+75:nEa:fOm=1to16:rEm(m):nEm:dA254,123,32,32,32,245
	2x=y:y=int(rnd(1)*80)+33568:pOy,i:pOx,32:pOy+80,160:z=int(rnd(1)*80)+33648:dA123
	3pOz,32:pO59464,m(s):l=l+1:ifl=7tHl=0:s=s+1:ifs=17tHs=0:dA252,127,32,245,124						4q=p:?"↑y"v"h"t:gEg:ifg=0tHgO2:dA162,126,32,124,160,160,252,252,32,245,160,160
	5ifg=1tHp=p-80-v:ifpE(p)=160orpE(p)=itHp=34727:t=t+1:ift>9tH?"♥he wins!":eN
	6ifg=3tHp=p-80+v:ifpE(p)=160orpE(p)=itHp=34727:t=t+1:ift>9tH?"♥he wins!":eN
	7pOp,87:pOq,32:ifp<33568tHpOp,83:fOw=1to200:nEw:pOp,32:p=34727:v=v+1:dA126,32
	8ifv>9tH?"♥you win!":end:dA245,160,97,32,32,245,160,97,32,108,160,160,160,123
	9gO2:dA195,195,195,195,195,69,75,74,70,69,75,74,76,74,69,75,74,94,93,99,110,99

Langversion mit (ausgeschriebenen Befehlen):

	0 DIMM(16)
	1 POKE59467,16
	2 POKE59466,15
	3 PRINT"♥"CHR$(142)
	4 D=32800
	5 FORA=1to9
	6 FORB=1to5
	7 READC
	8 I=20
	9 P=34727
	10 D=D+1
	11 POKED,C
	12 NEXTB
	13 D=D+75
	14 NEXTA
	15 FORM=1to16
	16 READ(M)
	17 NEXTM
	18 DATA254,123,32,32,32,245
	19 x=y
	20 Y=INT(RND(1)*80)+33568
	21 POKEY,I
	22 POKEX,32
	23 POKEY+80,160
	24 Z=INT(RND(1)*80)+33648
	25 DATA123
	26 POKEZ,32
	27 POKE59464,M(S)
	28 L=L+1
	29 IFL=7THENl=0:S=S+1:IFS=17THENS=0
	30 DATA252,127,32,245,124
	31 Q=P
	32 PRINT"↑y"v"h"t
	33 GETG
	34 IFG=0THEN GOTO19
	35 DATA162,126,32,124,160,160,252,252,32,245,160,160
	36 IFG=1THENP=P-80-V:IFPEEK(P)=160ORPEEK(P)=I THENP=34727:T=T+1:IFT>9THEN?"♥HE WINS!":END
	37 IFG=3THENP=P-80+V:IFPEEK(P)=160ORPEEK(P)=I THENP=34727:T=T+1:IFT>9THEN?"♥HE WINS!":END
	38 POKEP,87
	39 POKEQ,32
	40 IFP<33568THENPOKEP,83:FORW=1to200:NEXTW:POKEP,32:P=34727:V=V+1
	41 DATA126,32
	42 IFV>9THENPRINT"♥you win!":END
	43 DATA245,160,97,32,32,245,160,97,32,108,160,160,160,123
	44 GOTO19
	45 DATA195,195,195,195,195,69,75,74,70,69,75,74,76,74,69,75,74,94,93,99,110,99


Erläuterung der Sonderzeichen:

♥	[Shift+Clear/Home]	(löscht den Bildschirm und setzt den Cursor in
				die linke obere Bildschirmecke)
↑	[Clear/Home]		(setzt den Cursor in die linke obere Bildschirmecke)

Empfohlender Emulator: VICE (xpet.exe) mit der PET-Modell-Einstellung "8096"
Anleitung:	Emulator starten
		Datei -> Band Image einlegen
		Telespielator.tap anwählen
		Doppelklick im Directory auf "AMERICA"