Posts by Larry

Larry · 2023-02-05T18:44:37+01:00

Quote from Isperfect

Rein aus Neugier - ich hab keine Ahnung ob das funktioniert, ich spiele nur gerade mit ChatGPT und habe den mal befragt - du kannst ja mal folgendes testen:

Code
10 ' Programm zum Auslesen des Floppy-Fehlerkanals in MBASIC
20 ' Variablen deklarieren
30 DIM ErrorChannel AS INTEGER
40 ' BIOS-Funktion aufrufen, um den Fehlerkanal auszulesen
50 CALL INTERRUPT(&H13, 0, 0, 0, 0, ErrorChannel)
60 ' Ergebnis ausgeben
70 PRINT "Der Fehlerkanal lautet: "; ErrorChannel

Display More

Das ergibt schon mal einen Syntax Error:

DIM ist auch relativ sinnfrei an der Stelle.

Wenn nun Zeile 30 ersetzt wird mit:

30 LET ErrorChannel%=0

Dann bleibt MBASIC am CALL INTERRUPT hängen. INTERRUPT scheint dem CALL Befehl (noch) nicht bekannt zu sein.

Larry · 2023-02-05T16:21:15+01:00

D.h. mit dem oben genannten OUT Befehl, wird die RTC eine CMD-HD (oder FD oder RamLink) ausgelesen ?

Eigentlich muss doch über den Floppy Kanal dazu z.B. das T-R Commando gesendet werden.

Larry · Friday, 11:35 pm

Oder man schaltet das Cursor Menu als User einfach aus

Larry · Friday, 2:45 pm

Quote from ivettaB

Funktioniert leider nicht da er bei Zeile 221 mit gosub 5 und gosub 18 irgendwas machen will
aber dein code beginnt bei Zeile 213.....

Zeile 5 geht zur BBS Eingabe Routine. Kann mit z.B. INPUT"blabla",i$ ersetzt werden.

GOSUB18 filtert Cursor Moves aus dem Inputstring raus. Kannste theoretisch also auch weg lassen.

Alles vor Zeile 213 sind irgendwelche BBS System bezogenen Routinen für Input / Diskaccess etc. pp.

Larry · Thursday, 11:08 pm

Hmm kannst das ja mal mit dem Eliza BBS Game von meinen BBS abgleichen.

@ Command entspricht PRINT und PRINT#5 gleichzeitig. Also für "Normalbetrieb" einfach @ durch PRINT ersetzen.

Der eigentliche Code ist ja nicht sooo lang. Überwiegend nur DATA Zeilen.

Code

213 @"{lgrn}Initializing Eliza Mark II{wht}..."
214 @g$+"{lblu}Initializing Brain{wht}...":dims(36),r(36),n(36):restore
215 n1=36:n2=14:n3=112:restore:forx=1ton1+n2+n3:readz$:nextx
216 @g$+"{cyn}Initializing Personality{wht}..."
217 forx=1ton1:reads(x):readl:r(x)=s(x):n(x)=s(x)+l-1:nextx
218 @"{lgrn}She's ALIVE{wht}!!!"+g$+g$
219 @"{lred}Type 'quit' or 'shut up'"+g$+"To Go Back To BBS."+g$
220 x$="{yel}Hi! I'm Eliza. What's your problem?":gosub241
221 r$="{lgrn}=]>":gosub5:gosub18:ifi$="quit"ori$="shut up"thengoto60
222 i$=" "+i$+" "
223 ifi$=p$thenx$="Please don't repeat yourself!":gosub241:goto221
224 restore:s=0:fork=1ton1:readk$:ifs>0thengoto227
225 forl=1tolen(i$)-len(k$)+1:ifmid$(i$,l,len(k$))=k$thens=k:t=l:f$=k$
226 nextl
227 nextk:ifs>0thenk=s:l=t:goto229
228 k=36:goto237
229 restore:forx=1ton1:readz$:nextx:c$=" "+right$(i$,len(i$)-len(f$)-l+1)
230 forx=1ton2/2:reads$:readr$:forl=1tolen(c$):ifl+len(s$)>len(c$)thengoto233
231 ifmid$(c$,l,len(s$))<>s$thengoto233
232 c$=left$(c$,l-1)+r$+right$(c$,len(c$)-l-len(s$)+1):l=l+len(r$):goto236
233 ifl+len(r$)>len(c$)thengoto236
234 ifmid$(c$,l,len(r$))<>r$thengoto236
235 c$=left$(c$,l-1)+s$+right$(c$,len(c$)-l-len(r$)+1):l=l+len(s$)
236 nextl:nextx:ifmid$(c$,2,1)=" "thenc$=right$(c$,len(c$)-1)
237 restore:forx=1ton1+n2:readz$:nextx:forx=1tor(k):readf$:nextx
238 r(k)=r(k)+1:ifr(k)>n(k)thenr(k)=s(k)
239 ifright$(f$,1)<>"*"thenx$=f$:p$=i$:gosub241:goto221
240 x$=left$(f$,len(f$)-1)+c$:gosub241:p$=i$:goto221
241 @x$:return
242 data"can you","can I","you are","you're","I don't","I feel"
243 data"why don't you","why cant I","are you","I cant","I am","Im"
244 data"you ","I want","what","how","who","where","when","why","name"
245 data"cause","sorry","dream","hello","hi ","maybe"," no","your"
246 data"always","think","alike","yes","friend","computer","nokeyfound"
247 data" are "," am ","were ","was "," you "," I ","your ","my "
248 data" i've "," you've "," I'm "," you're "," me "," you "
249 data"Don't you believe that I can*"
250 data"Perhaps you would like to be able to*"
251 data"You want me to be able to*","Perhaps you don't want to*"
252 data"Do you want to be able to*","What makes you think I am*"
253 data"Does it please you to believe I am*"
254 data"Perhaps you would like to be*"
255 data"Do you sometimes wish you were*","Don't you really*"
256 data"Why don't you*","Do you wish to be able to*"
257 data"Does that trouble you?","Tell me more about such feelings."
258 data"Do you often feel*","Do you enjoy feeling*"
259 data"Do you really believe I don't*","Perhaps in good time I will*"
260 data"Do you want me to*","Do you think you should be able to*"
261 data"Why can't you*"
262 data"Why are you interested in whether or not I am*"
263 data"Would you prefer if I were not*"
264 data"Perhaps in your fantasies I am*","How do you know you can't*"
265 data"Have you tried?","Perhaps you can now*"
266 data"Did you come to me because you are*","How long have you been*"
267 data"Do you believe it is normal to be*","Do you enjoy being*"
268 data"We were discussing you -- not me.","Oh, I*"
269 data"You're not really talking about me are you?"
270 data"What would it mean to you if you got*","Why do you want*"
271 data"Suppose you soon got*","What if you never got*"
272 data"I sometimes also want*","Why do you ask?"
273 data"Does that question interest you?"
274 data"What answer would please you the most?","What do you think?"
275 data"Are such questions on your mind often?"
276 data"What do you really want to know?"
277 data"Have you asked anyone else?"
278 data"Have you asked such questions before?"
279 data"What else comes to mind when you ask that?"
280 data"Names don't interest me."
281 data"I don't care about names--please go on."
282 data"Is that the real reason?"
283 data"Don't any other reasons come to mind?"
284 data"Does that reason explain anything else?"
285 data"What other reasons might there be?","Please don't apologize!"
286 data"Apologies are not necessary."
287 data"What feelings do you have when you apologize?"
288 data"Don't be so defensive!","What does that dream suggest to you?"
289 data"Do you dream often?","What persons appear in your dreams?"
290 data"Are you disturbed by your dreams?"
291 data"How do you do... Please state your problem."
292 data"You don't seem quite certain.","Why the uncertain tone?"
293 data"Can't you be more positive?","You aren't sure?"
294 data"Don't you know?","Are you saying no just to be negative?"
295 data"You are being a bit negative.","Why not?","Are you sure?"
296 data"Why no?","Why are you concerned about my*"
297 data"What about your own*","Can you thinkof a specific example?"
298 data"When?","What are you thinking of?","Really, always?"
299 data"Do you really think so?","But you are not sure you*"
300 data"Do you doubt you*","In what way?"
301 data"What resemblance do you see?"
302 data"What does the similarity suggest to you"
303 data"What other connections do you see?"
304 data"Could there really be some connection?","How?"
305 data"You seem quite positive.","Are you sure?","I see."
306 data"I understand."
307 data"Why do you bring up the topic of friends?"
308 data"Do your friends worry you?","Do your friends pick on you?"
309 data"Are you sure you have any friends?"
310 data"Do you impose on your friends?"
311 data"Perhaps your love for friends worries you."
312 data"Do computers worry you?"
313 data"Are you talking about me in particular?"
314 data"Are you frightened by machines?"
315 data"Why do you mention computers?"
316 data"What do you think machines have to do with your problem?"
317 data"Don't you think computers can help people?"
318 data"What is it about machines that worries you?"
319 data"Say, do you have any psychological problems?"
320 data"What does that suggest to you?","I see."
321 data"I'm not sure I understand you fully."
322 data"Come, come, elucidate your thoughts."
323 data"Can you elaborate on that?","That is quite interesting.",1,3,4
324 data2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3,28,4,28,4,32,3,35,5,40
325 data9,40,9,40,9,40,9,40,9,40,9,49,2,51,4,55,4,59,4,63,1,63,1,64,5
326 data69,5,74,2,76,4,80,3,83,7,90,3,93,6,99,7,106,6

Display More

Larry · Thursday, 11:00 pm

Hallo zusammen,

hier im Forum habe ich nicht viel zu dem Thema gefunden, außer "... Contiki und FTP, gibt's nicht....".

Naja es gibt ja auf github im Contiki Repo Code für FTP. Leider bekomme ich das irgendwie nicht compiliert.

Dachte ich mir macht ja nichts, hast ja eine alte Contiki Version mit FTP.prg drauf, nimmste die.

Gesagt getan. Contiki 1.2devel im C64 geladen, 64NIC+ Cartridge auf RR-Net gestellt, gestartet und das FTP.prg aus Contiki heraus geladen.

Leider bekomme ich aber keine Verbindung zum Ultimate64 damit hin. Das bleibt bei Connecting... hängen.

Hat das jemand von euch mit Contiki schon mal hinbekommen, oder auch eine FTP Verbindung zu einem anderen Server ?

Larry · Thursday, 1:39 pm

Falls ihr beide den Fehler nicht findet, dann versuch mal einen anderen SID Chip. Vielleicht wird die Zufallszahl nicht mehr sauber erzeugt.

Nur eine Idee...

Edit: Vergiss es, Du schreibst ja es wird IMMER "CMENU 1" geöffnet, auch wenn nichts angezeigt wird.

Larry · Thursday, 1:08 pm

Oh sorry mein Fehler. Ich brauch ne Brille.

Dann muss HOLY MOSES/ROLE mal schauen.

Entweder ist das File CMENU 1 kaputt, oder es wird vom BBS nicht gefunden.

Larry · Thursday, 12:53 pm

Hast du denn 4 verschiedene CMENU Files ?

Larry · Thursday, 12:52 pm

Quote from pcollins

Ich will aber deine Probleme auch haben

Sicher ?

Ja dann solltest Du Dich von deinem aktuell eingesetzten BBS Mod verabschieden und stattdessen meinen nehmen. Dann hast Du auch meine Probleme und die Lösungen dazu. Zum Teil jedenfalls....

Wie du weist ist das aber nicht mal eben copy, paste. Bei mir sind dann doch ein paar Sachen anders, komplexer, mehr Screens etc. pp.

Wenn Du das wirklich machen willst, gerne.

Larry · Thursday, 12:38 pm

Quote from pcollins

Äh.. das hab ich gar nicht

Na dann hast du auch das Problem nicht

Larry · Thursday, 10:31 am

Na dann viel Spaß damit

Larry · Wednesday, 10:32 pm

Ja hast Du Recht. Das macht Sinn.

Das Programm entstand zuerst mit der Idee 8 Zieldateien zu erstellen anstatt eine. Deswegen hatte ich mir überlegt, wie ich das am besten machen könnte.

Dann kam die Idee mit dem Array. Im Laufe der paar Stunden, die ich da dran gegrübelt habe, hatte ich dann die Idee mit 8 Zieldateien wieder verworfen. Eine reicht ja.

Warum 8 und nicht 10 -> 2 Werte sind jeweils Hi und Low Bytes einer Zahl.

Ich lasse das für mich jetzt erst mal so. Sind ja nur noch 2 Läufe für 2021er und 2022er Files. Danach hab ich 1 Jahr Ruhe hahaha...

Larry · Wednesday, 10:26 pm

Alle Jahre wieder... mal ein kleines Update von meinen geistigen Ergüssen von heute.

Vielleicht hat es der einer oder andere schon im Threat "Heute so gecoded" gelesen. Ich habe ein kleines BASIC Tool geschrieben womit "BBS Kennzahlen" in eine CSV Datei geschrieben werden.

Zum Hintergrund:

Irgendwann in 2020 habe ich im BBS Code eine Funktion eingebaut, die die Daten vom aktuellen Tag aus dem Waitscreen (Call, Posts, Uploads, Downloads etc...) in ein SEQ File namens "WSV" wegschreibt und zwar nach jedem Call.

Dieses File wird vom C-BOOT, also dem BBS Bootfile eingelesen. Ganz praktisch, wenn man mitten am Tag mal das BBS neu starten will oder muss... Früher waren diese Infos verloren, sofern der SysOp die nicht notiert und manuell in die entsprechenden Speicheradresse gePOKEt hat. Am Ende des Tages in den MIDNIGHT Routinen, wird dann dieses WSV File umbenannt mit Datum dahinter und ein neues File erstellt.

Jetzt sammeln sich im Laufe der Zeit so einige WSV-xxxxx Files an. Was macht man damit ? Entweder löschen und vergessen, oder die Daten nutzen um Ansatzweise BBS Statistikdaten zum haben.

Also fluchs das o.g. erwähnte Progrämmchen eingetippert, die Files von 2020 auf ein D81 Image gepackt und laufen lassen. Geduld ist Trumpf

Am Ende wird tatsächlich ein SEQ File erzeugt, das dann z.B. mit DirMaster am PC exportiert werden und z.B. in Excel importiert werden kann.

Mit den so gewonnenen Rohdaten kann ich mir nun ein paar nette Übersichten und Diagramme basteln und schauen wie sich das BBS über die Monate so entwickelt, bzw. wann was los war und wann nicht etc.

Das Ganze könnte man dann für's echte Retro Feeling wieder in eine SYLK Datei exportieren und dann z.B. in Multiplan verwursten. CP/M am 128er bietet sich da an mit 80Zeichen Screen

Mal sehen....

Vielleicht kann man mit den gewonnen Daten auch Diagramme Zeichen (mit Simons BASIC ?!) o.ä. oder als PETSCII Balken-/ Säulendiagramm und das wieder zurück zum BBS schicken, z.B, als Status Screen.

Ideen über Ideen...

Aber vielleicht habt ihr noch ganz andere Ideen oder sogar Wünsche, was man mit den Daten anstellen könnte....

Larry · Wednesday, 10:07 pm

Wenn man's richtig macht dann funktioniert es auch

Junge, junge..... zum Teil sind im Array leere Strings. Die entstehen dadurch, dass ich beim Einlesen der Daten, falls die Einlesedatei nicht existiert, oder Fehler hat, weiter zum nächsten File (Tag) springe.

Das macht nachher beim ASC Probleme.... logisch.

Hier mal der komplette Sourcecode, falls Interesse besteht und jemand mal so was ähnliches machen will.

Das kann natürlich noch alles verfeinert werden mit mehr Sicherheits schick schnack etc. Für meinen Bedarf reicht das erst mal.

Nur nervt noch die Garbage Collection, die Pausenzeiten des Todes verursacht. Also besser VICE im Warp Mode laufen lassen....

Code

;Init stuff, workdrive = current drive
dim ar$(12,31,10):md=peek(186)
_start: poke 53180,6:poke 53181,14:print"{swlc}{lblu}{clr}"tab(7)"WSV2CSV by Larry/ROLE 2023"chr$(13)chr$(13)
input"Convert Files from Year:(yyyy)";yy$:if len(yy$)<>4 then goto _start
print
print"Which line break to use for CSV File?"
print"(1) <CR> Commodore/Mac"
print"(2) <LF> *NIX"
print"(3) <CR><LF> Windows"
_enterlf: input"Enter 1,2 or 3:";lf:if lf>3 or lf<1 then goto _enterlf
if lf=1 then lf$=chr$(13)
if lf=2 then lf$=chr$(10)
if lf=3 then lf$=chr$(13)+chr$(10)
print:print"Reading Files":print
yy=val(right$(yy$,2))
;Month 1 - 12
for mm=1 to 12
;Day 1 - 31. Probe each day from 1 to 31 each month to keep code small and simple.
for dd=1 to 31
;check if file is in disk
close 15:close 8
open 15,md,15
open 8,md,8,"wsv-"+mid$(str$(mm),2)+"?"+mid$(str$(dd),2)+"?"+mid$(str$(yy),2)+",s,r"
input#15,er,a$,a,b:close 8:close 15
;skip file on error
if er>19 then goto _nextday
;read filedata
print"wsv-"mid$(str$(mm),2)"?"mid$(str$(dd),2)"?"mid$(str$(yy),2)
open 8,md,8,"wsv-"+mid$(str$(mm),2)+"?"+mid$(str$(dd),2)+"?"+mid$(str$(yy),2)+",s,r"
for v=1 to 10
get#8,a$:a$=a$+chr$(0)
;write data into array
ar$(mm,dd,v)=a$
next v
close 8
_nextday: next dd
next mm
print:print"Writing Data into CSV File"
open 9,md,9,"csv-"+yy$+",s,w"
;write csv file header record and add LF at line end to get Windows CRLF
;no errorchecks etc.
print#9,"year;month;day;calls;feedback;posts;new users;uploads;downloads;blocksullow;blocksulhi;blocksdllow;blocksdlhi"lf$;
for mm=1 to 12
for dd=1 to 31
;year;month;day;
print#9,yy$";"mid$(str$(mm),2)";"mid$(str$(dd),2)";";
for v=1 to 9
print#9,mid$(str$(asc(ar$(mm,dd,v)+chr$(0))),2)";";
next v
;last value is not ";" separated
print#9,mid$(str$(asc(ar$(mm,dd,v)+chr$(0))),2)lf$;
next dd
next mm
close 9
print"Done!":end

Display More

Das Ergebnis exportiert vom Diskimage auf PC sieht dann so aus:

Und kann direkt in Excel / Calc eingelesen werden.

Larry · Wednesday, 9:06 pm

Ich glaube so ist es richtig:

Code

print#9,mid$(str$(asc(ar$(mm,dd,v))),2)";";

Zum Hintergrund: Mein BBS schreibt täglich 10 Werte in eine SEQ Datei aus 10 verschiedenen Speicherstellen. Also quasi print#xx,peek(12345).

Wenn im Speicher also der Wert 9 drin stand, dann wird praktisch ein chr$(9) fortgeschrieben.

Jetzt gehe ich im nachhinein hin und lese diese SEQ Files wieder aus. Damit ich die Werte danach z.B. in einer Excel Tabelle verwenden kann, kann ich mit einem chr$(9) nichts anfangen. Ich will ja den Wert 9 haben.

Mein Denkfehler war, dass ich nicht dran gedacht hatte den Wert mit ASC in eine Zahl zu wandeln.

Aktuell läuft das Ganze noch einmal, es werden 365 Files eingelesen (pro Tag eins) und in ein neues File gepackt.

Mal sehen, wie das Ergebnis gleich ausschaut.

Edit: sieht schlecht aus. Illegal quantity Error. Arrrrghh.

Larry · Wednesday, 8:10 pm

Ich habe heute ein kleines BASIC Projekt fertig gemacht. Mein Ziel war es den Inhalt von mehreren SEQ Dateien in eine neue Datei im CSV Format zu schreiben um diese Dann z.B. in Excel verwursten zu können.

Das funktioniert auch soweit ganz gut. Allerdings fällt mir dann in der Datei auf, dass leere Felder zum Teil als NUL weggeschrieben wurden und zum Teil nicht.

Hier ein Screenshot aus Notpad++ wo man sehen kann was ich meine:

Ich lese die Daten aus dem SEQ Files in mehreren Schleifen wie folgt aus:

Code

;read filedata
open 8,md,8,"wsv-"+mid$(str$(mm),2)+"?"+mid$(str$(dd),2)+"?"+mid$(str$(yy),2)+",s,r"
for v=1 to 10
get#8,a$:a$=a$+chr$(0)
;write data into array
ar$(mm,dd,v)=a$
next v
close 8

Daher würde ich jetzt erwarten, dass entweder überall ein NUL drin steht, oder gar nicht.

Hat jemand von euch eine Idee woran das liegen könnte ?

Das File lies sich jedenfalls in LibreOffice Calc ohne Gemecker einlesen...

Edit: beim drüber schauen habe ich ggf. den Fehler schon gefunden. Das liegt wohl weniger an der Einleseroutine als an dem PRINT# der die Daten ins neue File schreibt.

Code

;year;month;day;
print#9,yy$";"mid$(str$(mm),2)";"mid$(str$(dd),2)";";
for v=1 to 9
print#9,mid$(ar$(mm,dd,v),2)";"; <---- das wird wohl so nicht passen
next v
;last value is not ";" separated
print#9,mid$(ar$(mm,dd,10),2)lf$;

Larry · Wednesday, 4:54 pm

Sieht ganz schwer nach nicht gefundenem "CMENU x" File aus.

Entweder das File fehlt, oder falsches Setting im RANDOM File.

Meine Vermutung....

Larry · Jan 28th 2023

Will test and report ASAP

Larry · Jan 26th 2023

Quote from Chagizzz

Die Software müsste man wo drauf flashen, das sie direkt nach dem Einschalten da ist.

Ja dann müsste die BBS Software im Cartridge funktionieren, evtl. Easyflash um nachladen zu können. Könnte gehen...

Die Idee hatte ich für mein BBS mit C*BASE auch schon. Es scheitert aber z.B. am Swiftlink, was für die Datenübertragung notwendig ist.

Quote from Chagizzz

Und "Wake on Ring" kann er natürlich nicht, aber es gibt Geräte, die bei Anruf ein Relais schalten und damit Strom einschalten.

Könnte per "Smart Home Steckdose" a la Fritz! gehen. Dann braucht es aber ein Script, was bei aktivität auf IP xxxxxx das Ding anschaltet.

Ausschalten könnte dann per Timer erfolgen.

Posts by Larry

Wer programmiert Basic von Euch ?

Wer programmiert Basic von Euch ?

Neue C64 BBS: RapidFire

ChatGPT schreibt ein C64 Basic Programm - Eliza

ChatGPT schreibt ein C64 Basic Programm - Eliza

Contiki RR-Net FTP zu Ultimate64

Neue C64 BBS: RapidFire

Neue C64 BBS: RapidFire

Neue C64 BBS: RapidFire

Vorstellung: C64 BBS Raveolution

Vorstellung: C64 BBS Raveolution

Vorstellung: C64 BBS Raveolution

Heute so gecodet...

Vorstellung: C64 BBS Raveolution

Heute so gecodet...

Heute so gecodet...

Heute so gecodet...

Neue C64 BBS: RapidFire

CP/M mit Harddisk oder anderem Massenspeichergerät ?

Hamburger C64 Mailbox Snobsoft nach 37 Jahren wieder online?