tyrel/sonia_morse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

first commit

Browse Source
This commit is contained in:
Tyrel Souza 2023-07-13 23:11:52 -04:00
commit d2ceb30536
No known key found for this signature in database
GPG Key ID: F3614B02ACBE438E
14 changed files with 341 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
c_to_f Normal file
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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
View 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