first commit
This commit is contained in:
Tyrel Souza
commit
d2ceb30536
12
c_to_f
Normal file
12
c_to_f
Normal file
@ -0,0 +1,12 @@
|
||||
Name : C TO F
|
||||
Length : $00A8 (168)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
20 PRINT "THIS PROGRAM WILL CONVERT CELSIUS TO FAHRENHEIT"
|
||||
30 PRINT "
|
||||
35 PRINT
|
||||
40 PRINT "ENTER YOUR CELSIUS DEGREE."
|
||||
50 INPUT A
|
||||
60 PRINT "YOUR FAHRENHEIT DEGREE IS..."
|
||||
70 PRINT A * 9 / 5 + 32
|
||||
18
d
Normal file
18
d
Normal file
@ -0,0 +1,18 @@
|
||||
Name : D
|
||||
Length : $00BD (189)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
15 REM THIS PROGRAM PUTS DOTS RANDOMLY ON YOUR SCREEN.
|
||||
20 GR
|
||||
30 COLOR= 4
|
||||
40 FOR X = 1 TO 100
|
||||
50 I = INT (100 * RND (1)) + 1
|
||||
60 IF I > 39 THEN
|
||||
I = INT (I / 4)
|
||||
70 Y = INT (100 * RND (1)) + 1
|
||||
80 IF Y > 39 THEN
|
||||
Y = INT (Y / 4)
|
||||
90 PLOT I,Y
|
||||
100 NEXT X
|
||||
110 END
|
||||
36
dos
Normal file
36
dos
Normal file
@ -0,0 +1,36 @@
|
||||
Name : DOS
|
||||
Length : $06D7 (1,751)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
15 REM THIS PROGRAM WILL SHOW YOU ALL THE DOS COMMANDS.
|
||||
20 PRINT "DOS COMMANDS"
|
||||
25 PRINT
|
||||
30 PRINT "RUN- TELLS THE COMPUTER TO TAKE INFORMATION FROM THE DISKETTE AND PLACE IT IN THE CENTRAL PROCESSING UNIT(CPU) AND THEN ACT ON THAT INFORMATION.
|
||||
35 PRINT
|
||||
40 PRINT "THIS COMMAND MUST BE FOLLOWED BY THE NAME OF A PROGRAM THAT IS ON A DISK BEFORE THE CPU WILL EXECUTE THE RUN COMMAND.
|
||||
45 PRINT
|
||||
50 PRINT "LIST-TELLS THE COMPUTER TO LIST THE LINES OF THE PROGRAM .INSTEAD OF TELLING THE COMPUTER TO ACT ON THE PROGRAM INFORMATION, IT TELLS THE COMPUTER TO PRESENT EACH LINE OF THE PROGRAM.
|
||||
55 PRINT
|
||||
56 PRINT "THIS IS A FIFTEEN SECOND DELAY"
|
||||
57 FOR I = 1 TO 5000
|
||||
58 NEXT I
|
||||
60 PRINT "LOAD-TELLS THE COMPUTER TO GET INFORMATION FROM THE DISK AND PLACE IT INTO THE CPU . LOAD WILL NOT RUN A PROGRAM. ONCE LOADED,YOU MUST ENTER ANOTHER DOS COMMAND SUCH AS RUN OR LIST.
|
||||
65 PRINT
|
||||
70 PRINT "CATALOG- WILL PRESENT THE DIRECTORYOF THE DISKETTE AND A LIST OF THE NAMES OF EACH PROGRAM WILL BE DISPLAYED.REMEMBER,THE COMMANDS RUN,LIST,OR LOAD MUST BE FOLLOWED BY ONE OF THE PROGRAM NAMES EXACTLY AS IT APPEARS ON THE CATALOG.
|
||||
75 PRINT
|
||||
80 PRINT "DELETE-FOLLOWED BY A PROGRAM NAME,REMOVES THE PROGRAM FROM THE DISKETTE. REMEMBER, ONCE A PROGRAM IS DELETED, IT IS GONE FOREVER.BE CERTAIN YOU WANT TO GET RID OF A PROGRAM BEFORE YOU USE DELETE.
|
||||
85 PRINT
|
||||
86 PRINT "THIS IS A FIFTEEN SECOND DELAY"
|
||||
87 FOR I = 1 TO 5000
|
||||
88 NEXT I
|
||||
90 PRINT "NEW-ERASES ALL INFORMATION IN THE CPU. IT WILL ALLOW THE COMPUTER OPERATOR TO BEGIN WRITING A NEW PROGRAM. NEW DOES NOT AFFECT ANY INFORMATION ALREADY STORED ON A DISKETTE.
|
||||
95 PRINT
|
||||
100 PRINT "GRAPHICS=GR-GOES TO GRAPHIC SCREEN.
|
||||
105 PRINT
|
||||
110 PRINT "PLOT-PUTS A SPECIFIC SPOT ON THE GRAPHICS SCREEN.
|
||||
115 PRINT
|
||||
120 PRINT "COLOR-GIVES YOU A SHADE OF COLOR.
|
||||
125 PRINT
|
||||
130 PRINT "TEXT-IT WILL PUT YOU ON A SCREEN THAT ALLOWS YOU TO PRINT ON.
|
||||
135 PRINT
|
||||
12
f_to_c
Normal file
12
f_to_c
Normal file
@ -0,0 +1,12 @@
|
||||
Name : F TO C
|
||||
Length : $00AC (172)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
20 PRINT "THIS PROGRAM WILL CONVERT FAHRENHEIT"
|
||||
30 PRINT "TO CELSIUS."
|
||||
35 PRINT
|
||||
40 PRINT "ENTER YOUR FAHRENHEIT DEGREE."
|
||||
50 INPUT A
|
||||
60 PRINT "YOUR CELSIUS DEGREE IS... "
|
||||
70 PRINT (A - 32) * 5 / 9
|
||||
22
face
Normal file
22
face
Normal file
@ -0,0 +1,22 @@
|
||||
Name : FACE
|
||||
Length : $00CB (203)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
15 REM THIS PROGRAM WILL SHOW YOU A FACE.
|
||||
20 GR
|
||||
30 COLOR= 3
|
||||
40 PLOT 16,16
|
||||
50 PLOT 24,16
|
||||
60 PLOT 20,22
|
||||
70 PLOT 19,28
|
||||
80 PLOT 20,28
|
||||
90 PLOT 21,28
|
||||
100 PLOT 22,27
|
||||
110 PLOT 23,26
|
||||
120 PLOT 18,27
|
||||
130 PLOT 17,26
|
||||
140 END
|
||||
5024 ,16
|
||||
6020 ,22
|
||||
7019 ,28
|
||||
10
hello
Normal file
10
hello
Normal file
@ -0,0 +1,10 @@
|
||||
Name : HELLO
|
||||
Length : $0049 (73)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
1 REM
|
||||
10 HOME
|
||||
20 FLASH
|
||||
30 PRINT "THIS DISK BELONGS TO SONIA !!!"
|
||||
40 GOTO 30
|
||||
50 END
|
||||
33
jim
Normal file
33
jim
Normal file
@ -0,0 +1,33 @@
|
||||
Name : JIM
|
||||
Length : $024C (588)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
15 REM THIS PROGRAM WILL SHOW YOU A BUISNESS LETTER.
|
||||
20 HTAB 20
|
||||
30 PRINT "SONIA MORSE"
|
||||
40 HTAB 20
|
||||
50 PRINT "RFD #2 BOX 623"
|
||||
60 HTAB 20
|
||||
70 PRINT "HILLSBORO,NH"
|
||||
80 HTAB 20
|
||||
90 PRINT "03244"
|
||||
100 HTAB 20
|
||||
110 PRINT "OCTOBER 15,1986"
|
||||
130 PRINT "JIM MORSE"
|
||||
150 PRINT "SUPERINTENDENT OF GREENWICH C.C"
|
||||
170 PRINT "GREENWICH,CT"
|
||||
190 PRINT "01036"
|
||||
200 VTAB 12
|
||||
210 PRINT "DEAR SIR,"
|
||||
220 HTAB 6
|
||||
225 PRINT "I WOULD LIKE TO GET A JOB WORKING AT YOUR GOLF COURSE.I HAVE HAD EXPERIENCE OF WORKING AT A GOLF COURSE IN THE PAST.
|
||||
226 PRINT "PLEASE TAKE INTO CONSIDERATION OF HIRING ME."
|
||||
230 HTAB 12
|
||||
240 PRINT "THANK-YOU!"
|
||||
250 VTAB 22
|
||||
260 HTAB 20
|
||||
270 PRINT "SINCERLY,"
|
||||
280 VTAB 23
|
||||
290 HTAB 20
|
||||
300 PRINT "SONIA MORSE"
|
||||
20
mult
Normal file
20
mult
Normal file
@ -0,0 +1,20 @@
|
||||
Name : MULT.
|
||||
Length : $0124 (292)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
20 PRINT "THIS PROGRAM WILL MULTIPLY ANY TWO NUMBERS."
|
||||
30 PRINT "ENTER ANY NUMBER..."
|
||||
40 INPUT A
|
||||
50 PRINT "ENTER ANY NUMBER..."
|
||||
60 INPUT B
|
||||
70 PRINT "HOW MUCH IS "A"*"B"?"
|
||||
80 INPUT C
|
||||
90 IF C = A * B THEN
|
||||
PRINT "CORRECT! DO YOU WANT TO TRY AGAIN? "
|
||||
100 IF C < > A * B THEN
|
||||
PRINT "WRONG.DO YOU WANT TO TRY AGAIN?"
|
||||
110 INPUT A$
|
||||
120 IF A$ = "YES" THEN
|
||||
GOTO 10
|
||||
130 END
|
||||
12
paula
Normal file
12
paula
Normal file
@ -0,0 +1,12 @@
|
||||
Name : PAULA
|
||||
Length : $00CF (207)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
11 REM THIS PROGRAM WILL SHOW YOU A LETTER.
|
||||
20 PRINT "DEAR PAULA,"
|
||||
30 PRINT "HI ! HOW ARE YOU? "
|
||||
40 PRINT "DO YOU LIKE SCHOOL? "
|
||||
50 PRINT "I THINK SCHOOL IS SORT-OF HARD."
|
||||
60 PRINT "WELL I GOT TO GO,(BYE)"
|
||||
70 PRINT "SONIA"
|
||||
72
pl
Normal file
72
pl
Normal file
@ -0,0 +1,72 @@
|
||||
Name : PL
|
||||
Length : $02EC (748)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
15 REM THIS PROGRAM WILL SHOW YOU A SPACESHIP OR ROCKET.
|
||||
20 GR
|
||||
30 COLOR= 3
|
||||
40 PLOT 1,39
|
||||
50 PLOT 2,38
|
||||
60 PLOT 3,37
|
||||
70 PLOT 4,36
|
||||
80 PLOT 4,35
|
||||
90 PLOT 4,34
|
||||
100 PLOT 4,33
|
||||
110 PLOT 4,32
|
||||
120 PLOT 4,31
|
||||
130 PLOT 4,30
|
||||
140 PLOT 4,29
|
||||
150 PLOT 4,28
|
||||
160 PLOT 4,27
|
||||
170 PLOT 4,26
|
||||
180 PLOT 4,25
|
||||
190 PLOT 4,24
|
||||
200 PLOT 4,23
|
||||
210 PLOT 4,22
|
||||
220 PLOT 4,21
|
||||
230 PLOT 4,20
|
||||
240 PLOT 5,19
|
||||
250 PLOT 6,18
|
||||
260 PLOT 7,17
|
||||
270 PLOT 8,16
|
||||
280 PLOT 9,15
|
||||
290 PLOT 10,16
|
||||
300 PLOT 11,17
|
||||
310 PLOT 12,18
|
||||
320 PLOT 13,19
|
||||
330 PLOT 13,20
|
||||
340 PLOT 13,21
|
||||
350 PLOT 13,22
|
||||
360 PLOT 13,23
|
||||
370 PLOT 13,24
|
||||
380 PLOT 13,25
|
||||
390 PLOT 13,26
|
||||
400 PLOT 13,27
|
||||
410 PLOT 13,28
|
||||
420 PLOT 13,29
|
||||
430 PLOT 13,30
|
||||
440 PLOT 13,31
|
||||
450 PLOT 13,32
|
||||
460 PLOT 13,33
|
||||
470 PLOT 13,34
|
||||
480 PLOT 13,35
|
||||
490 PLOT 13,36
|
||||
500 PLOT 14,37
|
||||
510 PLOT 15,38
|
||||
520 PLOT 16,39
|
||||
530 PLOT 15,39
|
||||
540 PLOT 14,39
|
||||
550 PLOT 13,39
|
||||
560 PLOT 12,39
|
||||
570 PLOT 11,39
|
||||
580 PLOT 10,39
|
||||
590 PLOT 9,39
|
||||
600 PLOT 8,39
|
||||
610 PLOT 7,39
|
||||
620 PLOT 6,39
|
||||
630 PLOT 5,39
|
||||
640 PLOT 4,39
|
||||
650 PLOT 3,39
|
||||
660 PLOT 2,39
|
||||
670 PLOT 1,39
|
||||
46
sk
Normal file
46
sk
Normal file
@ -0,0 +1,46 @@
|
||||
Name : SK
|
||||
Length : $0259 (601)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
20 REM THIS PROGRAM WILL SHOW YOU A SKYLINE.
|
||||
30 PRINT
|
||||
35 PRINT "I HAVE A PICTURE OF A SKYLINE,"
|
||||
40 PRINT "DEPENDING ON WHETHER OR NOT YOU WOULD LIKE TO SEE IT,TYPE IN YES OR NO."
|
||||
50 INPUT A$
|
||||
60 IF A$ = "NO" THEN
|
||||
END
|
||||
70 GR
|
||||
80 COLOR= 3
|
||||
90 VLIN 39,0 AT 0
|
||||
100 HLIN 0,10 AT 0
|
||||
110 VLIN 0,39 AT 10
|
||||
120 VLIN 0,25 AT 10
|
||||
130 VLIN 10,20 AT 10
|
||||
140 HLIN 10,20 AT 10
|
||||
150 VLIN 30,20 AT 20
|
||||
160 VLIN 10,15 AT 20
|
||||
170 VLIN 10,20 AT 20
|
||||
180 VLIN 10,30 AT 20
|
||||
190 VLIN 10,39 AT 20
|
||||
200 VLIN 10,39 AT 20
|
||||
210 VLIN 10,0 AT 20
|
||||
220 HLIN 20,30 AT 0
|
||||
230 VLIN 0,39 AT 30
|
||||
240 VLIN 20,30 AT 30
|
||||
250 VLIN 39,19 AT 30
|
||||
260 HLIN 30,39 AT 19
|
||||
270 VLIN 19,39 AT 39
|
||||
280 COLOR= 6
|
||||
290 PLOT 2,8
|
||||
300 PLOT 3,9
|
||||
310 PLOT 8,16
|
||||
320 PLOT 12,17
|
||||
330 PLOT 24,24
|
||||
340 PLOT 25,7
|
||||
350 PLOT 32,24
|
||||
360 PLOT 5,15
|
||||
370 PLOT 38,25
|
||||
380 PLOT 29,21
|
||||
390 PLOT 21,15
|
||||
400 PLOT 15,15
|
||||
13
sonia
Normal file
13
sonia
Normal file
@ -0,0 +1,13 @@
|
||||
Name : SONIA
|
||||
Length : $00F3 (243)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
15 REM THIS PROGRAM WILL SHOW YOU MY NAME,ADDRESS,AND MY TELEPHONE #
|
||||
20 PRINT "THIS DISK BELONGS TO :"
|
||||
30 PRINT "SONIA MORSE"
|
||||
40 PRINT "RFD #2 BOX 623 PRESTON STREET"
|
||||
50 PRINT "HILLSBORO, NEW HAMPSHIRE"
|
||||
60 PRINT " 03244"
|
||||
70 PRINT "(603) 464-3444"
|
||||
80 END
|
||||
19
uuuu
Normal file
19
uuuu
Normal file
@ -0,0 +1,19 @@
|
||||
Name : UUUU
|
||||
Length : $0143 (323)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
15 REM THIS PROGRAM WILL GUESS A NUMBER BETWEEN 1-1000.
|
||||
20 X = INT (1000 * RND (10))
|
||||
30 PRINT "GUESS A NUMBER BETWEEN 1-1000."
|
||||
40 INPUT A
|
||||
45 IF A = X THEN
|
||||
GOTO 70
|
||||
50 IF A < X THEN
|
||||
GOTO 80
|
||||
60 IF A > X THEN
|
||||
GOTO 90
|
||||
65 GOTO 40
|
||||
70 PRINT "YOU ARE CORRECT!"
|
||||
75 END
|
||||
80 PRINT "TRY AGAIN,BUT THIS TIME TRY A LARGER NUMBER!"
|
||||
16
we
Normal file
16
we
Normal file
@ -0,0 +1,16 @@
|
||||
Name : WE
|
||||
Length : $011B (283)
|
||||
Load at : $0801 (2,049)
|
||||
|
||||
10 HOME
|
||||
15 REM THIS PROGRAM WILL ASK YOU YOUR NAME,YOU STREET ADDRESS,THE TOWN YOU LIVE
|
||||
IN,AND YOUR TELEPHONE #
|
||||
20 PRINT "WHAT IS YOUR NAME?"
|
||||
30 INPUT A$
|
||||
40 PRINT "WHAT IS YOUR STREET ADDRESS?"
|
||||
50 INPUT B$
|
||||
60 PRINT "WHAT TOWN DO YOU LIVE IN?"
|
||||
70 INPUT C$
|
||||
80 PRINT "WHAT IS YOUR TELEPHONE NUMBER?"
|
||||
90 INPUT D$
|
||||
100 HOME
|
||||
Loading…
Reference in New Issue
Block a user