Broken Program 2

Date: 198x
Type: Program
Platform(s): TS 1000

Appears to accept user input and sketch with it.

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10294-10335.

Related Products

Related Articles

Related Content

Image Gallery

Broken Program 2

Source Code

10 LET K=2 20 LET A=10 30 LET B=A 40 LET C=A+A 50 LET D=6 60 PRINT AT C,D;"% % % % % % " 70 PRINT AT A,B;"% " 80 SCROLL 90 IF CODE INKEY$=50 THEN LET B=B+1 100 IF CODE INKEY$=63 THEN LET B=B-1 110 PRINT AT A,B;"% " 120 IF D>17 OR D<7 THEN LET K=-K 130 LET D=D+RND**K 140 IF NOT CODE INKEY$ THEN RETURN 150 GOTO 60 160 CLEAR 170 SAVE "1032%3" 180 RUN

People

No people associated with this content.

Scroll to Top