joyceforum.de

Code: Alles auswählen

1 RANDOMIZE (PEEK(&HFBF6)+PEEK(&HFBF7)+PEEK(&HFBF8)):IF PEEK(&HF000)=&H7E THEN 10
20 GOSUB 100:CLEAR:RANDOMIZE (PEEK(&HFBF6)+PEEK(&HFBF7)+PEEK(&HFBF8)):SV=7:OSETCHAR=&HF000:OSETPOINT=&HF0BA:OPOINT2=&HF256:ODRAW=&HF162:OGETCUR=&HF263:OREADCHAR=&HF277:OFINDCHAR=&HF287

Code: Alles auswählen

1000 GOTO 20: REM Scrollp.bas
1010 DIM CC(2): CC(0) = 4 : CC(1) = 0: GOSUB 600
1015 VE = 0: HO = 0.5: CC(0)=6: SR$="*":GOSUB 650
1020 FOR PA = 1 TO 20
1025 IF PA > 16 THEN GOTO 1062
1030 FOR PB = 0 TO (PA / 2)
1031 VE = (PA/26) : HO = ((16 + PB)/32) : CC(0)=4 
1034 GOSUB 260:REM RND ergebnis in RV
1035 IF RV < 0.9 THEN GOTO 1041
1036 SR$ = "O" : GOSUB 650
1037 GOTO 1042
1041 SR$ = "#" : GOSUB 650
1042 VE = (PA/26) : HO = ((16 - PB)/32) 
1043 GOSUB 260: IF RV < 0.9 THEN GOTO 1050
1045 SR$ = "O" : GOSUB 650
1046 GOTO 1060
1050 SR$ = "#" : GOSUB 650
1060 NEXT PB
1061 GOTO 1070
1062 VE = (PA/26) : HO = (15/32) : SR$="####": GOSUB 650
1070 NEXT PA
1080 VE = (21/26) : HO = (8/26) : CC(0)=7: SR$="Frohe Weihnachten": GOSUB 650
1999 GOTO 950

Code: Alles auswählen

10 FOR I=1 TO 30
20 PRINT I
30 NEXT I
40 PRINT "Done."

Code: Alles auswählen

1000 GOTO 20: REM Scrollp.bas
1010 FOR I=1 TO 30
1020 PRINT I
1030 NEXT I
1040 PRINT "Done."
1050 GOTO 950

Code: Alles auswählen

1000 GOTO 20
1010 DIM X(4),Y(4)