18 lines
330 B
Plaintext
18 lines
330 B
Plaintext
100 CLS : rem 100 HOME for Applesoft BASIC
|
|
110 S$ = "rosetta" : N = 1
|
|
120 GOSUB 210
|
|
130 PRINT CAD$
|
|
140 S$ = "ha" : N = 5
|
|
150 GOSUB 210
|
|
160 PRINT CAD$
|
|
170 S$ = "*" : N = 5
|
|
180 GOSUB 210
|
|
190 PRINT CAD$
|
|
200 END
|
|
210 REM FUNCTION STRINGREPEAT$(S$,N)
|
|
220 CAD$ = ""
|
|
230 FOR I = 1 TO N
|
|
240 CAD$ = CAD$+S$
|
|
250 NEXT I
|
|
260 RETURN
|