From d2ceb30536648685da7a4cfc70984bd8a15c414b Mon Sep 17 00:00:00 2001 From: Tyrel Souza Date: Thu, 13 Jul 2023 23:11:52 -0400 Subject: [PATCH] first commit --- c_to_f | 12 ++++++++++ d | 18 +++++++++++++++ dos | 36 +++++++++++++++++++++++++++++ f_to_c | 12 ++++++++++ face | 22 ++++++++++++++++++ hello | 10 ++++++++ jim | 33 +++++++++++++++++++++++++++ mult | 20 ++++++++++++++++ paula | 12 ++++++++++ pl | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ sk | 46 +++++++++++++++++++++++++++++++++++++ sonia | 13 +++++++++++ uuuu | 19 ++++++++++++++++ we | 16 +++++++++++++ 14 files changed, 341 insertions(+) create mode 100644 c_to_f create mode 100644 d create mode 100644 dos create mode 100644 f_to_c create mode 100644 face create mode 100644 hello create mode 100644 jim create mode 100644 mult create mode 100644 paula create mode 100644 pl create mode 100644 sk create mode 100644 sonia create mode 100644 uuuu create mode 100644 we diff --git a/c_to_f b/c_to_f new file mode 100644 index 0000000..4ff9ccf --- /dev/null +++ b/c_to_f @@ -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 diff --git a/d b/d new file mode 100644 index 0000000..55ecacf --- /dev/null +++ b/d @@ -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 diff --git a/dos b/dos new file mode 100644 index 0000000..bedc73b --- /dev/null +++ b/dos @@ -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 diff --git a/f_to_c b/f_to_c new file mode 100644 index 0000000..be23a48 --- /dev/null +++ b/f_to_c @@ -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 diff --git a/face b/face new file mode 100644 index 0000000..3118573 --- /dev/null +++ b/face @@ -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 diff --git a/hello b/hello new file mode 100644 index 0000000..4a391e1 --- /dev/null +++ b/hello @@ -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 diff --git a/jim b/jim new file mode 100644 index 0000000..c405ac2 --- /dev/null +++ b/jim @@ -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" diff --git a/mult b/mult new file mode 100644 index 0000000..37b7b57 --- /dev/null +++ b/mult @@ -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 diff --git a/paula b/paula new file mode 100644 index 0000000..23adaea --- /dev/null +++ b/paula @@ -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" diff --git a/pl b/pl new file mode 100644 index 0000000..90b25ee --- /dev/null +++ b/pl @@ -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 diff --git a/sk b/sk new file mode 100644 index 0000000..c4410b9 --- /dev/null +++ b/sk @@ -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 diff --git a/sonia b/sonia new file mode 100644 index 0000000..c7cbfac --- /dev/null +++ b/sonia @@ -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 diff --git a/uuuu b/uuuu new file mode 100644 index 0000000..eb6ec71 --- /dev/null +++ b/uuuu @@ -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!" diff --git a/we b/we new file mode 100644 index 0000000..f5186aa --- /dev/null +++ b/we @@ -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