APPLE ][ NOTEPAD BY TOOLKITMAN

6 posts / 0 new
Last post
Toolkitman's picture
Offline
Last seen: 1 month 2 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
APPLE ][ NOTEPAD BY TOOLKITMAN

I have programmed this simple APPLE ][ NOTEPAD for Applesoft basic:
5 SPEED=150
6 HOME
10 PRINT "APPLE ][ NOTEPAD BY MATTEO TREVISAN VERSION 1.0"
20 PRINT "WRITE TITLE HERE ": INPUT A$
30 PRINT "WRITE COMMENT HERE ": INPUT B$
40 PRINT "WRITE BODY HERE TYPE RETURN AFTER EVERY LINE YOU HAVE 19 LINE OF TEXT MAXIMUM IF YOU WANT TO LEAVE BLANK LINE TYPE RETURN UNTIL THE END OF 19 LINES"
50 INPUT C$:INPUT F$ :INPUT G$ :INPUT H$ :INPUT I$:INPUT L$:INPUT M$
60 INPUT N$:INPUT O$:INPUT P$:INPUT Q$:INPUT R$:INPUT S$:INPUT T$:INPUT U$:INPUT V$:INPUT Z$:INPUT X$:INPUT Y$
70 PRINT "DO YOU WANT I SHOW YOUR TEXT ": INPUT D$
80 IF D$ = "YES" THEN PRINT A$:PRINT B$:PRINT C$:PRINT F$ :PRINT G$ :PRINT H$:PRINT I$:PRINT L$:PRINT M$:PRINT N$:PRINT O$:PRINT P$:PRINT Q$:PRINT R$:PRINT S$:PRINT T$:PRINT U$:PRINT V$:PRINT Z$:PRINT X$:PRINT Y$
90 IF D$ <> "YES" THEN GOTO 10
100 PRINT "DO YOU WANT TO SAVE TO CASSETTE ": INPUT E$
110 IF E$ = "YES" THEN SAVE
120 IF E$ <> "YES" THEN GOTO 10
130 END
Here a downloadable .dsk version https://archive.org/download/APPLENOTEPADBYMATTEOTREVISAN

Offline
Last seen: 1 year 6 months ago
Joined: May 27 2013 - 13:01
Posts: 849
Re: APPLE ][ NOTEPAD BY TOOLKITMAN

"DO YOU WANT I SHOW YOUR TEXT "

No.

Offline
Last seen: 1 day 6 hours ago
Joined: May 21 2015 - 02:14
Posts: 40
Re: APPLE ][ NOTEPAD BY TOOLKITMAN

Hello Toolkitman

Nice code! Thanks for sharing.

I guess what Insanitor wanted to suggest (I am not a native speaker too) is:

Would be better to change "DO YOU WANT I SHOW YOUR TEXT" to something else

Maybe: "DO YOU WANT TO SHOW YOUR TEXT ON THE SCREEN?"

Offline
Last seen: 6 years 1 month ago
Joined: Jul 15 2014 - 10:52
Posts: 43
Re: APPLE ][ NOTEPAD BY TOOLKITMAN

How about a slight modification for DOS?

New saving code (unless you want a non-functional program, do not enter the HTML line breaks):
<br /> 100 PRINT "DO YOU WANT TO SAVE TO DISK";: INPUT E$<br /> 105 CD$ = CHR$(4)<br /> 109 IF E$ &lt;&gt; "YES" THEN 10<br /> 110 PRINT "FILENAME";: INPUT FN$: PRINT CD$;"SAVE ";FN$<br /> 120<br />

This code saves the entire program under a given filename in Apple DOS. I don't know how to do it in ProDOS. Simply enter
RUN filename
at the Applesoft prompt with DOS loaded to load your text.

If I were you, I would also consider adding the ability to edit individual lines.

macnoyd's picture
Offline
Last seen: 3 hours 8 min ago
Joined: Oct 15 2012 - 08:59
Posts: 836
Re: APPLE ][ NOTEPAD BY TOOLKITMAN

I was thinking of doing the same thing, (adding disk save capability) but give it a choice. (disk or cassette)

Toolkitman's picture
Offline
Last seen: 1 month 2 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
Re: APPLE ][ NOTEPAD BY TOOLKITMAN

KF5SDR i'm a little tired to program right now, you can experiment by yourself no problem ; ).

Log in or register to post comments