Create an applesoft basic program, one line at a time.

[classicgamer_27330]

500 GOTO 70 : REM CLASSICGAMER_27330

[Osgeld]

no syntax error in it goes 

 

0 TEXT:HOME:REM skr, osgeld edit 
5 ?"ATARIAGE Create an applesoft basic":?"program one line at a time":?:?"PRESS ANY KEY TO START":INPUT N$:REM osgeld 
10 COLOR = 2:REM skr
20 GR:REM ClausB
30 REM DUPE OF 50 VLIN 0,30 AT 19: REM skr
40 REM Why is someone posting scans in here? DeathAdderSF
50 COLOR = 2: VLIN 0, 30 AT 19:REM polyex
60 PRINT "SOME SERIOUS ?SYANTAX ERRORS HERE":REM classicgamer_27330
70 INPUT "TO CONTINUE, INPUT THE SECRET NUMBER?";A : REM classicgamer_27330
77 IF A=77 THEN PRINT "THE SECRET NUMBER IS NOT THIS LINE NUMBER" : GOTO 70 : REM classicgamer_27330
80 GOSUB 5000:GOSUB 5010:REM OSGELD 
85 IF A=666 THEN PRINT "GO TO HEAVEN!":GOTO 70:REM DeathAdderSF
90 IF A=2 THEN ? "INTERNETJUNKIE2 STRIKES": ?"ENGAGE TROLL SPRAY!":GOSUB 5000:GOSUB 5005:COLOR=12:FOR TS = 1 TO 100:SX = INT(40*RND(1)):SY = INT(40*RND(1)):PLOT SX,SY:NEXT TS:REM OSGELD

500 GOTO 70 : REM CLASSICGAMER_27330

4999 END:REM OSGELD
5000 BN=-16336:FOR BT = 1 TO 25:B1=PEEK(BN) + (BT*BT):NEXT BT:RETURN:REM OSGELD MID TONE
5005 BN=-16336:FOR BT = 1 TO 25:B1=PEEK(BN) + (BT/255):NEXT BT:RETURN:REM OSGELD LOW TONE
5010 BN=-16336:FOR BT = 1 TO 25:B1=PEEK(BN) + (BT):NEXT BT:RETURN:REM OSGELD HIGH TONE

note even if it has syntax errors i have fixed them in the above listing over the course of this thread 

Edited September 20 by Osgeld

[classicgamer_27330]

95 IF A=63997 THEN PRINT "YOU PICKED THE LARGEST LINE NUMBER IN APPLESOFT BASIC FOR THE APPLE IIE AND A PRIME NUMBER FOR THE SECRET NUMBER" : REM CLASSICGAMER_27330

[DeathAdderSF]

100 IF A=6502 THEN PRINT"IT'S NO SECRET THAT IT'S A FINE CHIP!":PRINT:GOTO 70

[Osgeld]

0 TEXT:HOME:REM skr, osgeld edit 
5 ?"ATARIAGE Create an applesoft basic":?"program one line at a time":?:?"PRESS ANY KEY TO START":INPUT N$:REM osgeld 
10 COLOR = 2:REM skr
20 GR:REM ClausB
30 REM DUPE OF 50 VLIN 0,30 AT 19: REM skr
40 REM Why is someone posting scans in here? DeathAdderSF
50 COLOR = 2: VLIN 0, 30 AT 19:REM polyex
60 PRINT "SOME SERIOUS ?SYANTAX ERRORS HERE":REM classicgamer_27330
70 INPUT "TO CONTINUE, INPUT THE SECRET NUMBER?";A : REM classicgamer_27330
77 IF A=77 THEN PRINT "THE SECRET NUMBER IS NOT THIS LINE NUMBER" : GOTO 70 : REM classicgamer_27330
80 GOSUB 5000:GOSUB 5010:REM OSGELD 
85 IF A=666 THEN PRINT "GO TO HEAVEN!":GOTO 70:REM DeathAdderSF
90 IF A=2 THEN ? "INTERNETJUNKIE2 STRIKES": ?"ENGAGE TROLL SPRAY!":GOSUB 5000:GOSUB 5005:COLOR=12:FOR TS = 1 TO 100:SX = INT(40*RND(1)):SY = INT(40*RND(1)):PLOT SX,SY:NEXT TS:REM OSGELD
95 IF A=63997 THEN PRINT "YOU PICKED THE LARGEST LINE NUMBER IN APPLESOFT BASIC FOR THE APPLE IIE AND A PRIME NUMBER FOR THE SECRET NUMBER": REM CLASSICGAMER_27330
100 IF A=6502 THEN PRINT"IT'S NO SECRET THAT IT'S A FINE CHIP!":REM DeathAdder
105 IF A=6502 THEN FOR AL=1 TO 5: GOSUB 5000:GOSUB 5010:NEXT AL: REM OSGELD 

500 GOTO 70 : REM CLASSICGAMER_27330

4999 END:REM OSGELD
5000 BN=-16336:FOR BT = 1 TO 25:B1=PEEK(BN) + (BT*BT):NEXT BT:RETURN:REM OSGELD MID TONE
5005 BN=-16336:FOR BT = 1 TO 25:B1=PEEK(BN) + (BT/255):NEXT BT:RETURN:REM OSGELD LOW TONE
5010 BN=-16336:FOR BT = 1 TO 25:B1=PEEK(BN) + (BT):NEXT BT:RETURN:REM OSGELD HIGH TONE

 

[DeathAdderSF]

Please stop erasing my second PRINT statements. They are there for a reason, to create linebreaks.

[Osgeld]

in not the owner of this feel free to correct me 

 

0 TEXT:HOME:REM skr, osgeld edit 
5 ?"ATARIAGE Create an applesoft basic":?"program one line at a time":?:?"PRESS ANY KEY TO START":INPUT N$:REM osgeld 
10 COLOR = 2:REM skr
20 GR:REM ClausB
30 REM DUPE OF 50 VLIN 0,30 AT 19: REM skr
40 REM Why is someone posting scans in here? DeathAdderSF
50 COLOR = 2: VLIN 0, 30 AT 19:REM polyex
60 PRINT "SOME SERIOUS ?SYANTAX ERRORS HERE":REM classicgamer_27330
70 INPUT "TO CONTINUE, INPUT THE SECRET NUMBER?";A : REM classicgamer_27330
77 IF A=77 THEN PRINT "THE SECRET NUMBER IS NOT THIS LINE NUMBER" : GOTO 70 : REM classicgamer_27330
80 GOSUB 5000:GOSUB 5010:REM OSGELD 
85 IF A=666 THEN PRINT "GO TO HEAVEN!":GOTO 70:REM DeathAdderSF
90 IF A=2 THEN ? "INTERNETJUNKIE2 STRIKES": ?"ENGAGE TROLL SPRAY!":GOSUB 5000:GOSUB 5005:COLOR=12:FOR TS = 1 TO 100:SX = INT(40*RND(1)):SY = INT(40*RND(1)):PLOT SX,SY:NEXT TS:REM OSGELD
95 IF A=63997 THEN PRINT "YOU PICKED THE LARGEST LINE NUMBER IN APPLESOFT BASIC FOR THE APPLE IIE AND A PRIME NUMBER FOR THE SECRET NUMBER": REM CLASSICGAMER_27330
100 IF A=6502 THEN PRINT"IT'S NO SECRET THAT IT'S A FINE CHIP!":PRINT:GOTO 70
105 IF A=6502 THEN FOR AL=1 TO 5: GOSUB 5000:GOSUB 5010:NEXT AL: REM OSGELD 

500 GOTO 70 : REM CLASSICGAMER_27330

4999 END:REM OSGELD
5000 BN=-16336:FOR BT = 1 TO 25:B1=PEEK(BN) + (BT*BT):NEXT BT:RETURN:REM OSGELD MID TONE
5005 BN=-16336:FOR BT = 1 TO 25:B1=PEEK(BN) + (BT/255):NEXT BT:RETURN:REM OSGELD LOW TONE
5010 BN=-16336:FOR BT = 1 TO 25:B1=PEEK(BN) + (BT):NEXT BT:RETURN:REM OSGELD HIGH TONE

 

im just keeping the listing in a text file trying to fix bugs, feel free to do the same it would help lol 

Edited Thursday at 02:53 AM by Osgeld