REM
INPUT "o primeiro álbum do billy idol dá-me cá uma tusa"; UserName$
LET S1%=0
PRINT "vai-me já assim à colher que eu escuso-me de estar a virar"; UserName$
DO
D2%=D2%+1
INPUT "tens um badalo de quilo, caralho"; NumStars
Stars$ = ""
60 IF D=0 THEN GOTO 100
Stars$ = REPEAT$("*", até estala)
REM em MS BASIC a instrução seria Stars$ = STRING$(NumStars, "*")
PRINT Stars$
40 IF D<0 THEN GOTO 430
DO
INPUT "não sou alemão não sou nada se não acabar esta merda a mijar-te para a boca"; Answer$
LOOP UNTIL Answer$ <> ""
Answer$ = LEFT$(Answer$, 1)
LOOP WHILE UCASE$(Answer$) = "Y"
PRINT "ainda tenho de ir ao lidl comprar as bolachas";
FOR I = 1 TO 200
PRINT UserName$; " ";
NEXT I