ich krieg noch nicht mal ne bestätigungsmail bei der anmeldung...grummel...aeh registrierung...grummel...
Beiträge von cultdeadcow
-
-
bender...reservier mir mal im bahnhof zimmer 1...vier tage und luett als schlaftrunk.
ggg
-
cal
10 POKE788,194:POKE792,235:DIMP$(41):POKE36879,26
11 PRINT"“KUBISOFT PRESENTS: THE"
12 PRINT"¿¢¿’¿¡"
13 PRINT"¿¢¬»¼’¢"
14 PRINT"COMPILER"
15 PRINT"(C) 1985 BY KUBISOFT"
16 PRINT"840 BYTES ARE FREE"
17 PRINT
18 PRINT"READY."
19 OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:IFA$=""THEN19
20 M=VAL(A$):IFM<1ORM>40THEN24
21 IFLEN(A$)>21THEN32
22 IFA$=MID$(STR$(M),2)THENA$=""
23 P$(M)=A$:GOTO19
24 IFA$="RUN"THEN58
25 IFA$="LIST"THEN37
26 IFA$="NEW"THEN40
27 IFA$="RESET"THENRUN
28 IFA$="BASIC"THENSYS64802
29 IFLEFT$(A$,4)="SAVE"THEN41
30 IFLEFT$(A$,4)="LOAD"THEN44
31 PRINT"! SYNTAX ERROR !";:GOTO18
32 PRINT"! STEATMENT TOO LONG !";:GOTO18
33 PRINT"! OUT OF COMMAND !";:GOTO18
34 PRINT"! ILLEGAL QUANTITY !";:GOTO18
35 PRINT"! DIVISION BY ZERO !";:GOTO18
36 PRINT"! BREAK- !";:GOTO18
37 PRINT:FORM=1TO40
38 IFP$(M)<>""THENPRINTP$(M)
39 NEXT:GOTO18
40 FORM=1TO40:P$(M)="":NEXT:GOTO17
41 OPEN1,1,1,MID$(A$,5)+"C":M=1
42 IFP$(M)<>""THENPRINT#1,P$(M):M=M+1:GOTO42
43 PRINT#1,"END":CLOSE1:GOTO18
44 OPEN1,1,0,MID$(A$,5)+"C":M=1
45 INPUT#1,P$(M):IFP$(M)<>"END"THENM=M+1:GOTO45
46 P$(M)="":M=M+1:IFM<41THEN46
47 CLOSE1:GOTO18
48 S=1:D=0:F=0:P$=""
49 C$=MID$(P$(M),N,1):IFFTHEN55
50 IFC$="-"THENN=N+1:S=-S:GOTO49
51 IFC$="I"THENN=N+1:INPUTP$:GOTO57
52 IFC$="F"THENN=N+1:P=S*Q:RETURN
53 IFC$="ÿ"THENN=N+1:P=S*Ÿ:RETURN
54 F=-1
55 IFC$="."ANDNOTDTHEND=-1:P$=P$+C$:N=N+1:GOTO49
56 IFC$>="0"ANDC$<="9"THENP$=P$+C$:N=N+1:GOTO49
57 P=S*VAL(P$):RETURN
58 M=1:N=1:GOSUB48:N=N+1:GOSUB48:O=P
59 IFN>LEN(P$(M))THENM=M+1:N=1:GOSUB48:N=N+1
60 C$=MID$(P$(M),N,1):N=N+1:IFC$=""THEN33
61 GETA$:IFA$=""THEN36
62 IFC$="+"THENGOSUB48:O=O+P:GOTO59
63 IFC$="-"THENGOSUB48:O=O-P:GOTO59
64 IFC$="*"THENGOSUB48:O=O*P:GOTO59
65 IFC$<>"/"THEN68
66 GOSUB48:IFP=0THEN35
67 O=O/P:GOTO59
68 IFC$="="THENPRINT"RESULTATE:":PRINTO:GOTO18
69 IFC$="^"THENGOSUB48:O=O^P:GOTO59
70 IFC$<>"R"THEN73
71 IFO<0THEN34
72 O=SQR(O):GOTO59
73 IFC$="A"THENO=ATN(O):GOTO59
74 IFC$="C"THENO=COS(O):GOTO59
75 IFC$<>"L"THEN78
76 IFO<=0THEN34
77 O=LOG(O):GOTO59
78 IFC$="S"THENO=SIN(O):GOTO59
79 IFC$="T"THENO=TAN(O):GOTO59
80 IFC$="M"THENQ=O:GOTO59
81 IFC$="%"THENO=O/100:GOTO59
82 GOTO31
-
Habs inne wole geladen..liegt in share.
-
user manual thomson 4121... kann es leider nicht hochladen da zu gross.
-
ja hab ich @easywitt...morgen mein eprom in luhe einlesen ,brennen und guggen ob das vom cardboard 6 geht ?so als idee
-
mach ich naechste woche....
-
auf ner alten diskette umgewandelt...und gespeichert d 64....
den deniaeintrag hab ich schon gefunden inzwischen aber trotzdem danke
LG
-
CAL Compiler ...Kubisoft 1985 ....Infos ,Anleitug ? für VIC 20
-
-
Das meine anleitung hab ich auch noch irgendwo...
LG
-
cardco cardboard 6...
-
wer hatte die doreco tasse ? eine order...
-
-
Für die daheim gebliebenen, ein kleiner einblick, das Video hab ich so um 12 Uhr gemacht, da waren noch nicht ganz alle da.
[Externes Medium: https://youtu.be/vRHTZD7vJ3w]Danke...
-
Und easywitt um deine eingangsfrage zu benatworten, JA es lohnt sich, danke
-
ja geil die kann ich dann mit der cardco 6 vergleichen...das nenn ich evolution...back to the roots...freu mich schon.....
n bobbel wie immer...
-
ich hab die auch,wie war das aleph ALPHA...
-
mal die vc20 liebhaber unterstützen ?
-
Commodore Paket ...anmeld alle 4 Tage..
et is lütt zeit hömma..
so wie immer ...nah am klo..