Forums
New posts
Search forums
What's new
New posts
New media
New media comments
New profile posts
Latest activity
Media
New media
New comments
Search media
Members
Current visitors
New profile posts
Search profile posts
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Search forums
Menu
Log in
Register
Install the app
Install
Forums
Learning
Computers and Software
A trip down memory lane for some.
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Reply to thread
Message
<blockquote data-quote="AxeMan - Rick S." data-source="post: 27967" data-attributes="member: 1746"><p>Rebuilt, refit, and repurposed. Ah, I was getting excited there, even broke out my old tape drive. How far we have come in 25+ years!</p><p></p><p>To think I went to collage to learn this:</p><p></p><p>10 FOR B=99 TO 1 STEP -1</p><p>20 GOSUB 100</p><p>30 T$=T$+" OF BEER ON THE WALL"</p><p>40 PRINT T$;", ";T$</p><p>50 PRINT "TAKE ONE DOWN AND PASS IT AROUND, "</p><p>60 IF B-1<=0 THEN PRINT "NO MORE BOTTLES OF BEER ON THE WALL":GOTO 80</p><p>70 GOSUB 200<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite7" alt=":p" title="Stick out tongue :p" loading="lazy" data-shortname=":p" />RINT " OF BEER ON THE WALL"</p><p>80 PRINT:NEXT</p><p>91 PRINT "GO TO THE STORE AND BUY SOME MORE, 99 BOTTLES OF BEER ON THE WALL"</p><p>92 END</p><p>100 T$=STR$(B)+" BOTTLE":IF B>1 THEN T$=T$+"S"</p><p>110 RETURN</p><p>200 A=B-1<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite7" alt=":p" title="Stick out tongue :p" loading="lazy" data-shortname=":p" />RINT STR$(A)+" BOTTLE";</p><p>210 IF A>1 THEN PRINT "S";</p><p>220 RETURN</p><p></p><p><Taken from the web too lazy to write one out for this post></p><p></p><p>I must be ancient. <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite7" alt=":p" title="Stick out tongue :p" loading="lazy" data-shortname=":p" /></p></blockquote><p></p>
[QUOTE="AxeMan - Rick S., post: 27967, member: 1746"] Rebuilt, refit, and repurposed. Ah, I was getting excited there, even broke out my old tape drive. How far we have come in 25+ years! To think I went to collage to learn this: 10 FOR B=99 TO 1 STEP -1 20 GOSUB 100 30 T$=T$+" OF BEER ON THE WALL" 40 PRINT T$;", ";T$ 50 PRINT "TAKE ONE DOWN AND PASS IT AROUND, " 60 IF B-1<=0 THEN PRINT "NO MORE BOTTLES OF BEER ON THE WALL":GOTO 80 70 GOSUB 200:PRINT " OF BEER ON THE WALL" 80 PRINT:NEXT 91 PRINT "GO TO THE STORE AND BUY SOME MORE, 99 BOTTLES OF BEER ON THE WALL" 92 END 100 T$=STR$(B)+" BOTTLE":IF B>1 THEN T$=T$+"S" 110 RETURN 200 A=B-1:PRINT STR$(A)+" BOTTLE"; 210 IF A>1 THEN PRINT "S"; 220 RETURN <Taken from the web too lazy to write one out for this post> I must be ancient. :p [/QUOTE]
Verification
Post reply
Forums
Learning
Computers and Software
A trip down memory lane for some.
Top