Jump to content
IGNORED

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


Recommended Posts

Let's see how this goes.  Here are some ground rules.

- Your line can be inserted anywhere in the program.

- No double posting without waiting 24 hours.

- You can cause an error in the program. E.g if I started the program with a simple GOTO line, we would get an UNDEF'D STATEMENT ERROR, or another user could put RETURN, and get a RETURN WITHOUT GOSUB ERROR. These should be corrected though

- The program must keep going (no END without another path running or have an infinite loop without an escape hatch)
 

I'll start


0 HOME

  • Like 1
Link to comment
Share on other sites

  • 3 months later...
  • 3 weeks later...
  • 2 months later...
  • 2 weeks later...
0 HOME
1 ?"ATARIAGE Create an applesoft basic":?"program one line at a time":?:?"PRESS ANY NUMBER TO START":INPUT P:IF P=<128 THEN GOTO 10:rem osgeld 
10 COLOR = 2
20 GR
30 REM DUPE OF 50 VLIN 0,30 AT 19
40 REM Why is someone posting scans in here?
50 COLOR = 2: VLIN 0, 30 AT 19

 

Edited by Osgeld
Link to comment
Share on other sites

I changed line 0 and changed line 1 to 5 

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

 

Link to comment
Share on other sites

On 8/29/2024 at 1:22 PM, classicgamer_27330 said:

70 INPUT "TO CONTINUE, INPUT THE SECRET NUMBER?";A : REM classicgamer_27330

not sure where you're going with that but we shall see 

 

forget it I havent posted in a few days so I made some sound subroutines, its 5 lines but its been almost 8 days since I posted last 

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
80 GOSUB 5000:GOSUB 5010:REM OSGELD

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

 

Edited by Osgeld
Link to comment
Share on other sites

On 8/23/2024 at 7:24 AM, DeathAdderSF said:

 

My question remains unanswered.

Considering the unlikelihood of anything coherent getting made in this exercise, I find the scans recreations a welcome diversion. I welcome a rebutle! Please anyone find me such an exercise, writing one line of Basic at a time, and I mean any flavor of Basic on any platform!, producing anything that can be run. Please give us a link.  A funny human-readable story is possible, but a program? I don't believe it can be done.

Link to comment
Share on other sites

On 9/7/2024 at 5:01 PM, InternetJunkie2 said:

Considering the unlikelihood of anything coherent getting made in this exercise, I find the scans recreations a welcome diversion. I welcome a rebutle! Please anyone find me such an exercise, writing one line of Basic at a time, and I mean any flavor of Basic on any platform!, producing anything that can be run. Please give us a link.  A funny human-readable story is possible, but a program? I don't believe it can be done.

post-27864-0-47828000-1393713590_thumb.jpg

  • Like 1
Link to comment
Share on other sites

On 9/7/2024 at 4:01 PM, InternetJunkie2 said:

Considering the unlikelihood of anything coherent getting made in this exercise, I find the scans recreations a welcome diversion. I welcome a rebutle! Please anyone find me such an exercise, writing one line of Basic at a time, and I mean any flavor of Basic on any platform!, producing anything that can be run. Please give us a link.  A funny human-readable story is possible, but a program? I don't believe it can be done.

I mean it runs ... it doesnt do anything but it runs 

Link to comment
Share on other sites

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

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

 

Edited by Osgeld
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...