Beiträge von Plus4_fan im Thema „Spiel in 10 Zeilen (Basic)“

    da ich mir vor kurzem eine Datasette für den Plus/4 gekauft hatte und vorher noch nie was mit dem Plus/4 gemacht habe, hab ich das Spiel mal abgetippt. Natürlich mit ein paar Zeilen mehr, wegen der max. Zeilenlänge.

    Ich hatte ein paar Syntax-Fehler, weil die Taste '7' etwas schwergängig ist :P, aber sonst ging es gut. BASIC 3.5 ist ja doch recht fortschrittlich !

    Hast du keine Floppy oder SD2IEC für den C64, die kannst du normalerweise auch für den C16/Plus4 benutzen? Gerade mit der SD2IEC-Lösung hättest du dir Tippen sparen können.

    ----------------------
    Ja ich vergesse immer das die ganze Welt nunmal nicht Yape benutzt
    ---------------------

    Auch in Yape kommt die String-Fehlermeldung.

    Gruss

    Die Aussage war ja auch nicht auf Copy&Paste gemünzt, im Yape kann ich via Menü PRGs einladen ich meine das geht im Vice nicht, da muss man erst das D64 einlesen und dann das Programm laden. Ganz genau weiss ich es aber nicht, da ich fast nur mit Yape was mache.

    Also ich habs gerade mit Vice getestet, ging einwandfrei.

    Du musst es aber als PRG einladen, den Quellcode kannst du jetzt nicht so einfach rüber kopieren, dann würdest du die beschriebene Fehlermeldung bekommen, da ich viel mit Abkürzungen gearbeitet habe.

    Also vergesst Copy&Paste, anbei habe ich ein Floppy Image (d64-File), damit könnt ihr es auch in Vice reinladen.

    Ja ich vergesse immer das die ganze Welt nunmal nicht Yape benutzt ;) .

    Ich hatte mal wieder Lust einen 10 Zeiler in Basic zu schreiben und hier ist das Ergebnis. Läuft auch auf einem C128, viel Spass damit.

    Bitte melde dich an, um diesen Anhang zu sehen.


    Steuerung: Cursor Links und Rechts, die Spacetaste zum Laser abfeuern.

    Quellcode:


    1 COLOR0,1:COLOR1,2:GRAPHIC1,1:X=125:R=50:F=60:Y=130:CHAR,28,1,"BRICKHUNTER":CHAR,29,3,"C16 / C128"
    2 DRAW1,48,173TO212,173TO212,50TO220,50TO220,180TO40,180TO40,50TO48,50TO48,173:GOSUB10
    3 S=INT(RND(69)*191)/10:D=S:D=INT(S+.5):D=D*10:H=D+10:N=1:VOL8:IFD<60THENGOTO3
    4 GETQ$:IFQ$=CHR$(157)THENP=X:X=X-10:E=0:Y=X+5:GOSUB9
    5 IFQ$=CHR$(29)THENP=X:X=X+10:E=0:Y=X+5:GOSUB9:REM*CONTROL CURSOR LEFT/RIGHT AND SPACE*
    6 COLOR1,3,4:BOX0,D,R,H,F:R=R+7:F=F+7:BOX1,D,R,H,F:IFF>165THENCHAR,15,9,"OVER":N=0:GETKEYA$:RUN
    7 IFQ$=CHR$(32)ANDY=HTHENDRAW1,X,165TOX,R:DRAW0,X,165TOX,R:BOX0,D,R,H,F:N=0:C=C+10:SOUND3,970,9
    8 C$=STR$(C):CHAR,28,9 ,"POINTS:":CHAR,35, 9,C$:IFN=1THENGOTO4:ELSER=50:F=60:GOTO3
    9 IF X=45ORX=215THENX=P
    10 COLOR1,13:CIRCLEE,P,168,5,5,,,,360/3:CIRCLE1,X,168,5,5,,,,360/3:E=1:COLOR1,2:RETURN:REM M.QUANTE