{"id":259,"date":"2026-11-06T03:25:05","date_gmt":"2026-11-06T03:25:05","guid":{"rendered":"https:\/\/permacomputer.solarpunk.au\/?p=259"},"modified":"2026-11-06T03:25:05","modified_gmt":"2026-11-06T03:25:05","slug":"permacomputer-text-editor-devlog-1","status":"publish","type":"post","link":"https:\/\/permacomputer.solarpunk.au\/?p=259","title":{"rendered":"Permacomputer Text Editor Devlog #1"},"content":{"rendered":"\n<figure class=\"wp-block-video\"><video height=\"664\" style=\"aspect-ratio: 826 \/ 664;\" width=\"826\" controls src=\"https:\/\/permacomputer.solarpunk.au\/wp-content\/uploads\/2026\/11\/demo1-final.mp4\"><\/video><\/figure>\n\n\n\n<p class=\"wp-block-paragraph\">Progress has been made on the text editor that will be shipped on the first model of the people&#8217;s permacomputer.<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">Please follow the code development here:<\/p>\n\n\n\n<p class=\"wp-block-paragraph\"><a href=\"https:\/\/codeberg.org\/vidak\/peoples\">https:\/\/codeberg.org\/vidak\/peoples<\/a><\/p>\n\n\n\n<p class=\"wp-block-paragraph\">Also, have a look at an earlier, historical editor from which this one was inspired, &#8220;VIC EDITYPE&#8221;:<\/p>\n\n\n\n<figure class=\"wp-block-embed is-type-wp-embed is-provider-the-people-039-s-permacomputer-project wp-block-embed-the-people-039-s-permacomputer-project\"><div class=\"wp-block-embed__wrapper\">\n<blockquote class=\"wp-embedded-content\" data-secret=\"kGY6O5pUxK\"><a href=\"https:\/\/permacomputer.solarpunk.au\/?p=93\">VIC EDITYPE<\/a><\/blockquote><iframe loading=\"lazy\" class=\"wp-embedded-content\" sandbox=\"allow-scripts\" security=\"restricted\" style=\"position: absolute; visibility: hidden;\" title=\"\u201cVIC EDITYPE\u201d \u2014 The People&amp;apos;s Permacomputer Project\" src=\"https:\/\/permacomputer.solarpunk.au\/?p=93&amp;embed=true#?secret=4V9osPEeqS#?secret=kGY6O5pUxK\" data-secret=\"kGY6O5pUxK\" width=\"500\" height=\"282\" frameborder=\"0\" marginwidth=\"0\" marginheight=\"0\" scrolling=\"no\"><\/iframe>\n<\/div><\/figure>\n\n\n\n<p class=\"wp-block-paragraph\"><a href=\"http:\/\/www.vic20listings.freeolamail.com\/book_computevic2.html\" target=\"_blank\" rel=\"noopener\">http:\/\/www.vic20listings.freeolamail.com\/book_computevic2.html<\/a><\/p>\n\n\n\n<h1 class=\"wp-block-heading\">Forum thread here:<\/h1>\n\n\n\n<figure class=\"wp-block-image size-large is-style-default\"><a href=\"https:\/\/basiclang.solarpunk.au\/d\/4-the-peoples-permacomputer-project\/15\"><img loading=\"lazy\" decoding=\"async\" width=\"1024\" height=\"369\" src=\"https:\/\/permacomputer.solarpunk.au\/wp-content\/uploads\/2026\/11\/Screenshot_2026-11-06_11-18-33-1024x369.png\" alt=\"\" class=\"wp-image-261\" srcset=\"https:\/\/permacomputer.solarpunk.au\/wp-content\/uploads\/2026\/11\/Screenshot_2026-11-06_11-18-33-1024x369.png 1024w, https:\/\/permacomputer.solarpunk.au\/wp-content\/uploads\/2026\/11\/Screenshot_2026-11-06_11-18-33-300x108.png 300w, https:\/\/permacomputer.solarpunk.au\/wp-content\/uploads\/2026\/11\/Screenshot_2026-11-06_11-18-33-768x277.png 768w, https:\/\/permacomputer.solarpunk.au\/wp-content\/uploads\/2026\/11\/Screenshot_2026-11-06_11-18-33.png 1183w\" sizes=\"auto, (max-width: 1024px) 100vw, 1024px\" \/><\/a><\/figure>\n\n\n\n<p class=\"wp-block-paragraph\"><a href=\"https:\/\/basiclang.solarpunk.au\/d\/4-the-peoples-permacomputer-project\/15\">https:\/\/basiclang.solarpunk.au\/d\/4-the-peoples-permacomputer-project\/15<\/a><\/p>\n\n\n\n<h1 class=\"wp-block-heading\">Current Code:<\/h1>\n\n\n\n<pre class=\"wp-block-code alignwide\"><code>1 REM PEOPLE'S PERMACOMPUTER EDITOR.\n2 REM INSPIRED BY VIC EDITYPE (1983).\n3 REM\n4 REM DESIGNED FOR THE ARDUINO MEGA 2560.\n5 REM WRITTEN IN STEFAN'S BASIC.\n6 REM\n7 REM PUBLIC DOMAIN DEDICATION.\n8 REM\n9 REM\n10 SET 22, \"Apple1\"\n20 DIM T$(48,24)\n30 FOR I=1 TO 24 : T$()(I)=\"\" : NEXT I\n40 DIM SCRATCH$(48)\n50 NL=1\n60 BKSP=8\n70 CR=13\n80 LF=10\n   \n499 REM FALL INTO HERE\n500 REM MENU\n510 PRINT:PRINT \"N=NEW E=EDIT P=PRINT S=SAVE Q=QUIT\"\n520 INPUT \">\"; M$\n530 IF M$=\"N\" GOTO 1000\n540 IF M$=\"E\" GOTO 2000\n550 IF M$=\"P\" GOTO 3000\n555 IF M$=\"S\" GOTO 3500\n560 IF M$=\"Q\" GOTO 9000\n570 GOTO 500\n\n1000 REM COMPOSE MODE \n1001 INPUT \"TYPE FILE NAME\";V$\n1002 PUT 27 : PUT 91 : PUT 50 : PUT 74:REM CLEAR SCREEN\n1003 PRINT \"COMPOSE MODE\"\n1005 IF NL>24 PRINT \"LINE LIMIT\" : GOTO 500\n1010 PRINT \">\";T$()(NL);\n1020 GET C$\n1030 IF C$=\"\" THEN GOTO 1020\n1040 IF C$=\"@\" THEN GOTO 500\n1050 IF C$=CHR$(BKSP) AND LEN(T$()(NL))=0 THEN GOTO 1020\n1060 IF C$=CHR$(BKSP) THEN GOTO 1600\n1070 IF C$=CHR$(CR) OR C$=CHR$(LF) THEN GOTO 1500\n1080 IF ASC(C$)&lt;32 GOTO 1020 \n1090 PUT C$\n1100 T$()(NL)=T$()(NL)+C$\n1120 C$=\"\"\n1130 IF LEN(T$()(NL))&lt;48 THEN 1020\n     \n1199 REM FALL INTO HERE\n1200 REM WORD WRAP (IF LINE HITS 48)\n1210 S=LEN(T$()(NL))\n1220 IF RIGHT$(T$()(NL),1)=\" \" THEN GOTO 1250\n1230 SCRATCH$=T$()(NL+1)\n1232 T$()(NL+1)=RIGHT$(T$()(NL),1)+SCRATCH$\n1240 T$()(NL)=LEFT$(T$()(NL),S-1)\n1245 S=S-1:GOTO 1220\n1250 REM MEMORY CHECKS\n1260 IF T$()(NL)=\"\" THEN T$()(NL)=\" \"\n1270 IF SIZE&lt;600 THEN PRINT \"MEMORY LOW\":PRINT\n1280 IF SIZE&lt;500 THEN PRINT \"MEMORY CRITICAL\":GOTO 500\n1290 NL=NL+1\n1295 PRINT:PRINT \">\";T$()(NL-1);\n1300 PRINT:PRINT \">\";T$()(NL);\n1310 GOTO 1020\n\n1500 REM NEWLINE\n1505 PUT CR : PUT LF\n1510 NL=NL+1\n1520 IF NL>24 THEN PRINT \"BUFFER FULL\" : GOTO 500\n1530 GOTO 1010\n\n1600 REM BACKSPACE (CURRENT LINE ONLY)\n1610 L=LEN(T$()(NL))\n1615 IF L&lt;1 GOTO 1020\n1620 IF L=1 THEN T$()(NL)=\"\":GOTO 1640\n1625 SCRATCH$=LEFT$(T$()(NL),L-1)\n1630 T$()(NL)=SCRATCH$\n1640 PUT 8 : PUT 32 : PUT 8\n1650 GOTO 1020<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Progress has been made on the text editor that will be shipped on the first model of the people&#8217;s permacomputer. Please follow the code development here: https:\/\/codeberg.org\/vidak\/peoples Also, have a look at an earlier, historical editor from which this one was inspired, &#8220;VIC EDITYPE&#8221;: http:\/\/www.vic20listings.freeolamail.com\/book_computevic2.html Forum thread here: https:\/\/basiclang.solarpunk.au\/d\/4-the-peoples-permacomputer-project\/15 Current Code:<\/p>\n","protected":false},"author":1,"featured_media":260,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_hide_featured_image":false,"_jetpack_featured_image_duplicate_dismissed":0,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[18,25],"tags":[20,17,27,26],"class_list":["post-259","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-basic-text-editors","category-videos","tag-basic","tag-retrocomputing","tag-stefans-basic","tag-videos"],"jetpack_publicize_connections":[],"jetpack_sharing_enabled":true,"jetpack_featured_media_url":"https:\/\/permacomputer.solarpunk.au\/wp-content\/uploads\/2026\/11\/Screenshot_2026-11-05_21-05-42.png","_links":{"self":[{"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=\/wp\/v2\/posts\/259","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=259"}],"version-history":[{"count":3,"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=\/wp\/v2\/posts\/259\/revisions"}],"predecessor-version":[{"id":265,"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=\/wp\/v2\/posts\/259\/revisions\/265"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=\/wp\/v2\/media\/260"}],"wp:attachment":[{"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=259"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=259"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/permacomputer.solarpunk.au\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=259"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}