Ahoy 1986 April/Ahoy_Magazine_86-04_1986_Double_L.d64/notemaker

Commodore BASIC | 1986-01-01 | 1.0 KB | 34 lines

10 rem diskette note creator
20 rem by tim gerchmez
25 poke53281,0:poke53280,15:poke646,1
30 print"[147]        diskette note creator"
35 print"you can use the whole screen as a "
40 print"scribbling pad. (except the topmost "
45 print"and bottommost line)."
50 print:print"press return when done."
55 print"press shift-return if you want to"
60 print"advance the cursor to the next line."
62 print:print"the cursor color in use when return is"
63 print"pressed will be the one used with the":print"notefile."
64 print:print"you load the notefile with a ,8,1"
65 print:input"filename";fi$:fi$=fi$+".n":print:print"press return to start."
70 poke198,0
75 geta$:ifa$=""then75
80 print"[147]";:sys65487
85 open15,8,15,"i0":print#15,"s0:"fi$
90 close15:open2,8,2,fi$+",p,w"
95 print#2,chr$(0)chr$(1);
100 fort=256to514:ct=t:print#2,chr$(2);:next
105 reada:ifa=256then115
110 ct=ct+1:print#2,chr$(a);:goto105
115 ct=ct+1:ifct<2040thenprint#2,chr$(peek(ct));:goto115
120 close2
125 print"[147]done."
130 print:print"another file (y/n)":poke198,0
135 geta$:ifa$=""then135
140 ifa$="y"thenrun
145 ifa$="n"thensys2048
150 goto 135
1000 data160,0,173,134,2,153,0,216,153,0,217,153,0,218,153,0,219
1005 data200,208,241,169,19,32,210,255,76,116,164,256