Akkor ha írtam egyszer EP-re basic-ben egy programot, akkor azt elméletileg könnyen meg tudnám írni valami PC-s basic-ben is?
Egy példa:
EP128-as basic program (Tippek és Trükkök könyvbõl):
100 !grafikus kepernyore villogo szoveg
110 GRAPHICS 16
120 FOR X=0 TO 26 !sinusgorbe
130 LET V=45*X+50:LET F=240+240*SIN(X*PI/12)
140 SET INK RND(7)+1:PLOT V,F;
150 NEXT
160 PLOT V,F,
170 LET A$="ENTERPRISE128"
180 FOR X=0 TO 12 !a$ hullamvonalu kiirasa
190 LET F=400+230*SIN(X*PI/6)
200 SET INK RND(7)+1:PLOT 90*X,F,
210 PRINT #101:A$(X+1)
220 NEXT
230 GOTO 180
Ugyanaz a program csak PC-s QBasic-ban (a DOS6.22-ben alapban benne van vagy letölthetõ a fordító):
' grafikus kepernyore villogo szoveg
RANDOMIZE TIMER ' ora alapjan general veletlenszamot
SCREEN 9 ' EGA 640x350x16
' sinusgorbe
PI = 3.14
V1 = 56
F1 = 175
FOR X = 0 TO 25
V2 = 56 + (20 * X)
F2 = 175 + (70 * SIN((X * 14) * (PI / 180)))
LINE (V1, F1)-(V2, F2), INT(RND * 15) + 1
V1 = V2
F1 = F2
NEXT
' a string hullamvonalu kiirasa
A$ = "ENTERPRISE128"
DO
FOR X = 1 TO 13
COLOR INT(RND * 15) + 1
LOCATE 10 + (5 * SIN((X * 28) * (PI / 180))), 5 + (X * 5)
PRINT MID$(A$, X, 1)
NEXT
LOOP UNTIL INKEY$ = CHR$(27) ' ESC lenyomasaig csinalja
Szerk: a QBasic simán fut XP alatt