APPLE ][ NOTEPAD PROGRAMMED BY MATTEO TREVISAN RETROCHALLENGE 2016/10

Work in progress from October for Retrochallenge 2016/10.
In my Retrochallenge entry, i want to elaborate my Apple ][ Notepad to be more perfect out of the box!

I have made also the brochure look here:




Here we are! This is the notepad i have porgrammed for the retrochallenge 2016/10 adjusting the saveing function:

5 SPEED=150
6 HOME
10 PRINT "APPLE ][ NOTEPAD BY MATTEO TREVISAN VERSION 1.3"
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 SIGNED AS ?"
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 PRINT "PRESS REC ON TAPE": SAVE
120 IF E$ <> "YES" THEN GOTO 10
125 GOTO 5
130 END

A screen Capture of the Notepad Working:


Apple ii Notepad to download click here!!!!

This was the Ancestor a notepad i have programmed in Applesoft basic for Apple ][ series machine:

Here the program to test in internet archive:

https://archive.org/details/APPLE_NOTEPAD_BY_MATTEO_TREVISAN


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

No comments:

Post a Comment